Mit diesem kleinen Prog kann man für einen eingegeben Wert den dazu entsprechenden kleineren Funktionswert errechnen.
Der Button "Ganzzahlig" kopiert den Wert ohne die Nachkommastellen in den Zwischenspeicher.
Spoiler anzeigen
#include <GuiConstants.au3>
#NoTrayIcon
GUICreate("Goldener Schnitt",225,110)
$input = GUICtrlCreateInput("",5,5,215,20,$ES_NUMBER)
GUICtrlCreateLabel("Wert:",5,30,40,25)
$erg = GUICtrlCreateLabel("",45,30,150,25)
$Erzeugen = GUICtrlCreateButton("Erzeugen",5,50,100,25)
$Beenden = GUICtrlCreateButton("Beenden",120,80,100,25)
$str_v = GUICtrlCreateButton("Zwischenablage",120,50,100,25)
$str_v_2 = GUICtrlCreateButton("Ganzzahlig",5,80,100,25)
GUISetState(@SW_SHOW)
While 1
$msg=GUIGetMsg()
Select
Case ( $msg = $GUI_EVENT_CLOSE ) Or ( $msg = $Beenden )
ende()
Case $msg = $str_v
to_clipboard()
Case $msg = $Erzeugen
berechnen()
Case $msg = $str_v_2
to_clipboard_2()
EndSelect
Sleep(10)
WEnd
Func ende()
Exit
EndFunc
Func berechnen()
GUICtrlSetData($erg,GUICtrlRead($input)/1.618033988)
EndFunc
Func to_clipboard()
ClipPut(GUICtrlRead($erg))
endfunc
Func to_clipboard_2()
ClipPut(Int(GUICtrlRead($erg)))
endfunc