技术支持
AI小西
风驰卡
产品入门
在线产品选型
售后登记和质保查询
备件商城
ASP工程师验证
ASP公司证书验证
售后服务常见问题
首页
售前文档（样本、宣传册等） 
售后文档（FAQ、手册等）
首页
立即开通1847会员
标准机型应用中心
首页
教室培训课
取证训练营
在线自学课
认证证书查询
培训伙伴验证
首页
最新发帖
精华帖
发新帖
已解决问题
精华常见问题
官方商城
西门子中国
白金
本版热门话题
相关推荐
相关帖子推荐
恭喜，你发布的帖子
发布于 2020-09-09 11:42:57
16楼
进一步完美程序，要在WINCC上显示5个激光测距的位置。
FUNCTION FC28 : VOID
VAR_TEMP
x2_tan:REAL;
x2_cos:REAL;
y2_tan:REAL;
y2_cos:REAL;
AA:REAL;
BB:REAL;
CC:REAL;
sin_a:REAL;
cos_a:REAL;
a_into:REAL;
kk1:REAL;
kk2:REAL;
kk3:REAL;
mm1:REAL;
mm2:REAL;
mm3:REAL;
Mandrel_Z0:REAL;
Mandrel_Z1:REAL;
Mandrel_R:REAL;
Mandrel_a:REAL;
x0:REAL;
x1:REAL;
END_VAR
// Statement Section
// Block Parameters
VAR_INPUT
// Input Parameters
Mandrel_D:REAL;
Mandrel_P:REAL;
runningbeam_Pos:REAL;
lase1_value:REAL;
lase2_value:REAL;
END_VAR
VAR_OUTPUT
Mandrel_E:REAL; // Output Parameters
Mandrel_x2:REAL;
Mandrel_y2:REAL;
E_1:REAL;
E_2:REAL;
E_3:REAL;
E_4:REAL;
E_5:REAL;
END_VAR
BEGIN
IF runningbeam_Pos>500.0 AND runningbeam_Pos<505.0 THEN x0:=lase1_value;x1:=lase2_value;E_1:=Mandrel_E; END_IF;
IF runningbeam_Pos>1000.0 AND runningbeam_Pos<1005.0 THEN x0:=lase1_value;x1:=lase2_value;E_2:=Mandrel_E; END_IF;
IF runningbeam_Pos>1500.0 AND runningbeam_Pos<1505.0 THEN x0:=lase1_value;x1:=lase2_value;E_3:=Mandrel_E; END_IF;
IF runningbeam_Pos>2000.0 AND runningbeam_Pos<2005.0 THEN x0:=lase1_value;x1:=lase2_value;E_4:=Mandrel_E; END_IF;
IF runningbeam_Pos>3000.0 AND runningbeam_Pos<3005.0 THEN x0:=lase1_value;x1:=lase2_value; E_5:=Mandrel_E; END_IF;
Mandrel_a:=53.0;
Mandrel_R:=(Mandrel_D-Mandrel_P)/2;
a_into:=Mandrel_a*3.1415926/180;
sin_a:=SIN(a_into);
cos_a:=COS(a_into);
mm1:=(Mandrel_R+Mandrel_Z1)*cos_a-(Mandrel_R+Mandrel_Z0);
mm2:=(Mandrel_R+Mandrel_Z1)*sin_a;
mm3:=mm1/mm2;
x2_tan:=ATAN(mm3);
//x2_tan:=ATAN(((Mandrel_R+Mandrel_Z1)*(Mandrel_R+Mandrel_Z0)*cos_a)/((Mandrel_R+Mandrel_Z1)*sin_a));
kk1:=(Mandrel_R+Mandrel_Z0)*(Mandrel_R+Mandrel_Z0);
kk2:=(Mandrel_R+Mandrel_Z1)*(Mandrel_R+Mandrel_Z1);
kk3:=2*(Mandrel_R+Mandrel_Z0)*(Mandrel_R+Mandrel_Z1)*cos_a;
AA:=kk1+kk2-kk3;
BB:=SQRT(AA);
CC:=BB/(2*Mandrel_R);
x2_cos:=ACOS(CC);
Mandrel_x2:=Mandrel_R*COS(x2_tan-x2_cos);
Mandrel_y2:=Mandrel_R+Mandrel_Z0+Mandrel_R*SIN(x2_tan-x2_cos);
Mandrel_E:=SQRT(Mandrel_x2*Mandrel_x2+Mandrel_y2*Mandrel_y2);
IF Mandrel_D=270.0 THEN
Mandrel_Z0:=1278-x0;
Mandrel_Z1:=1493.7-x1;// Statement Section
END_IF;
IF Mandrel_D=300.0 THEN
Mandrel_Z0:=1263-x0;
Mandrel_Z1:=1478.7-x1;// Statement Section
END_IF;
IF Mandrel_D=330.0 THEN
Mandrel_Z0:=1248-x0;
Mandrel_Z1:=1463.7-x1;// Statement Section
END_IF;
IF Mandrel_D=350.0 THEN
Mandrel_Z0:=1238-x0;
Mandrel_Z1:=1453.7-x1;// Statement Section
END_IF;
IF Mandrel_D=375.0 THEN
Mandrel_Z0:=1225.5-x0;
Mandrel_Z1:=1441.2-x1;// Statement Section
END_IF;
IF Mandrel_D=400.0 THEN
Mandrel_Z0:=1213-x0;
Mandrel_Z1:=1428.7-x1;// Statement Section
END_IF;
IF Mandrel_D=420.0 THEN
Mandrel_Z0:=1203-x0;
Mandrel_Z1:=1418.7-x1;// Statement Section
END_IF;
IF Mandrel_D=450.0 THEN
Mandrel_Z0:=1188-x0;
Mandrel_Z1:=1403.7-x1;// Statement Section
END_IF;
IF Mandrel_D=480.0 THEN
Mandrel_Z0:=1173-x0;
Mandrel_Z1:=1388.7-x1;// Statement Section
END_IF;
IF Mandrel_D=510.0 THEN
Mandrel_Z0:=1158-x0;
Mandrel_Z1:=1373.7-x1;// Statement Section
END_IF;
IF Mandrel_D=550.0 THEN
Mandrel_Z0:=1138-x0;
Mandrel_Z1:=1353.7-x1;// Statement Section
END_IF;
IF Mandrel_D=575.0 THEN
Mandrel_Z0:=1125.5-x0;
Mandrel_Z1:=1341.2-x1;// Statement Section
END_IF;
IF Mandrel_D=600.0 THEN
Mandrel_Z0:=1113-x0;
Mandrel_Z1:=1328.7-x1;// Statement Section
END_IF;
IF Mandrel_D=620.0 THEN
Mandrel_Z0:=1103-x0;
Mandrel_Z1:=1318.7-x1;// Statement Section
END_IF;
if Mandrel_D=650 then
Mandrel_Z0:=1088-x0;
Mandrel_Z1:=1303.7-x1;// Statement Section
END_IF;
END_FUNCTION
请填写推广理由：
分享
只看
楼主
