、ウ、ホ・レ。シ・ク、、マ、ニ、ハ・ヨ・テ・ッ・゙。シ・ッ、ヒトノイテ、ウ、ホ・レ。シ・ク、エ゙、爨マ、ニ、ハ・ヨ・テ・ッ・゙。シ・ッ 、ウ、ホ・レ。シ・ク、livedoor ・ッ・・テ・ラ、ヒトノイテ、ウ、ホ・レ。シ・ク、エ゙、瀝ivedoor ・ッ・・テ・ラ

FrontPage

?plugin=code

\sqrt{x^2+y^2}=z

\sqrt{x^2+y^2}=z

ホ网ィ、ミ 、ホ、隍ヲ、ヒ、ハ、

・ラ・鬣ー・、・、サネ、ヲセケ遑、y=x^2+3 、ネス、ュ、゙、ケ。・ 、ウ、ホ、隍ヲ、ヒ \sqrt{x^2+y^2} ・、・・鬣、・、ヒ、篏ネ、ィ、 a

e^{i~\theta}~=~\cos~\theta~+~i~\,~\sin~\theta\\\\e^{\pi~i}~+~1~=~0
  1
  2
  3
  4
  5
begin
  Randomize;
  WriteLn ('Demo of the Trap unit of GPC');
  WriteLn;
  TrapExec (Test)
end.
filebasic.txt
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
100 CLS 3
110 R=150:G1=320:G2=200:N=5:C=5
120 GOSUB *STAR
130 END
9000 *STAR:S=3.14/180:R1=R:Q=360/(N*2)
9010 IF N=5 THEN K=(SQR(5)-1)/(SQR(5)+1) ELSE IF N=8 THEN K=SQR(2-SQR(2)) ELSE IF N=6 THEN K=1/SQR(3) ELSE K=1/2
9020 R2=R*K
9030 LINE (G1+R1*COS(A*S),G2+R1*SIN(A*S))-(G1+R2*COS((Q*1+A)*S),G2+R2*SIN((Q*1+A)*S)),C
9040 FOR I=2 TO (N-1)*2 STEP 2:J=I+1
9050   LINE -(G1+R1*COS((Q*I+A)*S),G2+R1*SIN((Q*I+A)*S)),C
9060   LINE -(G1+R2*COS((Q*J+A)*S),G2+R2*SIN((Q*J+A)*S)),C
9070 NEXT I
9080 LINE -(G1+R1*COS(A*S),G2+R1*SIN(A*S)),C
9090 PAINT (G1,G2),C
9100 RETURN
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
100 CLS 3
110 R=150:G1=320:G2=200:N=5:C=5
120 GOSUB *STAR
130 END
9000 *STAR:S=3.14/180:R1=R:Q=360/(N*2)
9010 IF N=5 THEN K=(SQR(5)-1)/(SQR(5)+1) ELSE IF N=8 THEN K=SQR(2-SQR(2)) ELSE IF N=6 THEN K=1/SQR(3) ELSE K=1/2
9020 R2=R*K
9030 LINE (G1+R1*COS(A*S),G2+R1*SIN(A*S))-(G1+R2*COS((Q*1+A)*S),G2+R2*SIN((Q*1+A)*S)),C
9040 FOR I=2 TO (N-1)*2 STEP 2:J=I+1
9050   LINE -(G1+R1*COS((Q*I+A)*S),G2+R1*SIN((Q*I+A)*S)),C
9060   LINE -(G1+R2*COS((Q*J+A)*S),G2+R2*SIN((Q*J+A)*S)),C
9070 NEXT I
9080 LINE -(G1+R1*COS(A*S),G2+R1*SIN(A*S)),C
9090 PAINT (G1,G2),C
9100 RETURN

ナコノユ・ユ・。・、・: filebasic.txt 4582キ [セワコル]