calcul de la force centrifuge d'un objet

dim M,V,R,F,P
label Calcul

caption 0,"Force Centrifuge":width 0,370:height 0,300
alpha 1:top 1,20 :left 1,20:caption 1,"Masse de l'objet en kg :"      :font_name 1,"Arial"
alpha 2:top 2,70 :left 2,20:caption 2,"Vitesse de l'objet en M/s :"  :font_name 2,"Arial"
alpha 3:top 3,120:left 3,20:caption 3,"Rayon de la courbe en Mètres :":font_name 3,"Arial"
scroll_bar 4:top 4,40 :left 4,20:width 4,200:min 4,0:max 4,40000:on_change 4,Calcul
scroll_bar 5:top 5,90 :left 5,20:width 5,200:min 5,0:max 5,250  :on_change 5,Calcul
scroll_bar 6:top 6,140:left 6,20:width 6,200:min 6,0:max 6,200  :on_change 6,Calcul
alpha 7:top 7,42 :left 7,230:caption 7,"0 kg"  :font_name 7,"Arial"
alpha 8:top 8,92 :left 8,230:caption 8,"0 M/s":font_name 8,"Arial"
alpha 9:top 9,142:left 9,230:caption 9,"0 M"  :font_name 9,"Arial"

alpha 10:top 10,180:left 10,20:caption 10,"Force centrifuge en Newton :"
font_name 10,"Arial":font_size 10,14
alpha 11:top 11,210:left 11,20:caption 11,""
font_name 11,"Times new roman":font_size 11,14:font_color 11,255,0,0

end

Calcul:
M=position(4):V=position(5):R=position(6)
caption 7,str$(position(4))+" kg"
caption 8,str$(position(5))+" km/h ou "+str$(int(V*1000/3600))+","+str$(int(frac(V*1000/3600)*100))+" M/s"
caption 9,str$(position(6))+" M"
if R<>0 and V<>0 and M<>0
  F=(power((V*1000/3600),2)*M)/R
  P=F/9.81
  caption 11,str$(int(F))+","+str$(int(frac(F)))+" N ou "+str$(int(P))+","+str$(int(frac(P)))+" Kg Force"
else
  caption 11,""
end_if
return