Kvadar
Author: Š. Šuljić

Uputa: pomicati klizače a, b i c mišem ili klikom na njih, a zatim tipkama + i - tipkovnice. Moguće je dobiti kvadratnu prizmu i kocku.

Posvećeno Godu Wolfu ;-) s Foruma.hr

V \;=\; a \cdot b \cdot c

O \;=\; 2(a \cdot b\;+\; a \cdot c\;+\;b \cdot c)

Uputa: pomicati klizače a, b i c mišem ili 
klikom na njih, a zatim tipkama + i - tipkovnice.
Moguće je dobiti kvadratnu prizmu i kocku.

Kvadar

A = (0, 0)
α = 0.5235987755982988 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
b = 11 (slider from 1 to 15, step 0.1)
a = 8 (slider from 1 to 10, step 0.1)
B: (x(A) + a, y(A))
c = 16 (slider from 1 to 25, step 0.1)
n = 0.5
C: (x(B) + n * b * cos(α), y(B) + n * b * sin(α))
D_1: (x(A) + n * b * cos(α), y(A) + n * b * sin(α))
P, a_1, b_1, c_1, d = Polygon(A, B, C, D_1)
u = UnitOrthogonalVector(a_1)
A' = Translate(A, Vector[c * u])
B' = Translate(B, Vector[c * u])
C' = Translate(C, Vector[c * u])
D' = Translate(D_1, Vector[c * u])
P', a', b', c', d' = Polygon(A', B', C', D')
e = Segment(A', A)
f = Segment(B', B)
g = Segment(C', C)
h = Segment(D', D_1)
E = Midpoint(A, B)
F = Midpoint(B, C)
G = Midpoint(C', C)
T1: "a = " + a
T2: "b = " + b
T3: "c = " + c
Q, d_1, a_2, D = Polygon(A, C, C')
T5: "V\;=\; " + a + "\cdot" + b + "\cdot" + c + "\;=\;" + (a * b * c) + "\;cm^3"
T7: "O \;=\; 2(" + a + " \cdot" + b + "\;+\; " + a + " \cdot" + c + "\;+\;" + b + "\cdot" + c + ")\; = \;" + (2.0 * (a * b + a * c + b * c)) + "\;cm^2"
T8: "d_1\;=\; \sqrt{ a² \;+\;b² } \;=\; \sqrt{ " + a + "² \;+\;" + b + "² } \;=\;" + (sqrt(a * a + b * b)) + "\;cm"
T9: "D\;=\; \sqrt{ d_1² \;+\;c² } \;=\; \sqrt{ " + (sqrt(a * a + b * b)) + "² \;+\;" + c + "² } \;=\;" + (sqrt(sqrt(a * a + b * b) + c * c)) + "\;cm"
β = Angle(C, A, C')
tekst1: "α = " + (atan(c / sqrt(a^(2.0) + b^(2.0))) * 180.0 * ° / 3.141592653589793)
tekst2: "cos α =  \frac{ c }{d_1 } =  \frac{ " + c + " }{ " + d_1 + "} =" + (c / sqrt(a^(2.0) + b^(2.0)))