3769/CH3/EX3.20/Ex3_20.sce


1
2
3
4
5
6
7
8
9
10
11
12
13

clear
//Given
p=6*10**-6
E=10**6
a=1

//Calculation,
U1=-p*E*a
U2=(p*E*(cos(60)*180/3.14))*10**-2
U3=U2-U1

//Result
printf("\n Heat released by substance is  %0.0f  J",U3)