卡西欧5800完整程序

《卡西欧5800完整程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、卡西欧5800计算程序（请仔细核对）（程序输完毕后记得先在普通模式扩展变量，输入：35→Dimz，按EXE键，出现Done,扩展成功）ZHYHZ（不运行，该程序为主线坐标的计算程序）E2÷24÷R→Z[1]:E÷2-E^（3）÷(240R2)→Z[2]:F2÷24÷R→Z[3]:F÷2-F^3÷(240R2)→Z[4]:(R+Z[1])tan(H÷2)+Z[2]-（Z[1]-Z[3])÷sin（H）→Z[5]：(R+Z[3])tan(H÷2)+Z[4]+(Z[1]-Z[3])÷sin(H)→Z[6]:ta

2、n-1((R+Z[1])÷(Z[5]-Z[2]))→Z[7]:tan-1((R+Z[3])÷(Z[6]-Z[4]))→Z[8]:E÷R×90°÷π→Z[9]:F÷R×90°÷π→Z[10]:G+DH→Z[11]:A-Z[5]→Z[12]:Z[12]+E→Z[13]:Z[13]+(90°-Z[7]-Z[9])Rπ÷180°→Z[14]:Z[13]+(H-Z[9]-Z[10])Rπ÷180°→Z[15]:Z[15]+F→Z[16]:B+Z[5]cos(G-180°)→Z[17]:C+Z[5]sin(G-180

3、°)→Z[18]:B+Z[6]cos（Z[11]）→Z[19]:C+Z[6]sin（Z[11]）→Z[20]←┚IfK≤Z[14]:ThenE→Q:K-Z[12]→L:ElseF→Q:Z[16]-K→L:IfEnd←┚IfK≤Z[12]:ThenGoto1：ElseIfK＞Z[12]AndK≤Z[13]:ThenGoto2:ElseIfK＞Z[13]AndK≤Z[14]:ThenGoto3:ElseIfK＞Z[14]AndK≤Z[15]:ThenGoto4:ElseIfK＞Z[15]AndK≤Z[16]:

4、ThenGoto5:ElseIfK＞Z[16]:ThenGoto6:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd←┚LbI1:G→Z[26]:Z[17]-Lcos(G-180°)→Z[21]:Z[18]-Lsin(G-180°)→Z[22]:Goto9←┚LbI2:L-L^5÷(40R2Q2)→Z[23]:L^（3）÷(6RQ)-L^（7）÷(336R^（3）Q^（3）)→Z[24]:G+DL2×90°÷(QRπ)→Z[26]:Goto7←┚LbI3:(L-Q)×180°÷(Rπ

5、)+Z[9]→Z[25]:Rsin（Z[25]）+Z[2]→Z[23]:R(1-cos（Z[25])）+Z[1]→Z[24]:G+DZ[25]→Z[26]:Goto7←┚LbI4:(L-Q)×180°÷(Rπ)+Z[10]→Z[25]:Rsin（Z[25]）+Z[4]→Z[23]:R(1-cos（Z[25]）)+Z[3]→Z[24]:Z[11]-DZ[25]→Z[26]:Goto8←┚LbI5:L-L^5÷(40R2Q2)→Z[23]:L^（3）÷(6RQ)-L^7÷(336R^（3）Q^（3）)→Z[2

6、4]:Z[11]-DL2×90°÷(QRπ)→Z[26]:Goto8←┚LbI6:Z[11]→Z[26]:Z[19]-L×cosZ[11]→Z[21]:Z[20]-Lsin（Z[11]）→Z[22]:Goto9←┚LbI7:Z[17]+Z[23]cos（G）+Z[24]cos(G+D×90°)→Z[21]:Z[18]+Z[23]sin（G）+Z[24]sin（G+D×90°)→Z[22]:Goto9←┚LbI8:Z[19]+Z[23]cos(Z[11]+180°)+Z[24]cos(Z[11]+D×90°

7、)→Z[21]:Z[20]+Z[23]sin(Z[11]+180°)+Z[24]sin（Z[11]+D×90°)→Z[22]:Goto9←┚LbI9:＂JJ＂?N:＂PJ＂?P:＂X=＂：Z[21]+Pcos(z[26]+N)→X◢＂Y=＂:Z[22]+Psin(Z[26]+N)→Y◢＂QXFWJ=＂:Z[26]DMS◢←┚ZXZB（该程序为主线程序，只运行该程序）＂CZX＂?S:＂CZY＂?W←┚LbI0:＂K＂?K:IfK＜54074.263（第1条曲线的终点桩号带大桩号，也就是是缓直点桩号，下面同上

8、）:ThenGotoA：ElseIfK＜56247.409（第2条曲线的终点桩号带大桩号）AndK≥54074.263（第1条曲线的终点桩号带大桩号）:ThenGotoB:ElseIfK＜58007.266AndK≥56247.409:ThenGotoC:IfEnd:IfEnd:IfEnd←┚（有几条曲线就是几个IfEnd）LbIA:53203.87266（第1条曲线的交点桩号）→A:3560815.660（第1条曲线交点的X