hi
weis wer eine autoit möglichkeit PI zu berechen (müsse die CPU ja 100 % belasen)
mfg
muh Kuh
hi
weis wer eine autoit möglichkeit PI zu berechen (müsse die CPU ja 100 % belasen)
mfg
muh Kuh
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
ZitatOriginal von peethebee
HalloHier 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
Halllo
Wie jetzt? Du willst die CPU auf 100 setzen?
MFg Spider
ZitatOriginal von gtaspider
HallloWie jetzt? Du willst die CPU auf 100 setzen?
MFg Spider
ja das will ich
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
Hallo,
ZitatAutoIt 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!
#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
ZitatOriginal von bernd670
Code Alles anzeigen#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
hi
genau so was habe ich gesucht
jetzt bloss noch etwas tuning und es wird lustig
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
Vieleicht ist ihm zu kalt und er möchte die Heizung nicht einschalten
Wenn du vergleichen willst, hier ist Pi auf 500 Stellen genau
(Berechnet mit Derive von texas instruments):
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491
Gruß
ytwinky
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)
kuztz noch der code
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
Es gibt KEINE Möglichkeit ALLE Stellen von Pi darzustellen!
Die reine Rechenvorschrift sind Formeln, die die CPU nicht besonders fordern.
Gruß
ytwinky
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...
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%!
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