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

/* [wxMaxima: input   start ] */
display2d:false;
g:subst(-8,b,subst(2*%pi*300,a,(200*abs(mod(x,1/100)-1/200)-1/2)*(1-x/3)*2));
display2d:true;
wxplot2d([g],[x,0,3]);
g;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
kill(all);
m:matrix(
 [s*c1+s*c2+1/(s*l1)+1/(r1),-s*c2,0,0],
 [-s*c2,s*c2+1/r2,-1/r2,0],
 [0,-1/r2,1/r2,1],
 [0,0,1,0]
 );
assume(w>0);
m2:subst([r1=1,r2=10,c1=1/1000000,c2=10/1000000000,l1=1/1000],m);
m^^-1;
polarform(subst(%i*w,s,m2^^-1));
row(col(m^^-1,1),2);
submatrix(2,m2^^-1,1);
ratsimp((m^^-1) . m);
/* [wxMaxima: input   end   ] */

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