Berechung von Pi

muh_kuh

hi
weis wer eine autoit möglichkeit PI zu berechen (müsse die CPU ja 100 % belasen)

mfg
muh Kuh

**peethebee**

Hallo

Hier gibt es allgemeine Informationen und auch Berechnungsverfahren, die man nur in AutoIt umsetzen müsste: http://de.wikipedia.org/wiki/Pi_%28Kreiszahl%29
Einfacher wäre es aber sicher, sich eine Konstante mit den ersten 10 Stellen oder so zu machen.

peethebee

muh_kuh

Zitat

Original von peethebee
Hallo

Hier gibt es allgemeine Informationen und auch Berechnungsverfahren, die man nur in AutoIt umsetzen müsste: http://de.wikipedia.org/wiki/Pi_%28Kreiszahl%29
Einfacher wäre es aber sicher, sich eine Konstante mit den ersten 10 Stellen oder so zu machen.

peethebee

hi
auf wiki finde ich nicht die richige formel
das Programm soll ja die CPU belasten und nicht mit pi rechen
aber danke

**GtaSpider**

Halllo

Wie jetzt? Du willst die CPU auf 100 setzen?

MFg Spider

muh_kuh

Zitat

Original von gtaspider
Halllo

Wie jetzt? Du willst die CPU auf 100 setzen?

MFg Spider

ja das will ich

Ahnungslos

AutoIt passt seine Geschwindigkeit beim durchlaufen an die Systemgeschwindigkeit an.
100% sind nur für einen kurzen Augenblick drin dann läuft es langsamer.

#include <GUIConstants.au3>
GUICreate("PI",800,50)
GUISetState (@SW_SHOW)
$X = 0
$c = GUICtrlCreateLabel($X,5,20,790,20)
$a = 1
$b = 0

GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$X = Sqrt(6 *($b))
$b = $b + 1/ ($a^2)
$a = $a + 1
GUICtrlSetData($c,$X)
WEnd

**bernd670**

Hallo,

Zitat

AutoIt passt seine Geschwindigkeit beim durchlaufen an die Systemgeschwindigkeit an.
100% sind nur für einen kurzen Augenblick drin dann läuft es langsamer.

Das kommt durch die Funktion GuiGetMsg() die sorgt dafür das auch andere Programme mal zum Zuge kommen. Einfach die Zeilen auskommentieren und die CPU läuft auf 100%. Das Programm kann dann nur noch über das TrayIcon oder den Taskmanager beendet werden!

Code

#include <GUIConstants.au3>
GUICreate("PI",800,50)
GUISetState (@SW_SHOW)
$X = 0
$c = GUICtrlCreateLabel($X,5,20,790,20)
$a = 1
$b = 0


GUISetState()
While 1
;~ $msg = GUIGetMsg()
;~ If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$X = Sqrt(6 *($b))
$b = $b + 1/ ($a^2)
$a = $a + 1
GUICtrlSetData($c,$X)
WEnd

Alles anzeigen

muh_kuh

Zitat

Original von bernd670

Code

#include <GUIConstants.au3>
GUICreate("PI",800,50)
GUISetState (@SW_SHOW)
$X = 0
$c = GUICtrlCreateLabel($X,5,20,790,20)
$a = 1
$b = 0


GUISetState()
While 1
;~ $msg = GUIGetMsg()
;~ If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$X = Sqrt(6 *($b))
$b = $b + 1/ ($a^2)
$a = $a + 1
GUICtrlSetData($c,$X)
WEnd

Alles anzeigen

hi
genau so was habe ich gesucht
jetzt bloss noch etwas tuning und es wird lustig

ytwinky

Hi,
ich verstehe das Problem nicht:
$Pi=4*ATan(1) ;s. Hilfe
..genauer wird es nicht..
..vielleicht wird deine CPU ein wenig wärmer.
Sag doch mal, was hast du vor?
Gruß
ytwinky

**bernd670**

Vieleicht ist ihm zu kalt und er möchte die Heizung nicht einschalten

ytwinky

Wenn du vergleichen willst, hier ist Pi auf 500 Stellen genau
(Berechnet mit Derive von texas instruments):
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491
Gruß
ytwinky

muh_kuh

hi
nein mir ist nicht kalt
sondern ich will ein Anstendigen CPU tester
da der jetzt genutze bei neunen Rechner schlap macht (CPU nur 58 %)
dach ich kann ich doch auch ein machen
und auf PI ist bis her ja noch keiner gekommen (ich meine auf alle stelen)

muh_kuh

kuztz noch der code

C

HotKeySet("{ESC}", "MeinExit")
HotKeySet("{PAUSE}", "Pause")
#include <GUIConstants.au3>
GUICreate("PI",550,50)
GUISetState (@SW_SHOW)
$X = 0
$c= GUICtrlCreateInput($X,5,25,540,20)
$a = 1
$b = 0
$pause = 0
GUICtrlCreateLabel(" ESC = Ende | PAUSE = ruhe bis wieder PAUSE",175,5,275,20)


GUISetState()
While 1
	if $pause =0 then 
		$X = Sqrt(6 *($b))
		$b = $b + 1/ ($a^2)
		$a = $a + 1
		GUICtrlSetData ($c, $X)
	EndIf
WEnd


Func Pause()
	if $pause = 1 Then
		$pause = 0
	elseif $pause =0 Then
		$pause = 1
	EndIf

EndFunc 


Func MeinExit()
	GUIDelete()
    Exit 
EndFunc 


Exit

Alles anzeigen

edit : Bessere Code

ytwinky

Es gibt KEINE Möglichkeit ALLE Stellen von Pi darzustellen!
Die reine Rechenvorschrift sind Formeln, die die CPU nicht besonders fordern.
Gruß
ytwinky

**peethebee**

Richtig, ytwinky, Pi ist per Definition irrational also nicht als Dezimalzahl oder Bruch darstellbar.

Aber ich denke, dass muh_kuh das auch nicht so meinte...

**bernd670**

muh_kuh, du solltest, wenn die Pause aktiv ist, der CPU mit dem Befehl Sleep etwas ruhe gönnen. Auch wenn die Berechnung dann nicht mehr läuft verbraucht die While-Schleife immer noch 100%!

Spoiler anzeigen

C

HotKeySet("{ESC}", "MeinExit")
HotKeySet("{PAUSE}", "Pause")
#include <GUIConstants.au3>
GUICreate("PI",550,50)
GUISetState (@SW_SHOW)
$X = 0
$c= GUICtrlCreateInput($X,5,25,540,20)
$a = 1
$b = 0
$pause = 0
GUICtrlCreateLabel(" ESC = Ende | PAUSE = ruhe bis wieder PAUSE",175,5,275,20)


GUISetState()
While 1
	if $pause = 0 then 
		$X = Sqrt(6 *($b))
		$b = $b + 1/ ($a^2)
		$a = $a + 1
		GUICtrlSetData ($c, $X)
	EndIf

    If $pause = 1 Then sleep(50)
WEnd


Func Pause()
	if $pause = 1 Then
		$pause = 0
	elseif $pause =0 Then
		$pause = 1
	EndIf

EndFunc 


Func MeinExit()
	GUIDelete()
    Exit 
EndFunc 


Exit

Alles anzeigen