cnCalc计算器论坛 [原fx-es(ms)论坛]

 找回密码
 注册
搜索
查看: 124|回复: 2

[fx-CG10/20] 复化辛普森公式

[复制链接]
发表于 2018-11-2 10:06:50 | 显示全部楼层 |阅读模式
'ProgramMode:RUN
Lbl 0:"XA="?A:"YA="?B:"CA="?C:"_#E5BE_1_/_RA="?D:"_#E5BE_1_/_RB="?E:"DKA="?F:"DKB="?G
Lbl 1:"DKI="?H:"DL="?O:"DR="?R:If H>G:Then Goto 0:IfEnd
(E-D)/Abs (G-F)->P:Abs (H-F)->Q:P*Q->I:D+I->T
C+(I+2D)Q*90/pi->J:C+(I/4+2D)*Q*45/(2pi)->M:C+(3I/4+2D)*Q*135/(2pi)->N:C+(I/2+2D)Q*45/pi->K
A+Q/12*(cos (C)+4(cos (M)+cos (N))+2cos (K)+cos (J)->X
B+Q/12*(sin (C)+4(sin (M)+sin (N))+2sin (K)+sin (J)->Y
"FW=":J>DMSDisps"X=":XDisps"Y=":YDisps"XL=":X+Ocos (J-90)Disps"YL=":Y+Osin (J-90)Disps"XR=":X+Rcos (J+90)Disps"YR=":Y+Rsin (J+90)DispsGoto 1
 楼主| 发表于 2018-11-2 10:10:11 | 显示全部楼层
Lbl 0:"XA="?->A:"YA="?->B:"CA="?->C:"_#E5BE_1_/_RA="?->D:"_#E5BE_1_/_RB="?->E:"DKA="?->F:"DKB="?->G
Lbl 1:"DKI="?->H:"DL="?->O:"DR="?->R:If H>G:Then Goto 0:IfEnd
发表于 2018-11-4 15:42:16 | 显示全部楼层
这不是王老师总结的
您需要登录后才可以回帖 登录 | 注册

本版积分规则

联系站长|Archiver|手机版|cnCalc计算器论坛  

GMT+8, 2018-11-22 00:24 , Processed in 0.021567 second(s), 19 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表