wxMaxima 0.7.4 http://wxmaxima.sourceforge.net
Maxima 5.14.0 http://maxima.sourceforge.net
Using Lisp SBCL 1.0.13
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.

(%i1) 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]
);

(%i2) tex(%);

(%i3) $$\pmatrix{{\it c_2}\,s+{\it c_1}\,s+{{1}\over{{\it l_1}\,s}}+{{1 }\over{{\it r_1}}}&
 -{\it c_2}\,s&0&0\cr -{\it c_2}\,s&{\it c_2}\,s+ {{1}\over{{\it r_2}}}&-{{1}\over{{\it
  r_2}}}&0\cr 0&-{{1}\over{ {\it r_2}}}&{{1}\over{{\it r_2}}}&1\cr 0&0&1&0\cr }$$matrix(
 [v_1],
 [v_2],
 [v_3],
 [I_Vin]
);

(%i3) matrix( [v_1], [v_2], [v_3], [I_Vin]);

(%i3) matrix( [v_1], [v_2], [v_3],[I_Vin]);

(%i4) matrix( [0], [0], [0],[Vin]);

(%i5) eq:%o1.%o3=%o4;

(%i6) a:=%o1;

(%i7) A: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]);

(%i7) A: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]);

(%i8) A;

(%i9) x:%o3;

(%i10) b:%o4;

(%i11) A.x=b;

(%i12) A x=b;

(%i12) A * x=b;

(%i13) A'.x=b;

(%i13) A.x=b;

(%i14) example(matrix);

(%i15) example(matrices);

(%i25) example(display);
example(display);
A.x=b;

(%i30) invert(A);

(%i31) trigreduce(%);

(%i32) radcan(%);

(%i33) ratsimp(%);

(%i34) trigsimp(%);

(%i35) factor(%);

(%i36) ratsimp(%);

(%i37) radcan(%);

(%i38) factor(%);

(%i39) trigsimp(%);

(%i40) trigrat(%);

(%i41)