casio4800 卵形曲线计算_secret.doc

CASIO4800 卵形曲线计算 IN L N:M”K0”:L”K1”:E”R0”:S”R1”:F”-1,1”:A:U”N0”:W”E0”:V=1:Z=21:Z[18]=N Z[Z]=U:Z[Z+1]=W:Z[Z+2]=M:Z[Z+3]=L:Z[Z+4]=E:Z[Z+5]=S:Z[Z+6]=F:Z[Z+7]=A LbI 4:V ≠ Z[18] =GOTO 5: ≠=GOTO 6 LbI 5:Z=Z+8 H=1/E:K=1/S:I=0:T=(L-M)/8:O=0:P=0:J=0:D=0:Q=0 LbI 3:I7 = GOTO 1: ≠=GOTO 2 LbI 1:N=M+T(I+1):G=H+(K-H)(N-M)/(L-M):B=A+F*90(G+H)(N-M)/∏:O=O+Cos B:P=P+Sin B: J=J+2:N=M+TJ:G=H+(K-H)(N-M)/(L-M):C=A+F*90(G+H)(N-M)/ ∏:D=D+Cos C:Q=Q+Sin C: I=I+2:GOTO 3 LbI 2:D=D-Cos C:Q=Q-Sin C:X=U+(L-M)/4/6*(Cos A+4O+2D+Cos C): Y=W+(L-M)/4/6*(Sin A+4P+2Q+Sin C) Z[Z]=X:Z[Z+1]=Y:Z[Z+7]=C:Z[Z+2]=Z[Z+3-8]:Z[Z+4]=Z[Z+5-8]:{L,S,F}:L”K1…”: S”R1…”:F”-1,1…”:Z[Z+3]=L:Z[Z+5]=S:Z[Z+6]=F:U=Z[Z]:W=Z[Z+1]:M=Z[Z+2]: E=Z[Z+4]:A=Z[Z+7]:V=V+1:GOTO 4 LbI 6:”END” RUN L U”NH”:W”EH”:X”NZ”:Y”EZ”:LbI 4:Z=21:{O,T}:O”K”:T”-,+ Z” LbI 5:O≤Z[Z+3] =GOTO 6: ≠=Z=Z+8 △ Z(21+8Z[18]) =GOTO 7: ≠=GOTO 5 LbI 6:M=Z[Z+2]:L=Z[Z+3]:E=Z[Z+4]:S=Z[Z+5]:F=Z[Z+6]:A=Z[Z+7]:Z[1]=Z[Z]: Z[2]=Z[Z+1] H=1/E:K=1/S:Z[13]=0:Z[7]=(O-M)/8:Z[8]=0:P=0:Z[14]=0:D=0:Q=0 LbI 3:Z[13]7 =GOTO 1: ≠=GOTO 2 LbI 1:N=M+Z[7](Z[13]+1):G=H+(K-H)(N-M)/(L-M):B=A+F*90(G+H)(N-M)/ ∏: Z[8]=Z[8]+Cos B:P=P+Sin B:Z[14]=Z[14]+2:N=M+Z[7]*Z[14]:G=H+(K-H)(N-M)/(L-M): C=A+F*90(G+H)(N-M)/ ∏:D=D+Cos C:Q=Q+Sin C:Z[13]=Z[13]+2:GOTO 3 LbI 2:D=D-Cos C:Q=Q-Sin C:Z[5]=Z[1]+(O-M)/4/6*(Cos A+4Z[8]+2D+Cos C): Z[6]=Z[2]+(O-M)/4/6*(Sin A+4P+2Q+Sin C): Z[3]”N”=Z[5]+Abs(T)Cos(C+90*(T+0.0001)/Abs(T+0.0001)) ▲ Z[4]”E”=Z[6]+Abs(T)Sin(C+90*(T+0.0001)/Abs(T+0.0001)) ▲ Pol((U-X),(W-Y)):Z[9]=J Pol((Z[3]-X),(Z[4]-Y)):Z[10]”L”=I▲ Z[11]=J Z[9]≤Z[11] =Z[12]”O”=Abs(Z[9]-Z[11]) ▲ ≠=Z[12]”O”=360-(Z[9]-Z[11]) ▲△GOTO 4 LbI 7:”OUT” 使用说明： IN L为曲线要素输入程序。其中每个字母说明如下： N：变化曲线个数 K0：第一个曲线起点里程 K1：第一个曲线止点里程 R0：第一个曲线起点半径（如是直线输入1E20或100000） R1：第一个曲线止点半径（如是直线输入1E20或100000） -1，1：曲线左转为“-1”，右转为“1” A：第一个曲线起点切线方位角 N0：第一个曲线起点N座标 E0：第一个曲线起点E座标 K1…：第n个曲线的止点里程 R1…：第n个曲线的止点半径（如是直线输入1E20或100000） -1，1…：第n个曲线的转角判别（左转为“-1”，右转为“1” ） RUN L为曲线结果计算程序。其中每个字母说明如下： NH：后视点N座标 EH：后视点E座标 NZ：置仪点N座标 EZ：置仪点E座标 K：计算点里程 -，+ Z：计算点至中桩的距离（左负右正，中桩输0） N：计算点