clc;
//e.g 12.1
I=40;
t=15*10**-3;
SCR=(I^2)*t;
disp('A^2s',SCR*1,"SCR=");