Download or view 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"]
Download or view 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 19973 days, 3 hours, 31 minutes ago.