江恩轮中轮（新画法）(飞狐)

{江恩轮中轮}
a1:=前M个波谷位置(2,0.1,1);
a2:=前M个波峰位置(1,0.1,1);
光标位置:=系统参数(1);
cldis:=a1[系统参数(1)];
chdis:=a2[系统参数(1)];
tcl:=光标位置-cldis;
tch:=光标位置-chdis;
K1:=IF(tcl>tch,tcl,tch);
PH:=H;
PL:=L;
P1:=IF(tcl>=tch,PL[tcl+0],PH[tch+0]);
VERTLINE(数据位置=K1),COLORYELLOW,LINEDOT;
{DRAWTEXT(数据位置=K1,SYSPARAM(4)*0.95,'转\n \n折\n \n点'),COLORYELLOW;}
IF tcl>=tch THEN BEGIN
画分段线(数据位置>K1,P1*1.042),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.042,' 15° '+数字转化为字符串(P1*1.042,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.083),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.083,' 30° '+数字转化为字符串(P1*1.083,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.125),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.125,' 45° '+数字转化为字符串(P1*1.125,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.167),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.167,' 60° '+数字转化为字符串(P1*1.167,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.208),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.208,' 75° '+数字转化为字符串(P1*1.208,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.25),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.25,' 90° '+数字转化为字符串(P1*1.25,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.292),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.292,' 105° '+数字转化为字符串(P1*1.292,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.33),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.33,' 120° '+数字转化为字符串(P1*1.33,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.375),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.375,' 135° '+数字转化为字符串(P1*1.375,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.417),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.417,' 150° '+数字转化为字符串(P1*1.417,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.458),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.458,' 165° '+数字转化为字符串(P1*1.458,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.5,' 180° '+数字转化为字符串(P1*1.5,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.542),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.542,' 195° '+数字转化为字符串(P1*1.542,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.583),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.583,' 210° '+数字转化为字符串(P1*1.583,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.625),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.625,' 225° '+数字转化为字符串(P1*1.625,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.667),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.667,' 240° '+数字转化为字符串(P1*1.667,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.708),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.708,' 255° '+数字转化为字符串(P1*1.708,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.75),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.75,' 270° '+数字转化为字符串(P1*1.75,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.792),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.792,' 285° '+数字转化为字符串(P1*1.792,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.833),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.833,' 300° '+数字转化为字符串(P1*1.833,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.875),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.875,' 315° '+数字转化为字符串(P1*1.875,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.917),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.917,' 330° '+数字转化为字符串(P1*1.917,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*1.958),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*1.958,' 345° '+数字转化为字符串(P1*1.958,3)),COLORYELLOW;
画分段线(数据位置>K1,P1*2),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1*2,' 360° '+数字转化为字符串(P1*2,3)),COLORYELLOW;
END;
{ELSE BEGIN}
IF tcl<tch THEN BEGIN
画分段线(数据位置>K1,P1-P1*0.042),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.042,' 15° '+数字转化为字符串(P1-P1*0.042,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.083),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.083,' 30° '+数字转化为字符串(P1-P1*0.083,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.125),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.125,' 45° '+数字转化为字符串(P1-P1*0.125,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.167),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.167,' 60° '+数字转化为字符串(P1-P1*0.167,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.208),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.208,' 75° '+数字转化为字符串(P1-P1*0.208,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.25),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.25,' 90° '+数字转化为字符串(P1-P1*0.25,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.292),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.292,' 105° '+数字转化为字符串(P1-P1*0.292,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.33),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.33,' 120° '+数字转化为字符串(P1-P1*0.33,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.375),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.375,' 135° '+数字转化为字符串(P1-P1*0.375,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.417),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.417,' 150° '+数字转化为字符串(P1-P1*0.417,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.458),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.458,' 165° '+数字转化为字符串(P1-P1*0.458,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.5),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.5,' 180° '+数字转化为字符串(P1-P1*0.5,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.542),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.542,' 195° '+数字转化为字符串(P1-P1*0.542,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.583),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.583,' 210° '+数字转化为字符串(P1-P1*0.583,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.625),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.625,' 225° '+数字转化为字符串(P1-P1*0.625,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.667),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.667,' 240° '+数字转化为字符串(P1-P1*0.667,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.708),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.708,' 255° '+数字转化为字符串(P1-P1*0.708,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.75),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.75,' 270° '+数字转化为字符串(P1-P1*0.75,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.792),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.792,' 285° '+数字转化为字符串(P1-P1*0.792,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.833),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.833,' 300° '+数字转化为字符串(P1-P1*0.833,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.875),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.875,' 315° '+数字转化为字符串(P1-P1*0.875,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.917),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.917,' 330° '+数字转化为字符串(P1-P1*0.917,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1*0.958),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1*0.958,' 345° '+数字转化为字符串(P1-P1*0.958,3)),COLORYELLOW;
画分段线(数据位置>K1,P1-P1),COLOR00CCFF,LINEDOT;
显示文字(数据位置=K1,P1-P1,' 360° '+数字转化为字符串(P1-P1,3)),COLORYELLOW;
END;

202108211233.png