Excel VBA

    ACHTUNG dies ist das ALTE Forum!!

    Das neue gibt es unter https://discourse.bohramt.de!
      ich steh grad aufm schlauch :qualmen:

      Quellcode

      1. ianf= 0, iend= 80, ischritt = 1
      2. pi = 4 * Atn(1)
      3. tintervall = 0.1, terme = 111
      4. For i = ianf To iend Step ischritt
      5. t(i) = i * tintervall
      6. ysum = 1/2
      7. For k = 1 To terme Step 2
      8. ysum = ysum + (2/pi)* (1/k) * (sin(pi/2) * t(i) * k)
      9. Next k
      10. Next i


      <=>

      f(t) = 0.5 + (2/pi)* [sin(xt) + (1/3)sin(3xt) + (1/5)sin(5xt) + .... ]

      jetzt soll daraus werden:

      f(t) = (2/pi)* [sin(xt) - (1/2)sin(2xt) + (1/3)sin(3xt) - .... ]

      sprich:

      Quellcode

      1. ianf= 0, iend= 80, ischritt = 1
      2. pi = 4 * Atn(1)
      3. tintervall = 0.1, terme = 111
      4. For i = ianf To iend Step ischritt
      5. t(i) = i * tintervall
      6. ysum = 0
      7. For k = 1 To terme Step 1
      8. ysum = ysum +- (2/pi)* (1/k) * (sin(pi/2) * t(i) * k)
      9. Next k
      10. Next i


      höhö +- funzt so leider nicht :rolleyes:. wie kann ich gerade ungerade erkennen bzw wie kann ich ne boolean before "Next k" von true auf false switchen...? ?( ?( ?(

      RE: Excel VBA

      Quellcode

      1. ianf= 0, iend= 80, ischritt = 1
      2. pi = 4 * Atn(1)
      3. tintervall = 0.1, terme = 111
      4. For i = ianf To iend Step ischritt
      5. t(i) = i * tintervall
      6. ysum = 0
      7. For k = 1 To terme Step 1
      8. If (k Mod 2 = 0) Then
      9. ysum = ysum - (2/pi)* (1/k) * (sin(pi/2) * t(i) * k)
      10. Else
      11. ysum = ysum + (2/pi)* (1/k) * (sin(pi/2) * t(i) * k)
      12. Next k
      13. Next i



      arghhhs, danke, das brett ist win bisschen kleiner geworden =)


      ja Mod kenn ich, nur A mit B verknüpfen...... hehe thx :D

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Black Label Society“ ()

      RE: Excel VBA

      Original von Black Label Society
      ich steh grad aufm schlauch :qualmen:

      Quellcode

      1. ianf= 0, iend= 80, ischritt = 1
      2. pi = 4 * Atn(1)
      3. tintervall = 0.1, terme = 111
      4. For i = ianf To iend Step ischritt
      5. t(i) = i * tintervall
      6. ysum = 1/2
      7. For k = 1 To terme Step 2
      8. ysum = ysum + (2/pi)* (1/k) * (sin(pi/2) * t(i) * k)
      9. Next k
      10. Next i


      <=>

      f(t) = 0.5 + (2/pi)* [sin(xt) + (1/3)sin(3xt) + (1/5)sin(5xt) + .... ]

      jetzt soll daraus werden:

      f(t) = (2/pi)* [sin(xt) - (1/2)sin(2xt) + (1/3)sin(3xt) - .... ]

      sprich:

      Quellcode

      1. ianf= 0, iend= 80, ischritt = 1
      2. pi = 4 * Atn(1)
      3. tintervall = 0.1, terme = 111
      4. For i = ianf To iend Step ischritt
      5. t(i) = i * tintervall
      6. ysum = 0
      7. For k = 1 To terme Step 1
      8. ysum = ysum +- (2/pi)* (1/k) * (sin(pi/2) * t(i) * k)
      9. Next k
      10. Next i


      höhö +- funzt so leider nicht :rolleyes:. wie kann ich gerade ungerade erkennen bzw wie kann ich ne boolean before "Next k" von true auf false switchen...? ?( ?( ?(


      was soll denn da funzen? sollen da als ergebniss die lottozahlen von Mittwoch rauskommen?...ne die verrat ich nicht 8o
      Auch Wasser wird zum edlen Tropfen, mischt man es mit Malz und Hopfen!