Mathe Programm [Hilfe]

[.-FreeZer-.]

#Closerequest

[lolkop]

Zwei Strecken stehen im Verhältnis des Goldenen Schnittes, wenn sich die grössere zur kleineren verhält wie die Summe aus beiden zur grösseren.

ist doch extrem einfach umzusetzen...

Func IstGoldenerSchnitt($a,$b)
	If $a>$b And $a/$b=($a+$b)/$a Then Return True
	If $a<$b And $b/$a=($a+$b)/$b Then Return True
	Return False
EndFunc

[.-FreeZer-.]

#closerrequest