(600/0.7) - 600

%/6

<< Calculus`VectorAnalysis`

SetCoordinates[
      Cartesian[x, y, z]]

hacko = {Hx[x, y, z], Hy[x, y, z], Hz[x, y, z]};

Curl[hacko]

hacko = {Hx[x], 0, 0};
Curl[hacko]

<< Miscellaneous`PhysicalConstants`

VacuumPermittivity

hacko = {0, Hy[x], 0};
Curl[hacko]

ecko = {0, 0, Ez[x]};

Curl[hacko] == γ*ecko

rce1 = Curl[hacko][[3]] == γ*ecko[[3]]

Curl[ecko] == -I*ω*μ*hacko

rce2 = Curl[ecko][[2]] == -I*ω*μ*
          hacko[[2]]

res=Solve[D[rce1, x],Ez'[x]][[1]]

(rce2 /. res)

leva=-((Hy''[x])/γ)-(-I μ ω Hy[x])

Simplify[leva*(γ/1)]

rcevysledna = Simplify[leva*(γ/1)] == 0

resHy = DSolve[rcevysledna, Hy[x], x]

Simplify[resHy, {γ > 0, μ > 0, ω > 0}]

(E^((((-1))^(1/4)) x (Sqrt[γ μ ω]))) // N

Series[Exp[x], {x, 0, 5}]

Plot[Exp[+t], {t, 0, 40}]

hy[x_] = H0*Exp[((-(1 + I)*x)/a)]

jevect = Curl[{0, hy[x], 0}]

jz[x_] = jevect[[3]]

proud = 
      Simplify[Integrate[jz[x]*m, {x, 0, ∞}], 
        Re[((1 + I)/a)] > 0]

napeti = jz[0]/γ*el

impedance = (napeti/proud)