# can anyone help me prepare the code

1 view (last 30 days)
Relly Syam on 19 Apr 2021
Edited: per isakson on 26 Apr 2021
clear clc syms E0 E1 E2 E3 c0 c1 c2 c3 t r0 r1 r2 r3 K0 K1 K2 K3 format long
c0=0 c1=1/3; c2=2/3; c3=1; r0=0; r1=1; r2=2; r3=3;
E0=[euler(r0,sym(c0)) euler(r0,c1) euler(r0,c2) euler(r0,c3)] E1=[euler(r1,c0) euler(r1,c1) euler(r1,c2) euler(r1,c3)] E2=[euler(r2,c0) euler(r2,c1) euler(r2,c2) euler(r2,c3)] E3=[euler(r3,c0) euler(r3,c1) euler(r3,c2) euler(r3,c3)] E=[E0' E1' E2' E3']
K0=[int(euler(r0,t), 0,c0) int(euler(r0,t), 0,c1) int(euler(r0,t), 0,c2) int(euler(r0,t), 0,c3)] K1=[int(euler(r1,t), 0,c0) int(euler(r1,t), 0,c1) int(euler(r1,t), 0,c2) int(euler(r1,t), 0,c3)] K2=[int(euler(r2,t), 0,c0) int(euler(r2,t), 0,c1) int(euler(r2,t), 0,c2) int(euler(r2,t), 0,c3)] K3=[int(euler(r3,t), 0,c0) int(euler(r3,t), 0,c1) int(euler(r3,t), 0,c2) int(euler(r3,t), 0,c3)] K=[K0' K1' K2' K3']
Ek=E-K F=[6*c0-3*c0^2;6*c1-3*c1^2;6*c2-3*c2^2;6*c3-3*c3^2] InvInv_Ek=inv(Ek) C=inv(Ek)*F Ua=E*C
Ue=[6*c0 6*c1 6*c2 6*c3]'

per isakson on 21 Apr 2021
• The long lines make the code hard to read.
• Numerous statement separators are missing
I added line breaks and semicolons. Now the script runs.
%%
clear clc
syms E0 E1 E2 E3 c0 c1 c2 c3 t r0 r1 r2 r3 K0 K1 K2 K3
format long
c0=0; c1=1/3; c2=2/3; c3=1; r0=0; r1=1; r2=2; r3=3;
E0=[euler(r0,sym(c0)) euler(r0,c1) euler(r0,c2) euler(r0,c3)];
E1=[euler(r1,c0) euler(r1,c1) euler(r1,c2) euler(r1,c3)];
E2=[euler(r2,c0) euler(r2,c1) euler(r2,c2) euler(r2,c3)];
E3=[euler(r3,c0) euler(r3,c1) euler(r3,c2) euler(r3,c3)];
E=[E0' E1' E2' E3'];
K0=[int(euler(r0,t), 0,c0) int(euler(r0,t), 0,c1) int(euler(r0,t), 0,c2) int(euler(r0,t), 0,c3)];
K1=[int(euler(r1,t), 0,c0) int(euler(r1,t), 0,c1) int(euler(r1,t), 0,c2) int(euler(r1,t), 0,c3)];
K2=[int(euler(r2,t), 0,c0) int(euler(r2,t), 0,c1) int(euler(r2,t), 0,c2) int(euler(r2,t), 0,c3)];
K3=[int(euler(r3,t), 0,c0) int(euler(r3,t), 0,c1) int(euler(r3,t), 0,c2) int(euler(r3,t), 0,c3)];
K=[K0' K1' K2' K3'];
Ek=E-K;
F=[6*c0-3*c0^2;6*c1-3*c1^2;6*c2-3*c2^2;6*c3-3*c3^2];
InvInv_Ek=inv(Ek);
C=inv(Ek)*F
C =
Ua=E*C
Ua =
Ue=[6*c0 6*c1 6*c2 6*c3]'
Ue = 4×1
0 2 4 6
Relly Syam on 26 Apr 2021
I am trying to approximate this equation