5800缓和曲线.docVIP

fx－5800P计算器编程 缓和曲线程序 14→DimZ ： “ZHK”：?K：?R ：? A：?L：Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If End Lb1 1： M－K→G：√（（G－G^ 5 ÷ 40L2R2 ＋G^ 9 ÷ 3456R^ 4 L^ 4 2＋ G^ 3 ÷ 6RL －G^ 7 ÷ 336R^ 3 L^ 3 ＋G^ 11 ÷ 42240R^ 5 L^ 5 2）→D F＋PZG2÷ 6L →C：F＋PBG2÷L2→H：Goto 3 Lb1 2： M－Z[1]→G： R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→D F＋Ptg-1 Z[9]÷ Rsin B＋ZG ＋Z[8] →C：F＋P B＋ZG →H Lb1 3 “X ”:U＋Dcos C →X◢ “Y ”:V＋Dsin C →Y◢ Lb1 B：“ZBJS1，FY－1”：?J If J 0：Then Goto 4：Else If J〈0：Then Goto A：If End