1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
//chapter6,Example6_10,pg 124 Rhp=3.66*10^-4 rho=8.93*10^-3 e=1.6*10^-19 p=1/(Rhp*e) Uhp=Rhp/rho Bz=0.5 theta=atan(Uhp*Bz) theta=theta*(180/%pi) printf("density of charge carrier\n") disp(p) printf("\nhall angle\n") printf("theta=%.2f deg.",theta) printf("\nhall mobility\n") printf("Uhp=%.4f m2/VS",Uhp)