hilfe mit "auflistung"

Page 1 of 2

09/17/2010 15:04 omer36#1

also ich hab mal vor einen "primzahlen zerleger" zu schreiben, und habe folgendes start-problem...

ich habe primzahlen zahlen... zb

"2,3,5,7"

dann will ich eine beliebige zahl (ausm Input) solange mit der "2" dividiren, solange es eine eine "ganze" zahl als l�sung kommt,
andersnfalls (mit komma) soll weiter mit der "3" machen, wenns nicht geht, "5"... dann wieder "2" usw...

bsp.
(ausm imput die zahl 60)
60 / 2 = 30
30 / 2 = 15
15 / 2 = 12.5
15 / 3 = 5

nur wei� ich jetz nicht, wie ich das so einrichten kann, dass es alle primzahlen nacheinander nimmt...

m�sste ichs in ne .ini speichern und von da aus zeile f�r zeile nehmen?
wie w�rde es dann da aussehen?

zum testen obs ne ganze zahl ist mach ichs ja hiermit oder?
If IsInt(variable)...

MfG

09/17/2010 15:44 lolkop#2

Quote:

Originally Posted by omer36

also ich hab mal vor einen "primzahlen zerleger" zu schreiben, und habe folgendes start-problem...

ich habe primzahlen zahlen... zb

"2,3,5,7"

dann will ich eine beliebige zahl (ausm Input) solange mit der "2" dividiren, solange es eine eine "ganze" zahl als l�sung kommt,
andersnfalls (mit komma) soll weiter mit der "3" machen, wenns nicht geht, "5"... dann wieder "2" usw...

bsp.
(ausm imput die zahl 60)
60 / 2 = 30
30 / 2 = 15
15 / 2 = 12.5
15 / 3 = 5

nur wei� ich jetz nicht, wie ich das so einrichten kann, dass es alle primzahlen nacheinander nimmt...

m�sste ichs in ne .ini speichern und von da aus zeile f�r zeile nehmen?
wie w�rde es dann da aussehen?

zum testen obs ne ganze zahl ist mach ichs ja hiermit oder?
If IsInt(variable)...

MfG

versteh zwar nicht wirklich was das soll, da das ergebnis so immer 1 sein wird, aber hier mal ein beispiel:

Code:

Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]
$input = InputBox('Enter Number', 'Enter a number >= 1', 10)
For $i=0 To UBound($prim)-1
	Do
		$input_old = $input
		$input /= $prim[$i]
		ConsoleWrite($input_old&@CRLF)
	Until Not IsInt($input)
	$input = $input_old
	If $input = 1 Then ExitLoop
	ConsoleWrite('teilen durch '&$prim[$i]&' failed'&@CRLF)
Next

09/17/2010 16:31 | Moep |#3

Quote:

Originally Posted by omer36

also ich hab mal vor einen "primzahlen zerleger" zu schreiben, und habe folgendes start-problem...

ich habe primzahlen zahlen... zb

"2,3,5,7"

dann will ich eine beliebige zahl (ausm Input) solange mit der "2" dividiren, solange es eine eine "ganze" zahl als l�sung kommt,
andersnfalls (mit komma) soll weiter mit der "3" machen, wenns nicht geht, "5"... dann wieder "2" usw...

bsp.
(ausm imput die zahl 60)
60 / 2 = 30
30 / 2 = 15
15 / 2 = 12.5
15 / 3 = 5

nur wei� ich jetz nicht, wie ich das so einrichten kann, dass es alle primzahlen nacheinander nimmt...

m�sste ichs in ne .ini speichern und von da aus zeile f�r zeile nehmen?
wie w�rde es dann da aussehen?

zum testen obs ne ganze zahl ist mach ichs ja hiermit oder?
If IsInt(variable)...

MfG

Mit den ersten 30 Primzahlen kannst du aber bei weitem nicht alle Zahlen zerlegen. Am besten du rechnest die Primzahlen im Script direkt aus, so bist du nicht auf die ersten 30 beschr�nkt. Hier ein algo der das kann.
Dass mit den von 2 anfangen kannst du dir im Grunde auch schenken, das w�rde in einer endlosschleife enden, da die letze Zahl selbst eine Primnzahl ist und somit nur durch sich selbst oder 1 teilbar w�re.

