用圆周上三点坐标计算圆半径圆心坐标圆面积及弓形面积CASIO.PDF

用圆周上三点坐标计算圆半径、圆心坐标、圆面积及弓形面积 CASIO (5800)计算程序 1、3P-R-O-AREA 程序名 3P=“ ﹥(R,O,AREA) ”◢ Fix3:“XA=”? →A:“YA=”? →B:“XB=”? →C:“YB=”? →D:“XC=”? →E:“YC=”? →F ↙ C-A→G:D-B→H:E-A →I:F-B→J:E-C→K:F-D →L . ↙ tan-1(J÷I) →X:I ﹤0= ﹥X+180 →X . ↙ tan-1(H÷G) →Y:G ﹤0= ﹥Y+180→Y . ↙ tan-1(L÷K) →Z:K ﹤0= ﹥Z+180 →Z ↙ X -Y →M: M ﹤0= ﹥M+360 →M :Z-X →N: N ﹤0= ﹥N +360 →N :M+N →O ↙ 2 2 2 2 2 2 ( G + H ) →U : ( K +L ) →V : (L + J ) →W :R=“ ”:W ÷2 ÷sin(O) →R ◢ tan-1(H÷G) →Q :If G ﹥0 :Then Q+180→Q :Goto 1: IfEnd ↙ 2 2 Lb1: U÷2→S: ( R + S ) →T ↙ X0=“ ”:C+Scos(Q)+Tsin(Q) ◢ Y0=“ ”:D+Ssin(Q)-Tcos(Q) ◢ CIRC-AREA(M“ 2)= ”: ΠR ^2 ◢ “Hu L ”:(ROΠ)÷90→L ◢ BOW-AREA(M2)=“ ”:R(L-Wcos(O)) ÷2 ◢End”.“ 说明: 输入显示:XA、YA、XB、YB、XC、YC 分别为圆周上已知的三点坐标值。 结果显示:R 为圆半径;X0,Y0 为所求的圆心坐标;CIRC-AREA(M“ 2)= ”为圆面积;“ BOW-AREA(M2)=”为所求的弓形面积。 QQEail:huangjian.2099@163.com