|
|
|
程序文件名DT-------单、凸曲线测量程序<br>Lbl 1<br>A“(1)JD,(2)JD(AB)”G“(1)IR,(2)IL”:M“X(00)”:N“Y(00)”:K“K(D0)”:I“X(D0)”:J“Y(DO)”<br>G=2=>G=-1▽<br>A=2=>Goto 3▽<br>Lbl 2<br>B“X(JD1)”:C“Y(JD1)”:O“X(JD2)”:P“Y(JD2)”<br>Goto 4<br>Lbl 3<br>S“X(JDA)”:T“Y(JDA)”:U“X(JDB)”:V“Y(JDB)” :O“X(JD2)”:P“Y(JD2)”<br>X=(J-T)/(I-S)<br>Y=J-IXZ=(V-P)/(U-O)<br>B“X(JD1)”=(V-UZ-Y)/(X-Z) ◢<br>C“Y(JD1)”=BX+Y◢<br>Lbl 4<br>Pol((B-I),(C-J)) ▽<br>D=I+KJ<0=>J=J+360▽<br>F=JLbl 5Pol((O-B),(P-C)) <br>J<0=>J=J+360▽<br>A=G(J-F)<br>A<o=>J=J+360▽<br> |
|