4.@‰“™Šτ‰½Šw‚̍μ}—α‘θ

10 REMs‹γ“_‰~t
20 CLG
30 DEF2PT P: DEF2ED E: DEF2CR C: DEF2LN L
40 LET PA,PB,PC=-200,-200,200,-200,100,200
50 EAB=PA @ PB: EBC=PB @ PC: ECA=PC @ PA
60 PL=(PB+PC)*0.5: PM=(PC+PA)*0.5 
70 PN=(PA+PB)*0.5 
80 EAD=PA @ EBC:PD=EAD & EBC 
90 EBE=PB @ ECA:PE=EBE & ECA
100 ECF=PC @ EAB:PF=ECF & EAB 
110 PH=EAD & EBE : PP=(PA+PH)*0.5
120 PQ=(PB+PH)*0.5: PR=(PC+PH)*0.5 
130 GROFF: LW1=LBSEC(PD,PE) 
140 LW2=LBSEC(PP,PR) : GRON
150 PW=LW1 & LW2: RW=DIS(PW,PD)
160 LET CW=PW,RW :CW=CW
170 DPTEXT -50,100,"‹γ“_‰~"
180 LET X,Y=PA: DPTEXT X,Y,"A"
190 LET X,Y=PB: DPTEXT X,Y,"B"
200 LET X,Y=PC: DPTEXT X,Y,"C"
210 LET X,Y=PD: DPTEXT X,Y,"D"
220 LET X,Y=PE: DPTEXT X,Y,"E"
230 LET X,Y=PF: DPTEXT X,Y,"F"
240 LET X,Y=PH: DPTEXT X,Y,"H"
250 LET X,Y=PL: DPTEXT X,Y,"L"
260 LET X,Y=PM: DPTEXT X,Y,"M"
270 LET X,Y=PN: DPTEXT X,Y,"N"
280 LET X,Y=PP: DPTEXT X,Y,"P"
290 LET X,Y=PQ: DPTEXT X,Y,"Q"
300 LET X,Y=PR: DPTEXT X,Y,"R"
310 LET X,Y=PW: DPTEXT X,Y,"W"

}4.5@‹γ“_‰~