geomSolver.m

function [L4params] = geomSolver(L2,L3,L1,L3O, t2)

t3 = t2 + 90;
t4 = atan2d(L2*sind(t2) + L3*sind(t3), L2*cosd(t2) + L3*cosd(t3) + L1 );
L4 = (L2 *sind(t2) + L3*sind(t3)) / sind(t4);

L4params = [t4; L4];
oneRev(L2,L3,L4,L1, L3O);

end