LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);
D;;
Key = '6 'Then BeginD;
. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);
: = -Pi/120; For I: = 1 To N Do Ux3d (A [i], Ux, A [i]);
. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);
D;; Key = '7 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I ], L, A [I]);
. X: = 1.1; CY: = 1.1; CZ: = 1.1; I: = 1 To N Do Sr3d (A [I], C, A [I]);
. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]); D ;;
Key = '8 'Then BeginD;. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L , A [I]);
. X: = 0.9; CY: = 0.9; CZ: = 0.9; I: = 1 To N Do Sr3d (A [I], C, A [I]);
. X: =-LX; LY: =-LY; LZ: =-LZ; I: = 1 To N Do Tr3d (A [I], L, A [I]);
D;;; D;;.
Додаток Г
Program Koh; CRT, Graph;, gm: Integer; = 50000; Draw;, x, y, p: Real;: LongInt;, my, rad: Integer;: = 10;: = 250;: = 600;;: = 0.0;: = 0.0; k: = 1 To iter do: = Random;: = x; p <= 1/2 then: = 1/2 * x + 1/(2 * sqrt (3)) * y;: = 1/(2 * sqrt (3)) * t - 1/2 * y;: = 1/2 * x - 1/(2 * sqrt (3)) * y +1/2;: = -1/(2 * sqrt (3)) * t - 1/2 * y + 1/(2 * sqrt (3));; (mx + Round (rad * x), my - Round (rad * y), 2);;;
: = Detect; (gd, gm, );;;;.
Додаток Д
program fern; crt, graph;, gm: integer; draw; = 50000;, x, y, p: real;: longint; _x, mid_y, radius: integer; _x: = getmaxX div 2; _y: = getmaxY;: = trunc (0.1 * mid_y);;: = 1.0;: = 0.0; k: = 1 to iterations do: = random;: = x; p <= 0.85 then: = 0.85 * x + 0.04 * y;: = -0.04 * t + 0.85 * y + 1.6p <= 0.92 then: = 0.2 * x - 0.26 * y;: = 0.23 * t + 0.22 * y + 1.6if p <= 0.99 then: = -0.15 * x + 0.28 * y;: = 0.26 * t + 0.24 * y + 0.44: = 0.0;: = 0.16 * y; (mid_x + round (radius * x), mid_y-round (radius * y),);
: = detect; (gd, gm, 'c: bp bgi');;;.
