"Circle-ibw.txt"의 두 판 사이의 차이
(새 문서: 프루버 <pre> 10 !find_3_point_Circle 20 X1=1 30 Y1=1 40 X2=-1 50 Y2=-1 60 X3=-1 70 Y3=1 80 X12=X1-X2 90 X13=X1-X3 100 Y12=Y1-Y2 110 Y13=Y1...) |
(차이 없음)
|
2020년 6월 3일 (수) 19:07 기준 최신판
10 !find_3_point_Circle 20 X1=1 30 Y1=1 40 X2=-1 50 Y2=-1 60 X3=-1 70 Y3=1 80 X12=X1-X2 90 X13=X1-X3 100 Y12=Y1-Y2 110 Y13=Y1-Y3 120 Y31=Y3-Y1 130 Y21=Y2-Y1 140 X31=X3-X1 150 X21=X2-X1 160 Sx13=X1*X1-X3*X3 170 Sy13=Y1*Y1-Y3*Y3 180 Sx21=X2*X2-X1*X1 190 Sy21=Y2*Y2-Y1*Y1 200 F=(Sx13*X12+Sy13*X12+Sx21*X13+Sy21*X13)/(2*(Y31*X12-Y21*X13)) 210 G=(Sx13*Y12+Sy13*Y12+Sx21*Y13+Sy21*Y13)/(2*(X31*Y12-X21*Y13)) 220 C=-X1*X1-Y1*Y1-2*G*X1-2*F*Y1 230 !! 원방정식 x^2 + y^2 + 2*g*x + 2*f*y + c = 0 240 !! 원중심이 h,k이고 반지름이 r이라면 원 방정식은 r^2=h^2+k^2-c 250 H=-G 260 K=-F 270 R=SQRT(H^2+K^2-C) 280 PRINT H,K,R 290 END