Aber hier das Script mit den neustart , vielleicht etwas "leserlicher" als lolkop seins ;) :

Code:

Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]
$input = InputBox('Enter Number', 'Enter a number >= 1', 10)

$i = 0

While $input <> 1
	
	if IsInt($input/$prim[$i]) Then
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"TRUE"&@CRLF)
		$input = $input/$prim[$i]
	Else
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"FALSE"&@CRLF)
		If $i < UBound($prim)-1 Then
			$i = $i+1
		Else
			$i = 0
		EndIf
	EndIf
WEnd

und hier korrekt wies sein sollte, ohne Neustart. Jedoch terminiert das Script, gezwungenerma�en, nachdem die ersten 30 Primzahlen durch sind:

Code:

Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]
$input = InputBox('Enter Number', 'Enter a number >= 1', 10)

$i = 0

While $input <> 1
	
	if IsInt($input/$prim[$i]) Then
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"TRUE"&@CRLF)
		$input = $input/$prim[$i]
	Else
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"FALSE"&@CRLF)
		$i = $i+1
	EndIf
WEnd

hoffe hab nichts vergessen.

09/17/2010 17:16 omer36#4

schonmal danke euch beiden, ist fasst so, wie ichs wollte...
(eig. wollte ichs ja selber "versuchen" zu scripten, aber...h�tte ich wohl nicht so geschaft....^^)

vllt k�nnt ihr noch bei einer sache helfen...

so siehts bisher aus:

PHP Code:


			
#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 531, 190, 308, 255)

$Label1 = GUICtrlCreateLabel("Bitte geben Sie die Zahl ein", 12, 12, 247, 17)

$input = GUICtrlCreateInput("", 12, 36, 137, 21)

$edit = GUICtrlCreateEdit("", 272, 8, 257, 181)

$ok = GUICtrlCreateButton("OK", 12, 72, 113, 29, $WS_GROUP)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###



Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE

            Exit

        Case $ok

            start()



    EndSwitch

WEnd



Func start()

$input = GUICtrlRead($input)

$i = 0

While $input <> 1

    if IsInt($input/$prim[$i]) Then

        GUICtrlSetData($edit,  GUICtrlRead($edit) & @CRLF & $input&" / "&$prim[$i]&" = "&@CRLF&$input/$prim[$i]&@CRLF)

        $input = $input/$prim[$i]

    Else

        GUICtrlSetData($edit,  GUICtrlRead($edit))

        $i = $i+1

    EndIf

WEnd

EndFunc

und ist es jetz noch m�glich, am ende die primzahlen hinzu zuf�gen?
sprich, wenn ich 60 eingebe, dasss es so kommt:

Code:

60 / 2 = 
30

30 / 2 = 
15

15 / 3 = 
5

5 / 5 = 
1

[B]2 * 2 * 3 * 5[/B]

09/17/2010 17:42 | Moep |#5

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 531, 190, 308, 255)
$Label1 = GUICtrlCreateLabel("Bitte geben Sie die Zahl ein", 12, 12, 247, 17)
$GUIinput = GUICtrlCreateInput("", 12, 36, 137, 21)
$edit = GUICtrlCreateEdit("", 272, 8, 257, 181)
$ok = GUICtrlCreateButton("OK", 12, 72, 113, 29, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $ok
            start()

    EndSwitch
WEnd

Func start()
$input = GUICtrlRead($GUIinput)
$i = 0
$fak = $input&" = 1"
While $input <> 1
    if IsInt($input/$prim[$i]) Then
        GUICtrlSetData($edit,  GUICtrlRead($edit) & @CRLF & $input&" / "&$prim[$i]&" = "&@CRLF&$input/$prim[$i]&@CRLF)
		$fak = $fak&" * "&$prim[$i]
        $input = $input/$prim[$i]
    Else
        
        $i = $i+1
    EndIf
WEnd
GUICtrlSetData($edit,  GUICtrlRead($edit)&$fak & @CRLF &"======================================")
EndFunc

Wie gesagt, dass Script bricht bei h�heren Zahlen ab, da die ben�tigten Primzahlen zur berechnung nicht in den array bereitgestellt sind. Du solltest dir am besten die Primzahlen zu Laufzeit des Scriptes direkt ausrechnen, oder eine Begrenzung einbauen.

Edit: Au�erdem war noch nen Bug drinne, wenn du zweimal hintereinander eine Zahl suchst. is gefixt.

09/17/2010 18:07 lolkop#6

Quote:

Originally Posted by | Moep |

Code:

Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]
$input = InputBox('Enter Number', 'Enter a number >= 1', 10)

