Eulerkasten geschert
Author: Haftendorn
Date: Dez 05

Wendekasten

Integral, uneigentlich

Wendetangente

Eulerkasten

Ha seit 96

Breitenprobe

WNS-Streifen

k = 1.65 (slider from 0 to 5, step 0.05)
a = 0 (slider from -5 to 5, step 0.1)
g(x) = a * x
f(x) = (exp(x) - k)^(2.0) + g(x)
h(x) = g(x) + k^(2.0)
N: (log(k), g(log(k)))
S: (log(2.0 * k), h(log(2.0 * k)))
W: (log(k / 2.0), f(log(k / 2.0)))
b = Tangent(W, f)
A = Intersect(h, b)
c = Line(A, yAxis)
B = Intersect(g, b)
d = Line(B, yAxis)
D = Intersect(h, d)
E = Intersect(g, c)
Kasten, a_1, d_1, c_1, e = Polygon(A, D, B, E)
j = Segment(A, B)
l = true
m = true
n = true
i = Integral(f, h, x(S), -10.0)
Text3: "Integral(h,f,-∞,s) = " + i
Text4: "Wendekasten = " + Kasten
A_1: (3.0, k)
B_1: (3.0 + x(B) - x(A), k)
N_1: (5.0 + x(N) - x(B), k)
o = false
p = OrthogonalLine(S, xAxis)
q = OrthogonalLine(W, xAxis)
C = Point(yAxis)
r(x) = a * x - 1.0 / 2.0
F = Intersect(r, q)
G = Intersect(r, p)
s = Segment(F, G)
Mitte = Midpoint(s)
t = OrthogonalLine(N, xAxis)
u = true