(* 要提升1KG 的物体，以0 .3 米/秒的速度的提升，步进电机如何选型？ 如果不是克服重力则F=M*A 力越大加速度越大 *)
Clear["Global"]
qua = 0.2;(* 输入 quality = 1kg *)
Tao = qua*9.8;
mps = 0.2;(* 输入 0.3 M/S *)
dia = 0.01;(* 1cm=0.01M 直径 *)
circu = Pi*dia;   (* 周长 *)
wr = mps/circu ; (* rad/S *)
rpm = wr*60/(2*Pi);
PowerMotor = Tao*rpm;
Print["\!\(\*
StyleBox[\"输入\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"-\",\nFontColor->RGBColor[1, 0, 1]]\)"]
Print["\!\(\*
StyleBox[\"输入质量\",\nFontColor->RGBColor[1, 0, 1]]\)(kg) = ", qua]
Print["\!\(\*
StyleBox[\"输入要求速度\",\nFontColor->RGBColor[1, 0, 1]]\)(M/S) = ", mps]
Print["周长(M) = ", circu]
Print["\!\(\*
StyleBox[\"要求\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"-\",\nFontColor->RGBColor[1, 0, 1]]\)"]
Print["转矩(N.M) = ", Tao]
Print["radps = ", wr, "   rpm = ", rpm]
Print["\!\(\*
StyleBox[\"功率\",\nFontColor->RGBColor[0, 0, 1]]\)(W) = ", PowerMotor]

 

 

(* 如果不是克服重力则F=M*A 力越大加速度越大 *)
Clear["Global"]
qua = 0.3; (* kg *)
velocity = 0.5;  (* M/s  or  rad/s *)
acctime = 0.3;  (* 加速时间 *)
acc = velocity/acctime;  (* M/s^2    or  raq/s^2 *)
Tao = qua*acc;
Print["\!\(\*
StyleBox[\"输入\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"-\",\nFontColor->RGBColor[1, 0, 1]]\)"]
Print["速度(M/s) = ", velocity, "   加速时间 acctime(s) = ", acctime]
Print["acc(M/s^2) = ", acc]
Print["\!\(\*
StyleBox[\"要求\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"--\",\nFontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"-\",\nFontColor->RGBColor[1, 0, 1]]\)"]
Print["转矩(N.M) = ", Tao]