Unrecognized function or variable 'x'.
Error in normalcaulculation (line 7)
k1 = E*x(1)/l(1,0)*[(cos(a(1)))^2 sin(a(1))*cos(a(1));sin(a(1))*cos(a(1)) (sin(a(1))^2)];
F = 1000*[10000;-4000];
E = 70E9;
l = [2 2/3^0.5 2^0.5];
a = [deg2rad(-30) deg2rad(-60) deg2rad(-135)];
k1 = E*x(1)/l(1,0)*[(cos(a(1)))^2 sin(a(1))*cos(a(1));sin(a(1))*cos(a(1)) (sin(a(1))^2)];
k2 = E*x(2)/l(2)*[(cos(a(2)))^2 sin(a(2))*cos(a(2));sin(a(2))*cos(a(2)) (sin(a(2))^2)];
k3 = E*x(3)/l(3)*[(cos(a(3)))^2 sin(a(3))*cos(a(3));sin(a(3))*cos(a(3)) (sin(a(3))^2)];
k = k1+k2+k3;
d4 = inv(k)*F;
f1 = k1*d4;
f2 = k2*d4;
f3 = k3*d4;
rf1 = sqrt(f1(1)^2+f1(2)^2);
rf2 = sqrt(f2(1)^2+f2(2)^2);
rf3 = sqrt(f3(1)^2+f3(2)^2);
Fo = [rf1 rf2 rf3];
X = [x(1) x(2) x(3)];
c = Fo-400E6*X;
ceq = [];
S = Fo*X
function [c,ceq] = constraint(x)
F = [10000e3;-2000e3];
E = 70E9;
l = [2 2/sqrt(3) sqrt(2)];
a = [deg2rad(-30) deg2rad(-60) deg2rad(-135)];
k1 = E*x(1)/l(1)*[(cos(a(1)))^2,sin(a(1))*cos(a(1));sin(a(1))*cos(a(1)),(sin(a(1))^2)];
k2 = E*x(2)/l(2)*[(cos(a(2)))^2,sin(a(2))*cos(a(2));sin(a(2))*cos(a(2)),(sin(a(2))^2)];
k3 = E*x(3)/l(3)*[(cos(a(3)))^2,sin(a(3))*cos(a(3));sin(a(3))*cos(a(3)),(sin(a(3))^2)];
k = k1+k2+k3;
d4 = inv(k)*F;
f1 = k1*d4;
f2 = k2*d4;
f3 = k3*d4;
s1 = (sqrt(f1(1)^2+f1(2)^2))/x(1);
s2 = (sqrt(f2(1)^2+f2(2)^2))/x(2);
S3 = (sqrt(f3(1)^2+f3(2)^2))/x(3);
Fo = [s1 s2 S3];
c = Fo-400;
ceq = [];
end