cnCalc计算器论坛

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

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

[复制链接]
发表于 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, 2021-12-3 00:57 , Processed in 0.038522 second(s), 18 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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