Deze functie zet een decimaal getal om naar een binaire reeks:
/*
##############
# Simpele functie om een decimaal getal om te zetten naar een binaire waarde
#
# Let op met even getallen > 255 Deze functie maakt een binair getal uit machten
# van 10 en zodra je > 10^8 komt gaat FM over op wetenschappelijke notatie
# Dit kan je voorkomen door te zorgen dat het getal altijd oneven is. Na de
# omrekening zet je getal om naar tekst en je vervang indien je het zelf oneven
# hebt gemaakt, de laatste 1 weer voor een 0. Dit gaat goed tot 2^54 – 1
##############
*/
Let ( [
n = Int ( dec ) ;
p = Int( Ln ( n ) / Ln ( 2 ) )
] ;
Case ( n > 0 ; 10^p + dec2bin ( n – 2^p ) )
)
(bij kopiëren vanuit je browser zullen mintekens (-) en quotes ( “” ) verkeerd worden geplakt, vervang die tekens na het plakken voor de juiste)
In het artikel over recursie hier op FileMakerTips staat de werking van deze functie (en de totstandkoming) precies beschreven