diff options
Diffstat (limited to '3845/CH24')
| -rw-r--r-- | 3845/CH24/EX24.1/Ex24_1.sce | 7 | ||||
| -rw-r--r-- | 3845/CH24/EX24.2/Ex24_2.sce | 14 | ||||
| -rw-r--r-- | 3845/CH24/EX24.3/Ex24_3.sce | 19 | ||||
| -rw-r--r-- | 3845/CH24/EX24.4/Ex24_4.sce | 15 |
4 files changed, 55 insertions, 0 deletions
diff --git a/3845/CH24/EX24.1/Ex24_1.sce b/3845/CH24/EX24.1/Ex24_1.sce new file mode 100644 index 000000000..b6a452a05 --- /dev/null +++ b/3845/CH24/EX24.1/Ex24_1.sce @@ -0,0 +1,7 @@ +//Example 24.1
+E=1000;//E-field strength (V/m)
+c=3*10^8;//Speed of light (m/s)
+B=E/c;//B-field strength (T)
+printf('B-field strength = %0.2e T',B)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH24/EX24.2/Ex24_2.sce b/3845/CH24/EX24.2/Ex24_2.sce new file mode 100644 index 000000000..f0d9644cc --- /dev/null +++ b/3845/CH24/EX24.2/Ex24_2.sce @@ -0,0 +1,14 @@ +//Example 24.2
+c=3*10^8;//Speed of light (m/s)
+f1=1530*10^3;//AM radio signal frequency (Hz)
+lambda1=c/f1;//AM radio signal wavelength (m)
+printf('AM radio signal wavelength = %0.1f m',lambda1)
+f2=105.1*10^6;//FM radio signal frequency (Hz)
+lambda2=c/f2;//FM radio signal wavelength (m)
+printf('\nFM radio signal wavelength = %0.2f m',lambda2)
+f3=1.90*10^9;//Cellphone signal frequency (Hz)
+lambda3=c/f3;//Cellphone signal wavelength (m)
+printf('\nCellphone signal wavelength = %0.3f m',lambda3)
+//Answer varies due to round off error
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
diff --git a/3845/CH24/EX24.3/Ex24_3.sce b/3845/CH24/EX24.3/Ex24_3.sce new file mode 100644 index 000000000..979530a48 --- /dev/null +++ b/3845/CH24/EX24.3/Ex24_3.sce @@ -0,0 +1,19 @@ +//Example 24.3
+rho=1000;//Density of tissue (kg/m^3)
+d=0.8*10^-3;//Diameter of cornea (m)
+A=%pi*d^2/4;//Area (m^2)
+t=0.3*10^-6;//Thickness (m)
+V=A*t;//Volume of tissue (m^3)
+m=rho*V;//Mass of tissue evaporated (kg)
+c=4186;//Specific heat of water (J/kg/K)
+delta_T=100-34;//Change in temperature (C)
+L_v=2256*10^3;//Latent heat of vaporization of water (J/kg)
+Q_tot=m*(c*delta_T+L_v);//Energy absorbed (J)
+printf('Total energy absorbed by the tissue = %0.0f*10^-9 kJ',Q_tot/1000/10^-9)
+printf('\nDiscussion:')
+ave_pow=Q_tot*400;//Average power if there are 400 bursts per second (W)
+printf('\nAverage power if there are 400 laser bursts per second = %0.1f mW',ave_pow*1000)
+//Answer varies due to round off error
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
+
diff --git a/3845/CH24/EX24.4/Ex24_4.sce b/3845/CH24/EX24.4/Ex24_4.sce new file mode 100644 index 000000000..7ca5f5d64 --- /dev/null +++ b/3845/CH24/EX24.4/Ex24_4.sce @@ -0,0 +1,15 @@ +//Example 24.4
+P=1*10^3;//Power (W)
+A=0.30*0.40;//Area (m^2)
+I_ave=P/A;//Intensity (W/m^2)
+printf('a.Intensity = %0.2e W/m^2',I_ave)
+I_0=2*I_ave;//Peak intensity (W/m^2)
+printf('\n Peak Intensity = %0.2e W/m^2',I_0)
+c=3*10^8;//Speed of light (m/s)
+eps_0=8.85*10^-12;//Permittivity of free space (C^2/N.m^2)
+E_0=sqrt(2*I_ave/(c*eps_0));//Peak electric field strength (V/m)
+printf('\nb.Peak electric field strength = %0.2e V/m',E_0)
+B_0=E_0/c;//Peak magnetic field strength (T)
+printf('\nc.Peak magnetic field strength = %0.2e T',B_0)
+//Openstax - College Physics
+//Download for free at http://cnx.org/content/col11406/latest
|