summaryrefslogtreecommitdiff
path: root/3526/CH8/EX8.1/EX8_1.sce
blob: d36e8feedf25ad3212836bdd65021f50c821172d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;funcprot(0);//EXAMPLE 8.1
//page 221
// 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:")