$i = 0

While $input <> 1
	
	if IsInt($input/$prim[$i]) Then
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"TRUE"&@CRLF)
		$input = $input/$prim[$i]
	Else
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"FALSE"&@CRLF)
		$i = $i+1
	EndIf
WEnd

�hm du hast statt einer in diesem fall besseren for schleife eine while schleife genommen, was anstatt in einer endlosschleife zu landen, beim nicht auffinden einer passenden primzahl zu einem array overflow f�hren wird.

es ist zwingen notwendig die schleife nur von 0-29 laufen zu lassen, da sonst $prim[29+] abgefragt wird, was nicht existiert. und aus effizienzgr�nden ist eine for schleife auch immer eine while schleife vorzuiziehen :P

09/17/2010 18:20 | Moep |#7

Quote:

Originally Posted by lolkop

�hm du hast statt einer in diesem fall besseren for schleife eine while schleife genommen, was anstatt in einer endlosschleife zu landen, beim nicht auffinden einer passenden primzahl zu einem array overflow f�hren wird.

es ist zwingen notwendig die schleife nur von 0-29 laufen zu lassen, da sonst $prim[29+] abgefragt wird, was nicht existiert. und aus effizienzgr�nden ist eine for schleife auch immer eine while schleife vorzuiziehen :P

Darauf hab ich gewartet. Und deine komische for...next do...until combo ist jetzt nach eingehenden tests von unabh�ngigen instituten die effektivste aller L�sungen?!

Au�erdem hab ich ihn darauf hingewiesen dass das Script abbricht, man k�nnte um das zu umgehen einfach folgendes einbauen.

Code:

Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]
$input = InputBox('Enter Number', 'Enter a number >= 1', 10)

$i = 0

While $input <> 1 [COLOR="Red"]And  $i <> UBound($prim)[/COLOR]
	
	if IsInt($input/$prim[$i]) Then
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"TRUE"&@CRLF)
		$input = $input/$prim[$i]
	Else
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"FALSE"&@CRLF)
		$i = $i+1
	EndIf
WEnd

09/17/2010 18:40 lolkop#8

Quote:
Originally Posted by | Moep |
Darauf hab ich gewartet. Und deine komische for...next do...until combo ist jetzt nach eingehenden tests von unabh�ngigen instituten die effektivste aller L�sungen?!

Au�erdem hab ich ihn darauf hingewiesen dass das Script abbricht, man k�nnte um das zu umgehen einfach folgendes einbauen.
Code:
Dim $prim[30] = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113]
$input = InputBox('Enter Number', 'Enter a number >= 1', 10)

$i = 0

While $input <> 1 [COLOR="Red"]And  $i <> UBound($prim)[/COLOR]
	
	if IsInt($input/$prim[$i]) Then
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"TRUE"&@CRLF)
		$input = $input/$prim[$i]
	Else
		ConsoleWrite($input&" / "&$prim[$i]&" = "&$input/$prim[$i]&@TAB&"FALSE"&@CRLF)
		$i = $i+1
	EndIf
WEnd

man kann man die effizienz von schleifen einfach durch ein tool testen:

Spoiler

dann erh�lt man auch vergleichszeiten, gegen die du jetz hoffentlich nichtmehr argumentieren wirst...

Code:

zeitaufwand durch direktes setzen: 88.125068968263ms
zeitaufwand durch For schleife: 105.610629283889ms
zeitaufwand durch While schleife: 221.581793216736ms
zeitaufwand durch Do schleife: 217.137094239631ms

um das ganze noch etwas deutlicher zu machen, kann man auch die for schleifen von 1-500 laufen lassen und erh�lt:

Code:

