1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

Erweiterter Euklidischer Algorithmus

Dieses Thema im Forum "OS X-Developer" wurde erstellt von mac@engelthal, 20.03.08.

  1. mac@engelthal

    mac@engelthal Tydemans Early Worcester

    Dabei seit:
    15.03.07
    Beiträge:
    388
    Hallo zusammen,
    kann mir jemand helfen, diesen Algorithmus in Apple Script zu formulieren? Wäre echt cool, wenn mir da jemand helfen könnte.
    Gruß,
    --Alex
     
  2. mac@engelthal

    mac@engelthal Tydemans Early Worcester

    Dabei seit:
    15.03.07
    Beiträge:
    388
    Habe die Lösung gefunden:

    Code:
    on extEucl(a, b)
    	set aa to a
    	set bb to b
    	
    	set x0 to 1
    	set x1 to 0
    	set y0 to 0
    	set y1 to 1
    	
    	set x to 0
    	set y to 1
    	
    	if b = 0 then
    		set x to 1 --Alpha
    		set y to 0 --Beta
    		set b to a --gcD
    	else
    		set q to a div b
    		set r to a mod b
    		
    		repeat while r is not 0
    			set x to x0 - q * x1
    			set y to y0 - q * y1
    			
    			set x0 to x1
    			set y0 to y1
    			
    			set x1 to x
    			set y1 to y
    			
    			set a to b
    			set b to r
    			
    			set q to a div b
    			set r to a mod b
    		end repeat
    	end if
    	
    	if x < 0 then
    		set x to bb + x
    		set y to (1 - aa * x) / bb
    	end if
    	
    	return x
    end extEucl
     

Diese Seite empfehlen