summaryrefslogtreecommitdiff
path: root/3769/CH23/EX23.12/Ex23_12.sce
blob: ab2cbf6287469686ef69d6771f2e4bee681d5842 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clear
//Given
h=6.6*10**-34
c=3*10**8
w0=2.39*1.6*10**-19
f1=4000.0                      //A
f2=6000                      //A
m=9.1*10**-31
e=1.9*10**-19
d=0.1

//Calculation
//
l=(h*c)/w0
K=(12400/f1)-2.39
vmax=sqrt((2*K*1.6*10**-19)/m)
B=(m*vmax)/(e*d)

//Result
printf("\n Maximum value of B is %0.2f *10**-5 T",B*10**5)