zeitaufwand durch direktes setzen: 1558.94142970685ms
zeitaufwand durch For schleife: 2349.61678090372ms
zeitaufwand durch While schleife: 4791.73023387051ms
zeitaufwand durch Do schleife: 4690.06843048488ms

aber auch mit reiner logik sollte klar sein das do until schleifen in diesem falle besser sind, da nach abschluss der aktion direkt ermittelt wird, ob weiter gemacht werden muss. bei der while schleife wird nocheinmal zu start gesprungen, und im falle der fertigen aktion hinter das ende gesprungen.

warum jetzt schleifen allgemein so inneffizient sind gegen �ber dem direkten setzen kann ich leider nicht sagen. das wurde von autoit leider schlecht umgesetzt, da eig for, do und direktes setzen genau gleiche zeiten haben m�ssten, da selber asm code...

09/17/2010 19:15 | Moep |#9

Quote:

Originally Posted by lolkop

erstens w�rde das immernoch zum fehler f�hren, da ubound die anzahl der elemente zur�ck gibt, was bei 0-29 leider 30 entspricht.. und auch element 30 existiert nicht.

Wenn du dir die Bedingung richtig angesehen h�ttest, dann w�re dir vielleicht auch aufgefallen dass die Schleife solange l�uft bis $i ungleich 30 ist, also von 0-29.
Au�erdem denke ich das mein Code doch bei weitem leserlicher ist als deiner, mag sein das deiner einen geschwindigkeitsvorteil hat. Jedoch stellt sich die Frage ob dem TS ein code der 100ms schneller oder einer der nachvollziehbar geschrieben ist, lieber ist.

09/17/2010 19:43 omer36#10

was sind den schon 100ms...

ich w�rde lieber einen script haben, wo ich auch durchblicke...
und nicht einfach kopiere und es abhacke...

es geht, und das z�hlt.. ^^

nochmal danke an euch beiden.

09/17/2010 21:53 lolkop#11

Quote:

Originally Posted by | Moep |

Wenn du dir die Bedingung richtig angesehen h�ttest, dann w�re dir vielleicht auch aufgefallen dass die Schleife solange l�uft bis $i ungleich 30 ist, also von 0-29.

da hast du nat�rlich recht =). habe das leider erst nach dem posten bemerkt und das auch direkt danach wieder gel�scht.

Quote:

Originally Posted by | Moep |

Au�erdem denke ich das mein Code doch bei weitem leserlicher ist als deiner, mag sein das deiner einen geschwindigkeitsvorteil hat. Jedoch stellt sich die Frage ob dem TS ein code der 100ms schneller oder einer der nachvollziehbar geschrieben ist, lieber ist.

�ber leserlichkeit will ich jetzt hier nicht streiten, aber zu dem effizienzvergleich kann ich nur sagen, das es sich halt nicht um 100ms handelt, sondern um doppelten aufwand und daraus resuliterende halbe geschwindigkeit.

mag sein das das manche leute nicht interessiert, ich w�rde aber beim schreiben von programmen immer effizienz an erste stelle setzen. und auch wenn du das vielleicht so verstanden hast, ich wollte dich damit ja nicht runter machen... wollte lediglich anmerken, dass das ganze auch deutlich effizienter geht.

gerade bei komplexen aufgaben wie diesen, macht das bei gro�en mengen an primzahlen schon einen deutlichen unterschied. und wie du schon selbst sagtest, mit diesen 30 primzahlen bekommt man bei weitem nicht alle zahlen aufgeteilt =)

habe die 30 zahlen auch nur aus [Only registered and activated users can see links. Click Here To Register...] �bernommen. wenn man in das array alle zahlen einf�gt, hat man im endeffekt mehrere sekunden geschwindigkeits unterschied.

wie dem auch sei ihr m�sst immer f�r euch wissen, was f�r euch das wichtigste ist =)

09/17/2010 22:28 omer36#12

ihr habt beide recht und punkt! :D

ich pers�nlich habe keine probleme wenn ich 1sec. mehr warten muss.....
ist bei jedem anders...

mein kleiner couseng hatt grad in der schule mit den primzahlen angefangen und da dachte ich mir, ich versuch mal so ein programm zu schreiben, und es ihm zu schicken,
(darum wollte ich auch soweit wie m�glich den l�sungsweg mit schreiben lassen..)

