find pi med matematik

PI = (PI + 1) & F(t) & N(t)

Jeg formoder at det er denne algoritme du forsøger at kode:

Pi = 4*(1 - 1/3 + 1/5 - 1/7 + 1/9 - ...)

I så fald er der temmelig langt fra din kode til at have dette.

Primært skal din ene loop (N-loopen) omfatte alt den anden kode i stedet for at køre færdig inden at du går videre til resten.

nielle > der forstår jeg ikke, jeg kan jo ikke have  det første 1-tal inde i N-loopet fordi så vil 1 tallet gå igen, og det skal jo ikke

Dim F
For i = 0 To Deci
if F = "+" then
F = "-"
else
F = "+"
end if
Next

Dim N
For i = 0 To Deci
pi2 = " 1 " & ": " & cint(N) & " " & F(i)
N = N + 2
i = i + 1
Next

pi = "4*(" & pi2 & ")"
Response.Write pi
end if
%>

hvad er problemet nu?? stadig i den hvor F indgår

nej nu er det der hvor pi2 defineres **

sum = 1
    For i = 1 To 1000
        If i Mod 2 = 0 Then
            sum = sum + 1 / (2 * i + 1)
        Else
            sum = sum - 1 / (2 * i + 1)
        End If
    Next
    pi = 4 * sum

og det er iøvrigt en af de dårligste pi algoritmer overhovedet

dårlig = langsom

<%
KvartPi = 0
Sign = -1

For N=1 To 50 Step 2
    Sign = -Sign
    KvartPi = KvartPi + Sign/N

    Response.Write 4*KvartPi & "<br>"
Next
%>

jeg valgte at løse således,

N = 1
For i = 0 To Deci
pi2 = pi2 & F & "1" & ":" & cint(N)
N = N + 2
i = i + 1
if F = "+" then
F = "-"
else
F = "+"
end if
Next

men nu mangler jeg bare at kunne fortælle den, at den også skal regne det ud... hvordan konverterer jeg fra string til udregning?? :)

den skal være langsom :D det er det der er det sjove, jeg gav mig selv den opgave da vi beskæftigede os med det i skolen

<%
Deci = 10

N = 1
For i = 0 To Deci
    pi2 = pi2 & F & "1" & "/" & cint(N)
    N = N + 2
    i = i + 1
    if F = "+" then
        F = "-"
    else
        F = "+"
    end if

    Response.write eval(pi2) & "<br>"
Next
%>

Det er godt nok endnu langsommere at udregne det på den måde ;^)

kan jeg ikke konvertere min tekststreng til en matematisk kode i asp??

Ikke forstået?

Funktionen eval tager din tekststreng og regner resultatet ud. Var det ikke det du ville have?

okay tak... Iøvrigt, hvis du forstår den sætning, så forklar mig det lige, for jeg er ikke helt med


4*1 giver jo 1 hvordan skal man kunne bruge det til noget fornuftigt i forhold til pi... ligemeget om jeg vil have udregningen vildt meget gange op, giver det et for stort tal :P

det var bare mig der var dum... drop svar...

Du er vel ikke sådan en mastermind der også kan give mig lidt hjælp hvis jeg vil kode det ind i delphi :D ?

Jeg kan godt forstå formlen - men jeg kan desværre ikke forklare (bevise) den uden at komme ind på noget temmeligt langhåret matematik... :^|

Nej, det skulle ikke være noget problem med at lave den i Delphi. Dog er jeg ikke lige klar over om der er nogen Eval() der, så jeg ville hellere fortrække at lave den efter 25/10-2005 20:50:17 eller 25/10-2005 21:07:55.

drop gerne svar :D

Svar :^)