Tрансформатор

Оторвать бы руки тому, кто так решает задачи. Однако это возможно!

Рис. 1. Схемат рансaформатора

>	restart:with(MSpice):ESolve(D,`TX-PSpiceFiles/SCHEMATIC1/SCHEMATIC1.net`);

MSpice v8.44:   http://pspicelib.narod.ru

Заданы узлы: {VINP} Источники: [нет источников]

Решениe: dsolve(ODE union ISc):  assign(%);

>	ODE:=diff(ODE,t):for i from 1 by 1 to nops(ODE) do print(eval(ODE[i])): end do;

>	dsolve(ODE union ISc): assign(%): OUT:=simplify(VOUT(t),'size');

>	Values(DC,RLCIV,["Vin"]); M:=0.5: omega:=300: Vin:=sin(omega*t): OUT:=evalf(OUT);

Ввод номиналов компонентов:   

R2 := .10e5, "10K"

L2 := 1, "1"

L1 := 1, "1"

R1 := 1, "1"

eqE2 := -M*diff(JL1(t),t)

eqVin := sin(omega*t)

eqE1 := -M*diff(JL2(t),t)

>	ploth([Vin,OUT],t=0..0.2,"2) Напряжение на входе и выходе del[Vin(t),OUT(t)]");