/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 0.8.5 ] */

/* [wxMaxima: title   start ]
Pojačavač sa zajedničkim emitorom kao pojačavač snage
   [wxMaxima: title   end   ] */

/* [wxMaxima: comment start ]
pretpostavljen napon između kolektora i emitora, "izlazni" napon
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
vce: (Vcc/2)*(1+sin(wt));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(vce/Vcc,[wt,0,2*%pi]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
odgovarajuća struja kolektora
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
ic: (Vcc/(2*R))*(1-sin(wt));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(ic/(Vcc/R),[wt,0,2*%pi]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
trenutna snaga disipacije na tranzistoru 
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
pd: vce*ic;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
pd: ratsimp(pd);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(pd/(Vcc^2/R),[wt,0,2*%pi]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
srednja snaga disipacije na tranzistoru
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Pd: 1/(2*%pi)*integrate(pd,wt,0,2*%pi);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
napon na otporniku, KZN
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
vr: Vcc-vce;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
vr: ratsimp(vr);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(vr/Vcc,[wt,0,2*%pi]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
trenutna snaga na otporniku
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
pr: vr*ic;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
pr: ratsimp(pr);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(pr/(Vcc^2/R),[wt,0,2*%pi]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
srednja snaga na otporniku
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Pr: 1/(2*%pi)*integrate(pr,wt,0,2*%pi);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
trenutna snaga koju izvor za napajanje ulaže u kolo
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
pcc: Vcc*ic;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(pcc/(Vcc^2/R),[wt,0,2*%pi]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
srednja snaga koju izvor za napajanje ulaže u kolo
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Pcc: 1/(2*%pi)*integrate(pcc,wt,0,2*%pi);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
zakon o održanju energije na nivou trenutne snage
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
pcc-pr-pd;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ratsimp(%);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
zakon o održanju energije na nivou srednje snage
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Pcc-Pd-Pr;
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$