Allgemeine Sinusfunktion
Author: Andreas Jäger
Date: 18 April 2013

Induktiver Ein- und Ausschaltstrom

L [H] =

R [Ohm] =

U_0 [V]=

t_{ein} [s] =

t_{aus} [s]

f_I =

I_{max} [mA] =

I_{max}  [mA]

U_0

U_{ind}

U_{spule}

I_{spule}

I_{max}

steigung

Auswertung:

Version Stand
19.05.2020
Andreas Jäger

Stand

t_{aus} = 18.6 (slider from 10 to 100, step 0.1)
t_{ein} = 8.7 (slider from 0 to 10, step 0.1)
U_0 = 5.4 (slider from 0 to 20, step 0.1)
R = 220 (slider from 0 to 1000, step 0.1)
L = 450.55 (slider from 1 to 1000, step 0.01)
U_{ein}(x) = U_0 - (ℯ^((-(((R * (x - t_{ein}))) / L))) * U_0)
f: U_{ein}(t_{aus})
U_{aus}(x) = (f * ℯ^((-(((R * (x - t_{aus}))) / L))))
U(x) = If[x ≥ 0, If[x ≤ t_{ein}, 0, If[x ≤ t_{aus}, U_{ein}, U_{aus}]]]
Textfeld1 = Textfield(L)
Textfeld2 = Textfield(R)
Textfeld3 = Textfield(U_0)
Textfeld4 = Textfield(t_{ein})
Textfeld5 = Textfield(t_{aus})
f_I = 240 (slider from 0 to 1000, step 1)
U_B(x) = If[x ≥ 0, If[t_{ein} ≤ x ≤ t_{aus}, U_0, 0]]
U_{I}(x) = U(x) - U_B(x)
I(x) = If[x ≥ 0, (f_I * U(x) / R)]
A = Intersect(U_{ein}, xAxis, (8.7, 0))
I_{ein}(x) = (f_I * U_{ein}(x) / R)
b = Tangent(A, I_{ein})
Text2: "{\Delta I\over \Delta t} = " + (LaTeX[(1000 / f_I * Slope[b])]) + "\ {mA\over s}"
T_{ein}: (t_{ein}, 0)
T_{aus}: (t_{aus}, 0)
Textfeld6 = Textfield(f_I)
Text3: "L_{exp} = {U_0\over{\Delta I\over\Delta t}} ={ " + (LaTeX[U_0]) + "\ V\over " + (LaTeX[(1000 * Slope[b] / f_I)]) + "\ {mA\over s}} = " + (LaTeX[U_0 / (Slope[b] / f_I)]) + "\ H"
I_{max} = 44 (slider from 0 to 200, step 0.1)
Textfeld7 = Textfield(I_{max})
I_e(x) = If[x ≥ 0, (f_I * I_{max} / 1000)]
a = false
c = false
d = true
e = true
g = false
h = false
Text5: "I_{max} = " + (LaTeX[I_{max}]) + "\ mA"
i = false
Text4: "R_{exp} = {U_0\over I_{max}} ={" + (LaTeX[U_0]) + "\ V \over " + (LaTeX[I_{max}]) + "\ mA}= " + (LaTeX[(1000 * U_0 / I_{max})]) + "\ \Omega"
R_0: (t_{ein}, 0)
R_2: (t_{ein}, U_0)
R_3: (t_{aus}, U_0)
Vieleck1, r_2, r_3, t_1, r_0 = Polygon(R_2, R_3, T_{aus}, R_0)
j = false