crystalradio.frink

View or download crystalradio.frink in plain text format


// Crystal radio design tool

// Allow u prefix for micro
u :- micro

f1 = "1190 kHz"

f = eval[input["Enter desired frequency: ", f1]]

w = 2 pi f

L = eval[input["Enter coil inductance: "]]

C = 1/(L w^2)

formatCapacitance[c] := format[c, c < 1 uF ? "nanofarads" : "microfarads", 5]
capacitance :-> formatCapacitance

println["Capacitance: $C"]


View or download crystalradio.frink in plain text format


This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 17592 days, 6 hours, 29 minutes ago.