Folks,

Can't see to get ff= to show just a single value ?

I would like to input with a slider a vlaue (with units) and let it dynamiclly update in other equations (MAthCAD Like ?)

Please take a look at my code--any help would be greatly appreciated.

ClearAll["Global`*"]


II = t h^3/12;
Kbeam = 3 Esteel II/(l^3);
keff = 2*Kbeam (* two uprights *);
Print ["\!\(\*SubscriptBox[\(I\), \(beam\)]\)=", 
 TraditionalForm[II], ", \!\(\*SubscriptBox[\(K\), \(beam\)]\)=", 
 TraditionalForm[
  Kbeam], ", \!\(\*SubscriptBox[\(K\), \(eff\)]\)=", keff]
m = Quantity[10., "Pounds"];
r = Quantity[5., "Feet"]
g = Quantity[32., "Feet"/"Seconds"^2];
t = Quantity[8., "Inches"];
l = Quantity[9., "Feet"]*Quantity[12., "Inches"/"Feet"];
h = Quantity[16., "Inches"];


Esteel = Quantity[30. 10^6, "PoundsForce"/"Inches"^2];
Print["g=", g, ", t=", t, ", l=", l, ", h=", h, ", \
\!\(\*SubscriptBox[\(E\), \(steel\)]\)=", Esteel]
Print["\!\(\*SubscriptBox[\(I\), \(beam\)]\)=", II, ", keff=", 
 ScientificForm[keff, 3]]
Print["keff=", UnitConvert[Quantity[keff], "Newtons"/"Meters"]]
Slider[Dynamic[v0]]
Print ["v=", v = Dynamic[v0]*Quantity[1., "Feet"/"Seconds"]]
ff = m*(v^2)/r;
Print ["ff= ", ff]
Print["Why above is not solving ? for actual number ? The quantities \
are correct"]

Regards,

John