% Claudio Talarico:
% trans-conductance amplifier (unilateral model)
% tca_uni.m

clc; clear all; close all;
syms Vs Vi Vout;
syms Rs Ri Gm Ro RL;

eqns = [Vi == Vs*Ri/(Rs+Ri), ...
        Vout + Gm*Vi*Ro*RL/(Ro+RL) == 0];

sol = solve(eqns, Vout, Vi)
Av  = sol.Vout/Vs; % voltage gain
Av  = simplify(Av);
disp('Av = ');
pretty(Av)
fprintf('\n');

% Alternative syntax
eq1 = Vi == Vs*Ri/(Rs+Ri);
eq2 = Vout + Gm*Vi*Ro*RL/(Ro+RL) == 0;
[vout, vin] = solve(eq1, eq2, Vout, Vi);
Av  = vout/Vs;
Av  = simplify(Av);
disp('Av = ');
pretty(Av)