目次ページ 前ページ 次ページ
4. 初等幾何学の作図例題
4.3 三角形の垂心を求める
run PH= 100 -125
 |
10 REM 三角形の垂心を求める" 20 DPERAS 30 DEF2PT P : DEF2ED E 40 LET P1,P2,P3=-200,-200,200,-200,100,200 50 E1=P1@P2 : E2=P2@P3 : E3=P3@P1 60 EN1=P3@E1 : EN2=P2@E3 70 PH=EN1&EN2 80 PRINT "PH=";PH 90 DPTEXT -100,250,"三角形の垂心" 100 LET X,Y=P1: DPTEXT X,Y,"P1" 110 LET X,Y=P2: DPTEXT X,Y,"P2" 120 LET X,Y=P3: DPTEXT X,Y,"P3" |
図4.2 三角形の垂心を求める |
GBASICのプログラム |