diff options
Diffstat (limited to '2975/CH31')
| -rw-r--r-- | 2975/CH31/EX31.17w/Ex31_17w.sce | 19 | ||||
| -rw-r--r-- | 2975/CH31/EX31.1w/Ex31_1w.sce | 24 | ||||
| -rw-r--r-- | 2975/CH31/EX31.21w/Ex31_21w.sce | 27 | ||||
| -rw-r--r-- | 2975/CH31/EX31.2w/Ex31_2w.sce | 22 |
4 files changed, 92 insertions, 0 deletions
diff --git a/2975/CH31/EX31.17w/Ex31_17w.sce b/2975/CH31/EX31.17w/Ex31_17w.sce new file mode 100644 index 000000000..6e53481f6 --- /dev/null +++ b/2975/CH31/EX31.17w/Ex31_17w.sce @@ -0,0 +1,19 @@ +//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 31_17w
+
+clc;clear;
+//Given Data
+
+area=100*10^-4; //Area of the cross section (Unit:m^2)
+epsilon=8.85*10^-12; //Value of electric constant (Unit: C^2/N-m^2)
+sepration=1*10^-3; //Sepration between the parallel plate (Unit:m)
+charge=0.12*10^-6; //Charge of the capacitor (Unit:C)
+voltage=120; //Battery voltage (Unit:V)
+
+//Calculation
+
+capacitance=charge/voltage; //Calculation of the capacitance (Unit: C)
+k=capacitance*sepration/(epsilon*area); //Calculation of the dielectric constant (Unit:unitless)
+
+disp(k,"The dielectric constant of the material filling the gap is (Unit:unitless)");
diff --git a/2975/CH31/EX31.1w/Ex31_1w.sce b/2975/CH31/EX31.1w/Ex31_1w.sce new file mode 100644 index 000000000..346b4eab0 --- /dev/null +++ b/2975/CH31/EX31.1w/Ex31_1w.sce @@ -0,0 +1,24 @@ +//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 31_1w
+
+clc;clear;
+//Given Data
+
+epsilon=8.85*10^-12; //Value of electric constant (Unit: C^2/N-m^2)
+area=200*10^-4; //Area of the plates (Unit:m^2)
+d=1*10^-3; //Distance between the plates (Unit:m)
+charge=1*10^-9; //Charge in the capacitor (Unit:C)
+d_new=2*10^-3; //New Distance between the plates (Unit:m)
+
+//Calculation
+
+capacitance=area*epsilon/d; //Calculation of the capacitance of the plate (Unit:Farad)
+potential_difference=charge/capacitance; //Calculation of the potential difference between plates (Unit:Volts)
+
+capacitance_new=area*epsilon/d_new; //Calculation of new capacitance of the plate (Unit:Farad)
+potential_difference_new=charge/capacitance_new; //Calculation of new potential difference between plates (Unit:Volts)
+
+disp(potential_difference,"The potential difference developed between the plates is (Unit: volts)");
+disp(potential_difference_new,"New potential difference developed between the plates when sepration is increased (Unit: volts)");
+
diff --git a/2975/CH31/EX31.21w/Ex31_21w.sce b/2975/CH31/EX31.21w/Ex31_21w.sce new file mode 100644 index 000000000..8758ac6df --- /dev/null +++ b/2975/CH31/EX31.21w/Ex31_21w.sce @@ -0,0 +1,27 @@ +//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 31_21w
+
+clc;clear;
+//Given Data
+
+capacitance=100*10^-6; //Capacitance of the capacitor (Unit: Coulomb)
+dielectric=5; //Dielectric constant (Unit:unitless)
+voltage=200; //Voltage of power supply(Unit:V)
+
+//Calculation
+init_charge=capacitance*voltage;
+new_capacitance=capacitance*dielectric;
+final_charge=new_capacitance*voltage;
+
+change_charge=final_charge-init_charge; //Calculation of Extra charge flown through the power supply (Unit:C)
+change_charge_milli=change_charge*10^3; //Changing the charge into milli coulomb (Unit:mC)
+work_done=change_charge*voltage; //Calculating the work done by the supply (Unit:Joules)
+
+init_static_energy=0.5*capacitance*voltage^2; //Calculating the electrostatic field energy of the capacitor without the dielectric slab(Unit:Joules)
+final_static_energy=0.5*new_capacitance*voltage^2; //Calculating the electrostatic field energy of the capacitor with the dielectric slab(Unit:Joules)
+change_static_energy=final_static_energy-init_static_energy; //Calculating the change in the electrostatic energy of the electric field in the capacitor (Unit:Joules)
+
+disp(change_charge_milli,"The extra charge flown through the power supply is (Unit:mC)");
+disp(work_done,"The work done by the supply is (Unit:Joules)");
+disp(change_static_energy,"The change in the electrostatic energy of the electric field in the capacitor is (Unit:Joules)");
diff --git a/2975/CH31/EX31.2w/Ex31_2w.sce b/2975/CH31/EX31.2w/Ex31_2w.sce new file mode 100644 index 000000000..7134fed04 --- /dev/null +++ b/2975/CH31/EX31.2w/Ex31_2w.sce @@ -0,0 +1,22 @@ +//developed in windows 8 operating system 64bit
+//platform Scilab 5.4.1
+//example 31_2w
+
+clc;clear;
+//Given Data
+
+k=9*10^9; //Value of the coulomb constant (Unit: N-m^2/C^2)
+capacitance=50*10^-12; //Sphere capaciance(Unit: Farad)
+potential=10^4; //Required potential difference (Unit:volt)
+
+//Calculation
+
+radius=k*capacitance; //Calculation of the radius of the sphere (Unit:m)
+radius_cm=radius*100; //Changing the radius into cm (Unit:cm)
+charge=capacitance*potential; //Calculation of the charge (Unit:C)
+charge_micro=charge*10^6; //Changing the charge in micro coulomb (Unit : micro Coulomb)
+
+
+disp(radius_cm,"The radius of the isolated sphere is(Unit:cm)");
+disp(charge_micro,"Charge on the sphere is (Unit:micro Coulomb)");
+
|