summaryrefslogtreecommitdiff
path: root/1586/CH8/EX8.1/EXP8_1.sce
blob: e97366a859598efbd85063387d00aff9d1be03f0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc;funcprot(0);//EXAMPLE 8.1
// Initialisation of Variables
t0=1;.......//Thickness of Copper plate in cm
tf=0.50;.....//Cold reducetion of coopper in cm in step1
tf2=0.16;.....// Further Cold reduction of cooper in cm in step2
//CALCULATIONS
%CW1=((t0-tf)/t0)*100;......//Amount of Cold work accomplished in step1
%CW2=((tf-tf2)/tf)*100;.....//Amount of Cold work accomplished in step2
%CW=((t0-tf2)/t0)*100;.......//Actual Total Cold work in percent
disp(%CW1,"Amount of Cold work accomplished in step1:") 
disp(%CW2,"Amount of Cold work accomplished in step2:")
disp(%CW,"Actual Total Cold work in percent:")