- #1
unscientific
- 1,734
- 13
Homework Statement
So basically here's what the code is supposed to do:
[tex] L(T_e) = 10^{-9} (T_e - 0.1) [/tex]
[tex] Z_{lcr}(T_e) = \left ( \frac{1}{R} + \frac{1}{10^9 iL} + 0.1i \right )^{-1} [/tex]
[tex] Z_{load} (T_e) = Z_{lcr} - 0.01i [/tex]
[tex] \Gamma (T_e) = \frac{Z_{load}(T_e) - Z_0}{Z_{load}(T_e) + Z_0} [/tex]
The above equations are linked by this equation:
[tex] 1 - 2 P_{probe}|\Gamma| \frac{\partial |\Gamma| }{\partial P_{local}} = G_{eb} \frac{\partial T_e}{\partial P_{local}} [/tex]
I want to find the contours of ##\frac{\partial T_e}{\partial P_{local}}## against axes ##P_{local}## for various values of ##P_{probe}, T_e(1)## ranging from ##0## to ##10^{−14}## and ##0## to ##0.1##
Homework Equations
The Attempt at a Solution
Code:
C1 = 10^(-10);
C2 = 0.1*C1;
R = 50;
L = 10^-9 (Te - Tb);
Tb = 0.1;
Geb = 5*10^-15;
Z0 = 50;
w = 10^9;
Zlcr = (1/R + 1/(I L w) + I C1 w)^-1;
Zload = -I w C2 + Zlcr;
\[CapitalGamma] := (Zload - Z0)/(Zload + Z0);
1 - 2*Pprobe *Abs[\[CapitalGamma]] *D[Abs[\[CapitalGamma]], Plocal] == Geb *D[Te, Plocal]plt[Pprobe_] :=
ParametricPlot [ {D[Te, Plocal], Plocal} , {Plocal, 0, 10^-13} ,
AspectRatio -> 1/1.5, Frame -> True, PlotStyle -> {Darker[Green]},
FrameLabel -> {Style["Plocal", 10],
Style["Electron Temperature Susceptibility", 10]},
LabelStyle -> {FontSize -> 12, FontFamily -> "Times"} ]
Show[Table[plt[Pprobe], {Pprobe, 0, 10^-14, 10^-15}]]
Last edited: