summaryrefslogtreecommitdiff
path: root/3648/CH16/EX16.5/Ex16_5.sce
blob: 690595315ffbd6c823de30e1f43eb7b95843f942 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example 16_5
clc();
clear;
//To find the work done in carrying a proton and for an electron
q=1.6*10^-19 //Units in C
vab=9          //Units in V
work=q*vab      //Units in J
printf("The work done in carrying proton is=")
disp(work)
printf("Joules\n")
q=-1.6*10^-19 //Units in C
work=q*vab      //Units in J
printf("The work done in carrying electron is=")
disp(work)
printf("Joules\n")