summaryrefslogtreecommitdiff
path: root/3020/CH1/EX1.6/ex1_6.sce
blob: 48b14013adb7b8f31bf0c59b2545edb7f5b1776d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;
clear all;
l = 3; // Length of copper wire
y  = 10e10; // Young's modulus in newton per square meter
r = 5e-4; // Radius in meters
d = r*2; // Diameter
sigma = 0.26; // Poisson's Ratio
g = 9.8; // Gravitational Constant
M = 10; // Load in Kg
deltal = (M*g*l)/(%pi*r*r*y);
lt = sigma*(deltal/l); // Lateral strain
lc = lt*d;// Lateral Compression
disp('m',lc,'Lateral Compression produced is')