Security Akademeia

?plugin=code

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

毋えば $\sqrt{x^2+y^2}$ のようになる

プラグインを蝗う眷圭· $y=x^2+3$ と今きますˉ このように $\sqrt{x^2+y^2}$ インラインにも蝗える a

$e^{i~\theta}~=~\cos~\theta~+~i~\,~\sin~\theta\\\\e^{\pi~i}~+~1~=~0$

begin
  Randomize;
  WriteLn ('Demo of the Trap unit of GPC');
  WriteLn;
  TrapExec (Test)
end.

basic.txt

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

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

藕烧ファイル:

basic.txt 5657凤 [拒嘿]

Top / jikkenjikken

basic.txt

Top / jikken
jikken