diff options
Diffstat (limited to '3588/CH2/EX2.1/EX2_1.sce')
-rw-r--r-- | 3588/CH2/EX2.1/EX2_1.sce | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/3588/CH2/EX2.1/EX2_1.sce b/3588/CH2/EX2.1/EX2_1.sce new file mode 100644 index 000000000..a9358fcb1 --- /dev/null +++ b/3588/CH2/EX2.1/EX2_1.sce @@ -0,0 +1,35 @@ +//Clearing Console +clc +clear + +//Node 1 Displacement +U1=0 +//Stiffness of Springs +K1=50 +K2=75 +//Nodal Forces +F2=75 +F3=75 +//varible decleration +K=[] +F=[] +U=[] + +//Constructing Stiffness and Force matrices +K(1,1)=K1+K2 +K(1,2)=-K2 +K(2,1)=-K2 +K(2,2)=K2 +F(1,1)=F2 +F(2,1)=F3 + +//Solving for Nodal Displacements U2 and U3 +U=linsolve(K,-F) //K*U=F (equlibrium equation) + +//Solving for Nodal force F1 +F1=-50*U(1,1) + +//Printing Results +printf('\nResults\n') +printf('\nNodal displacements \nU1=%fin \nU2=%fin \nU3=%fin\n',U1,U(1,1),U(2,1)) +printf('\nNodal Force F1=%flb\n',F1) |