aber sowas ist wohl (noch) zu schwer f�r mich...
darum fand ich jetz | Moep | �s source "besser", indem sinne, weil ichs da besser sehen konnte, was was sein soll...
weil ich nicht einfach kopieren und abspeichern will, sondern auch lernen wie das gehen soll...

aber nochmal danke an euch. ^^

MfG

€achja.. hab etwas �ber 600primzahlen hinzugef�gt ^^
m�sste wohl inetwa reichen.. :D

09/18/2010 11:11 | Moep |#13

Quote:

Originally Posted by omer36

€achja.. hab etwas �ber 600primzahlen hinzugef�gt ^^
m�sste wohl inetwa reichen.. :D

Huh... Is ja nen ganzer Haufen Primzahlen geworden. Wie lange braucht da mein Script f�r? Ich will jetzt keinen neuen Vergleich antreten, es interresiert mich nur ;)

@lolkop, Kennst du den Spruch "Make It Work Make It Right Make It Fast" von KentBeck. ;) Nat�rlich ist es von enormen Vorteil bei einer komplexen Berechnung einen leistungsf�higen Algo zur Hand zu haben, das m�chte ich nicht Bestreiten. Jedoch stellt sich auch die Frage nch Aufwand und Nutzen. Vielleicht kommt ja der TS irgendwann mal in die Versuchung Zahlen im breich jenseits der 32bit zu berechnen. Dann w�rde ich ihm auch dringend zu einem anderen algo raten ;)

Btw. w�re in dem Fall nicht ein rekursiver funktionsaufruf der performanteste?! Das Problem bei h�heren Zahlen w�re dann wohl nur der �berlaufende Stack... :o

09/18/2010 11:18 omer36#14

ich hatte vorher nat�rlich gegooglt bevor ichs hier gefragt habe und hatte aus nen anderen forum nen script gefunden, der "19562" primzahlen in eine .ini abgespeichert und nummeriert hatt... hab dann einfach die ersten 600+ genommen ^^

€um es genauer zu sagen, habe ich 644 primzahlen genommen, weil mehr in eine zeile nicht rein passen und eine fehlermeldung kommt :D
und die m�ssten ja wohl erstmal reichen... ^^

09/18/2010 11:48 | Moep |#15

LeechTime..
Interresant wie das Problem hier ge�st wurde ;):
[Only registered and activated users can see links. Click Here To Register...]

Code:

ConsoleWrite( _GetPrimeFactors(123456) & @CRLF)

Func _GetPrimeFactors($n)
    Local $F = ObjCreate("System.Collections.ArrayList")
    While Mod($n,2) == 0
        $F.add(2)
        $n = $n/2
    WEnd
    While Mod($n,3) == 0
        $F.add(3)
        $n = $n/3
    WEnd
    Local $t = 5
    Local $diff = 2
    While $t*$t <= $n
        While Mod($n,$t) == 0
            $F.add($t)
            $n = $n/$t
        WEnd
        $t = $t + $diff
        $diff = 6 - $diff
    WEnd
    If $n > 1 Then $F.add($n)
    Local $out = ''
    For $element In $F
        $out &= $element & ','
    Next
    Return StringTrimRight($out, 1)
EndFunc

Hier sieht man wie die Primzahlen z.B. auch generiert werden k�nnten.
[Only registered and activated users can see links. Click Here To Register...]

Code:

MsgBox("","",GetPrim(10000))

Func GetPrim($MaxZ, $Delim = ' ')
    If ($MaxZ < 2) Then Return 0
    If ($MaxZ = 3) Then Return 2
    Dim $Flag[$MaxZ + 1], $Prim = 2 & $Delim
    For $i = 1 To $MaxZ Step 2
        $Flag[$i] = 1
    Next
    For $i = 3 To $MaxZ Step 2
        If ($Flag[$i]) Then
            For $e = ($i ^ 2) To $MaxZ Step $i
                $Flag[$e] = 0
            Next
            $Prim &= $i & $Delim
        EndIf
    Next
    Return $Prim
EndFunc   ;==>GetPrim

Page 1 of 2