#Closerequest
ist doch extrem einfach umzusetzen...Quote:
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.
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