projekt w PSPICE

[waldlas]

witam
mam zadanie do wykonania w PSPICE, poczynilem jakies kroki, napisalem program /ponizej/, ale gdy uruchomie go to cos jest nie tak poniewaz wyskakuje blad. I tu mam problem bo nie wiem jak jak go usunac, czy mam cos nie tak w programie, czy cos innego. Moze ktos mi pomoze rozwiazac ten problem. Do pomocy wrzucam schemat ukladu /tda schemat/.

files/tda_schemat_672.gif

Przygotować opracowanie zawierające, na podstawie układu:
TDA16822_LIN_f

a)wydruk postaci tekstowej makromodelu,
b)reprezentację obwodową rozważanego makromodelu,
c)typowy układ aplikacyjny,/tda schemat/
d)opis makromodelu, w szczególności równania opisujące wydajności poszczególnych źródeł sterowanych,
e)wyniki obliczeń w formacie Excel-a wybranych charakterystyk badanego układu w jego układzie aplikacyjnym,
f)pliki wejściowe do wszystkich analiz,
g)komentarze do wyników obliczeń,
h)kartę katalogową lub notę aplikacyjną modelowanego układu scalonego,
i)opracowanie dostarczyć w formie wydruku i plików źródłowych.

dzieki za jakakolwiek pomoc
pozdrawiam


*stabilizator
v1 1 3 sin(0 310 50 0 0)
d1 1 2 dx
d2 0 1 dx
d3 3 2 dx
d4 0 3 dx
.model dx d()
c1 2 0 1000u
x1 4 11 12 4 2 6 100 0 8 tda16822_lin_f
r1 11 0 1meg
r2 12 0 1meg
*r3 13 0 1meg
l1 4 2 100u
l2 9 0 100u
k1 l1 l2 0.99
d5 9 7 dx
c2 7 0 100u
rs 7 wy 0.1
r0 wy 0 5
c4 6 0 22n
r5 5 6 1
g1 5 0 value={v(wy)*1m}
rsense 8 0 0.33
rth 100 0 0.01 ;bez samonagrzewania
.SUBCKT TDA16822_LIN_f Drain d1 dis iL Vcc FB Tj GND Isense
+ PARAMS:
+ Ts=10us
+ Rds=3
+ Rsense=1.5
+ Tumg=23
+ null=0

.PARAM Dmax0=0.7
.PARAM RX={3.65*Rsense}

.PARAM Iruhe=85uA
.PARAM Ibetrieb=6.5mA

.PARAM Czth1=441uF
.PARAM Rth1=40

.PARAM Tjmax=140

* According to schematic TDA16822_lin_mod_frequ (Oct 10, 2000)

R_R46 d1s d1ss 1k
R_R47 d1 d1s 1k
E_E2 d1s 0 VALUE { IF(V(d1ss)>null, V(d1ss),0) }
C_C10 Tj $N_0001 {Czth1} IC=0
R_R40 Tj $N_0001 {Rth1}
E_E1 d1ss 0 VALUE { IF(V(dis)>null,
+ 2/(RX*TS)*(V(FB)-(0.8+RX*V(iL)))/V(dis), 0) }
E_E3 d1 0 VALUE { IF(V(Dmax)-V(d1s)>null, V(d1s), V(Dmax)) }
G_G3 $N_0002 Isense VALUE { V(d1)*V(iL) }
V_VId Drain $N_0002
R_R50 dis 0 1MEG
R_R49 iL 0 1MEG
V_V_umg $N_0001 0 DC {Tumg}
G_G2 0 Tj VALUE { Rds*V(Ieff_q) }
E_E33 Dlim 0 VALUE {
+ IF(V(dis)>null,2/(Rsense*TS)*(1-Rsense*V(iL))/V(dis),0) }
R_R61 Dmaxs Dlim 1k
E_E22 Dmax 0 VALUE { IF(V(Dmaxs)>null, V(Dmaxs),0) }
R_R62 Dmaxs Dmax 1k
E_E35 Dmaxs 0 VALUE { IF(V(Dlim)-Dmax0<null,V(Dlim),Dmax0) }
R_RFB FB Vref 3.7k
V_V12 Vref 0 DC 6.5
R_R58 VCC 0 1MEG
R_R63 Ieff_q is 1k
E_E37 Ieff_q 0 VALUE { V(d1)/3*(V(is)*V(is)+2*V(iL)*(2*V(iL)-V(is))) }
E_E36 is 0 VALUE { V(iL)+0.5*V(dis)*V(d1)*TS }
I_I1 VCC 0 DC {Ibetrieb}

.ENDS
.tran 1n 20m
.probe
.end