Hallo,
gibt es eine Formel um PI auszurechnen und es dann in AutoIt umzusetzen?
Hallo,
gibt es eine Formel um PI auszurechnen und es dann in AutoIt umzusetzen?
Wie man das Ausrechnet, keine Ahnung aber schreib doch einfach eine Const in dein Script.
[autoit]Global Const $Pi = 3.1415926535897932384626
[/autoit]ja gibt unterschiedliche Ansätze
[autoit]; Berechnung von Pi
[/autoit][autoit][/autoit][autoit]Global $pi = 4, $i, $j=1, $steps = 1000000
[/autoit][autoit][/autoit][autoit]for $i = 3 to $steps step 2
if mod($j, 2)=1 then
$pi -= 4/$i
else
$pi += 4/$i
endif
$j +=1
Next
MsgBox(0,"", $pi)
[/autoit] ZitatDie Zahl Pi definiert sich durch folgende (unendliche) Reihe:
π = [Blockierte Grafik: http://leviathan-design.de/upload/images/pi.png]
Schreiben Sie ein Programm, das die Zahl π approximiert, in dem erst ein Term, dann zwei, dann drei usw. berechnet werden und lassen Sie sich jeweils den aktuellen Wert ausgeben. Wieviele Terme müssen Sie berechnen, um das erste Mal 3.14? 3.141? 3.1415? 3.14159? zu erhalten? Für die Ausgabe verwenden Sie System.out.
a. Entwickeln Sie das Programm unter Verwendung einer for Schleife
b. Entwickeln Sie das Programm unter Verwendung einer do Schleife und einer break Anweisung.
alte Programmierenaufgabe von mir
oder suche mit google mal nach einer Reihenentwicklung von pi - gibt unterschiedliche Ansätze
Hallo,
klar kann man Pi berechnen.
[autoit]MsgBox(0, "", Pi())
[/autoit][autoit][/autoit][autoit][/autoit][autoit];~ Erstellt Pi aufgrund des Archimedes-Verfahren
;~ mit einem 2 ^ 26 Eck (402.653.184 Eck).
Func Pi()
Local $a = 2 * Sqrt(3)
Local $b = 3
Do
$a = 2 * $a * $b / ($a + $b)
$b = Sqrt($a * $b)
Until $a = $b
Return $a
EndFunc
Wenn Du mehr über Pi wissen willst hilft Wikipedia
Die eigentlich Antwort lautet: "PI IST GENAU 3"
ok Scherz beiseite ... GENAU ausrechnen ... hmm die Frage ist, über wieviele Ecken annähern:
Anzahl Ecken - Näherung für Pi
6 - 3.000000000000000
12 - 3.105828541230249
24 - 3.132628613281238
48 - 3.139350203046867
96 - 3.141031950890510
192 - 3.141452472285462
384 - 3.141557607911858
768 - 3.141583892148319
1.536 - 3.141590463228050
3.072 - 3.141592105999272
6.144 - 3.141592516692158
12.288 - 3.141592619365384
24.576 - 3.141592645033691
49.152 - 3.141592651450768
98.304 - 3.141592653055037
196.608 - 3.141592653456105
393.216 - 3.141592653556372
786.432 - 3.141592653581438
1.572.864 - 3.141592653587705
3.145.728 - 3.141592653589271
6.291.456 - 3.141592653589663
12.582.912 - 3.141592653589761
25.165.824 - 3.141592653589786
50.331.648 - 3.141592653589791
100.663.296 - 3.141592653589793
Ist schon ein "toter" Tread, aber ich hab im Internet folgendes gefunden
[autoit]
$gui = GUICreate("Pi-Berechnung", 500, 30)
$progress = GUICtrlCreateProgress(0, 0, 500, 30)
GUISetState(@SW_SHOW)
Dim $e = 0, $max = 500000
For $n = 0 To $max
$e += -1 ^ $n / (2 * $n + 1)
GUICtrlSetData($progress, $n / $max * 100)
Next
GUISetState(@SW_HIDE)
MsgBox(64, "Pi-Ergebnis", $e*4)
Das einfachste in AutoIt ist immer noch das: $PI = ASin(1)*2
oder ATan(1) * 4
Wenn einfach dann lieber ACos(-1)
Wenn du es ganz genau haben willst nimm...
[autoit][/autoit][autoit][/autoit][autoit]#include <Inet.au3>
#include <String.au3>
$source = _INetGetSource("http://www.pibel.de/")
$pi = _StringBetween($source,"<font size=6><b>",". . .")
MsgBox(0,"",$pi [0])
o.ä.
N0THING
Dein Script wiefolgt abändern
#include <Inet.au3>
#include <String.au3>
$source = _INetGetSource("http://www.pibel.de/")
$pi = _StringBetween($source,"<font size=6><b>",". . .")
MsgBox(0,"PI...DAS WIRD DAUERN!!! >.<",$pi [0]) ;Ein Bischen Spass muss sein
$F = FileOpen('Test.txt',1)
FileWrite($F,$pi[0])
FileClose($F)
Exit
und dan Darfst du Warten...Laaaaaaange Warten :pinch: :pinch: :pinch:
***Edit***
Entfernd (mit ; ) man die msg dauerst secunden
Hi,
Sufu hilft auch hier....
n-te Ziffer von Pi berechnen nach dem Bailey - Borwein - Plouffe-Verfahren