4 files changed, 66 insertions, 0 deletions
diff --git a/1730/CH6/EX6.1/Exa6_1.sce b/1730/CH6/EX6.1/Exa6_1.sce
new file mode 100755
index 000000000..96f46c4b0
--- /dev/null
+++ b/1730/CH6/EX6.1/Exa6_1.sce
@@ -0,0 +1,19 @@
+//Exa 6.1
+clc;
+clear;
+close;
+// given data
+epsilon_r=2.5;
+epsilon_o=8.854*10^-12;
+d=.2*10^-3;// in m
+A=20*10^-4;// in m^2
+omega=2*%pi*10^6;// in radians/s
+f=10^6;
+tan_delta=4*10^-4;
+C=epsilon_o*epsilon_r*A/d;// in F
+disp("Capicitance is : "+string(C*10^12)+" miu miu F");
+// Formula P=V^2/R, so
+// R=V^2/P and P= V^2*2*%pi* f * C * tan delta, putting the value of P, we get
+R=1/(2*%pi*f*C*tan_delta);// in ohm
+disp("The element of parallel R-C circuit is : "+string(R*10^-6)+" M ohm");
+
diff --git a/1730/CH6/EX6.2/Exa6_2.sce b/1730/CH6/EX6.2/Exa6_2.sce
new file mode 100755
index 000000000..84d49011e
--- /dev/null
+++ b/1730/CH6/EX6.2/Exa6_2.sce
@@ -0,0 +1,16 @@
+//Exa 6.2
+clc;
+clear;
+close;
+// given data
+g=0.055;// in V-m/N
+t=2*10^-3;// in m
+P=1.25*10^6;// in N/m^2
+epsilon=40.6*10^-12;// in F/m
+V_out=g*t*P;
+disp("Output voltage is : "+string(V_out)+" V");
+// Formula Charge Sensivity=epsilon_o*epsilon_r*g=epsilon*g
+ChargeSensivity=epsilon*g;
+disp("Charge Sensivity is : "+string(ChargeSensivity)+" C/N");
+
+
diff --git a/1730/CH6/EX6.3/Exa6_3.sce b/1730/CH6/EX6.3/Exa6_3.sce
new file mode 100755
index 000000000..81ae63814
--- /dev/null
+++ b/1730/CH6/EX6.3/Exa6_3.sce
@@ -0,0 +1,12 @@
+//Exa 6.3
+clc;
+clear;
+close;
+// given data
+V_out=150;// in V
+t=2*10^-3;// in m
+g=0.05;// in V-m/N
+A=5*5*10^-6;// in m^2
+F=V_out*A/(g*t);// in N
+disp("Force applied is : "+string(F)+" N")
+
diff --git a/1730/CH6/EX6.4/Exa6_4.sce b/1730/CH6/EX6.4/Exa6_4.sce
new file mode 100755
index 000000000..1ed59b36e
--- /dev/null
+++ b/1730/CH6/EX6.4/Exa6_4.sce
@@ -0,0 +1,19 @@
+//Exa 6.4
+clc;
+clear;
+close;
+// given data
+g=12*10^-3;// in V-m/N
+t=1.25*10^-3;// in m
+A=5*5*10^-6;// in m^2
+F=3;// in N
+ChargeSensitivity=150*10^-12;// in C/N
+P=F/A;
+V_out=g*t*P;// in V
+Q=ChargeSensitivity*F;
+disp("Total charge developed is : "+string(Q)+" C");
+// Formula C=Q/V;
+C=Q/V_out;
+disp("Capacitance is : "+string(C*10^12)+" miu miu F");
+
+// Note: Answer in the Book is wrong
+\ No newline at end of file