summaryrefslogtreecommitdiff
path: root/275/CH1
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /275/CH1
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '275/CH1')
-rwxr-xr-x275/CH1/EX1.1.11/Ch1_1_11.sce17
-rwxr-xr-x275/CH1/EX1.1.20/Ch1_1_20.sce20
-rwxr-xr-x275/CH1/EX1.1.24/Ch1_1_24.sce11
-rwxr-xr-x275/CH1/EX1.1.25/Ch1_1_25.sce11
-rwxr-xr-x275/CH1/EX1.1.26/Ch1_1_26.sce12
-rwxr-xr-x275/CH1/EX1.1.27/Ch1_1_27.sce11
-rwxr-xr-x275/CH1/EX1.1.28/Ch1_1_28.sce11
-rwxr-xr-x275/CH1/EX1.1.29/Ch1_1_29.sce11
-rwxr-xr-x275/CH1/EX1.1.31/Ch1_1_31.sce12
-rwxr-xr-x275/CH1/EX1.1.31/Ch1_31.pngbin0 -> 3499 bytes
-rwxr-xr-x275/CH1/EX1.1.32/Ch1_1_32.sce12
-rwxr-xr-x275/CH1/EX1.1.32/Ch1_32.pngbin0 -> 3465 bytes
-rwxr-xr-x275/CH1/EX1.1.34/Ch1_1_34.sce18
-rwxr-xr-x275/CH1/EX1.1.35/Ch1_1_35.sce11
-rwxr-xr-x275/CH1/EX1.1.48/Ch1_1_48.sce15
-rwxr-xr-x275/CH1/EX1.1.49/Ch1_1_49.sce21
-rwxr-xr-x275/CH1/EX1.1.49/Ch1_49.pngbin0 -> 3366 bytes
-rwxr-xr-x275/CH1/EX1.1.50/Ch1_1_50.sce10
-rwxr-xr-x275/CH1/EX1.1.51/Ch1_1_51.sce28
-rwxr-xr-x275/CH1/EX1.1.51/Ch1_51.pngbin0 -> 3511 bytes
-rwxr-xr-x275/CH1/EX1.1.54/Ch1_1_54.sce17
-rwxr-xr-x275/CH1/EX1.1.55/Ch1_1_55.sce17
-rwxr-xr-x275/CH1/EX1.1.56/Ch1_1_56.sce21
-rwxr-xr-x275/CH1/EX1.1.57/Ch1_1_57.sce23
-rwxr-xr-x275/CH1/EX1.1.65/Ch1_1_65.sce8
-rwxr-xr-x275/CH1/EX1.1.66/Ch1_1_66.sce8
-rwxr-xr-x275/CH1/EX1.1.72/Ch1_1_72.sce15
-rwxr-xr-x275/CH1/EX1.1.75/Ch1_1_75.sce15
-rwxr-xr-x275/CH1/EX1.1.76/Ch1_1_76.sce11
-rwxr-xr-x275/CH1/EX1.1.8/Ch1_1_8.sce15
-rwxr-xr-x275/CH1/EX1.1.9/Ch1_1_9.sce15
31 files changed, 396 insertions, 0 deletions
diff --git a/275/CH1/EX1.1.11/Ch1_1_11.sce b/275/CH1/EX1.1.11/Ch1_1_11.sce
new file mode 100755
index 000000000..1fa3f5981
--- /dev/null
+++ b/275/CH1/EX1.1.11/Ch1_1_11.sce
@@ -0,0 +1,17 @@
+clc
+disp("Example 1.11")
+printf("\n")
+disp("findout resistance and cut in voltage")
+printf("Given\n")
+disp("forward current=100mA,Vr=25V,cut in voltage=0.7v,reverse current=100nA")
+//all the values are from fig 1.10
+Vf=0.35
+If=80*10^-3 //forward current
+Vr=40
+Ir=10^-6 //reverse current
+Rf=Vf/If
+Rr=Vr/Ir
+printf("static forward resistance=\n%f ohm\n",Rf)
+printf("static reverse resistance=\n%f ohm\n",Rr)
+//from the characteristic curve we can find cut in voltage
+printf("cut in voltage= 0.3V")
diff --git a/275/CH1/EX1.1.20/Ch1_1_20.sce b/275/CH1/EX1.1.20/Ch1_1_20.sce
new file mode 100755
index 000000000..a0debd134
--- /dev/null
+++ b/275/CH1/EX1.1.20/Ch1_1_20.sce
@@ -0,0 +1,20 @@
+clc
+disp("Example 1.20")
+printf("\n")
+disp("calculate dynamic and substrate resistance")
+printf("Given\n")
+disp("forward current=20mA,cut in voltage=0.33v")
+If=20*10^-3
+Vf=0.33
+Rf=Vf/If
+If1=If-(10^-2) //min forward current
+If2=If+(10^-2) //max forward current
+Vf1=0.31
+Vf2=0.35
+rd=(Vf2-Vf1)/(If2-If1)
+rd1=0.026/If
+rsub=rd-rd1
+printf("static forward resistance=\n%f ohm\n",Rf)
+printf("Dynamic resistance=\n%f ohm\n",rd)
+printf("Dynamic resistance using forward current=\n%f ohm\n",rd1)
+printf("substrate resistance=\n%f ohm\n",rsub)
diff --git a/275/CH1/EX1.1.24/Ch1_1_24.sce b/275/CH1/EX1.1.24/Ch1_1_24.sce
new file mode 100755
index 000000000..217e12ea8
--- /dev/null
+++ b/275/CH1/EX1.1.24/Ch1_1_24.sce
@@ -0,0 +1,11 @@
+clc
+disp("Example 1.24")
+printf("\n")
+disp("calculate the current in the circuit in fig 1.18")
+//given
+V=12
+R1=10^3
+R2=2*10^3
+//current
+I=V/(R1+R2)
+printf("current in the circuit=%f Ampere",I)
diff --git a/275/CH1/EX1.1.25/Ch1_1_25.sce b/275/CH1/EX1.1.25/Ch1_1_25.sce
new file mode 100755
index 000000000..fe9ad3cdc
--- /dev/null
+++ b/275/CH1/EX1.1.25/Ch1_1_25.sce
@@ -0,0 +1,11 @@
+clc
+disp("Example 1.25")
+printf("\n")
+disp("calculate the diode current")
+//given
+V=12
+R=10^3
+Vd=0.7
+//diode current
+I=(V-Vd)/R
+printf("Diode current=%f Ampere",I)
diff --git a/275/CH1/EX1.1.26/Ch1_1_26.sce b/275/CH1/EX1.1.26/Ch1_1_26.sce
new file mode 100755
index 000000000..ce18fda74
--- /dev/null
+++ b/275/CH1/EX1.1.26/Ch1_1_26.sce
@@ -0,0 +1,12 @@
+clc
+disp("Example 1.26")
+printf("\n")
+disp("calculate the diode current across 2 diodes")
+//given
+V=12
+Vd1=0.7
+Vd2=0.7
+R=10^3
+//current
+I=(V-(Vd1+Vd2))/R
+printf("Diode current =%f Ampere",I)
diff --git a/275/CH1/EX1.1.27/Ch1_1_27.sce b/275/CH1/EX1.1.27/Ch1_1_27.sce
new file mode 100755
index 000000000..376aeb5e7
--- /dev/null
+++ b/275/CH1/EX1.1.27/Ch1_1_27.sce
@@ -0,0 +1,11 @@
+clc
+disp("Example 1.27")
+printf("\n")
+disp("find the forward current in circuit of fig 1.22")
+//given
+V=9
+Vd=0.3
+R=3.3*10^3
+//current
+I=(V-Vd)/R
+printf("forward current=%f Ampere",I)
diff --git a/275/CH1/EX1.1.28/Ch1_1_28.sce b/275/CH1/EX1.1.28/Ch1_1_28.sce
new file mode 100755
index 000000000..e7130a77a
--- /dev/null
+++ b/275/CH1/EX1.1.28/Ch1_1_28.sce
@@ -0,0 +1,11 @@
+clc
+disp("Example 1.28")
+printf("\n")
+disp("find out battery voltage")
+//given
+R=2.7*10^3
+Vd=0.7
+I=1.96*10^-3
+//battery voltage
+V=(I*R)+Vd
+printf("battery voltage=%f volt",V)
diff --git a/275/CH1/EX1.1.29/Ch1_1_29.sce b/275/CH1/EX1.1.29/Ch1_1_29.sce
new file mode 100755
index 000000000..9f9b4ce1d
--- /dev/null
+++ b/275/CH1/EX1.1.29/Ch1_1_29.sce
@@ -0,0 +1,11 @@
+clc
+disp("Example 1.29")
+printf("\n")
+disp("find out series resistance")
+//given
+V=4.5
+Vd=0.3
+I=1.25*10^-3
+//series resistance
+R=(V-Vd)/I
+printf("series resistance=%f ohm",R)
diff --git a/275/CH1/EX1.1.31/Ch1_1_31.sce b/275/CH1/EX1.1.31/Ch1_1_31.sce
new file mode 100755
index 000000000..5fc380b2a
--- /dev/null
+++ b/275/CH1/EX1.1.31/Ch1_1_31.sce
@@ -0,0 +1,12 @@
+clc
+disp("Example 1.31")
+printf("\n")
+disp("Plot the piecewise-linear characteristic of silicon diode")
+printf("Given\n")
+//given
+Vf=[0 0.7 0.74]
+If=[0 0 0.2]
+plot2d(Vf, If)
+xlabel("Vf")
+ylabel("If")
+xtitle("Piecewise-linear characteristic of diode")
diff --git a/275/CH1/EX1.1.31/Ch1_31.png b/275/CH1/EX1.1.31/Ch1_31.png
new file mode 100755
index 000000000..ce975c5e0
--- /dev/null
+++ b/275/CH1/EX1.1.31/Ch1_31.png
Binary files differ
diff --git a/275/CH1/EX1.1.32/Ch1_1_32.sce b/275/CH1/EX1.1.32/Ch1_1_32.sce
new file mode 100755
index 000000000..ea112c9c7
--- /dev/null
+++ b/275/CH1/EX1.1.32/Ch1_1_32.sce
@@ -0,0 +1,12 @@
+clc
+disp("Example 1.32")
+printf("\n")
+disp("Plot the piecewise-linear characterisic of Germanium diode")
+printf("Given\n")
+//given
+Vf=[0 0.3 0.35]
+If=[0 0 0.1]
+plot2d(Vf, If)
+xlabel("Vf")
+ylabel("If")
+xtitle("Piecewise-linear characteristic of diode") \ No newline at end of file
diff --git a/275/CH1/EX1.1.32/Ch1_32.png b/275/CH1/EX1.1.32/Ch1_32.png
new file mode 100755
index 000000000..2efe096fb
--- /dev/null
+++ b/275/CH1/EX1.1.32/Ch1_32.png
Binary files differ
diff --git a/275/CH1/EX1.1.34/Ch1_1_34.sce b/275/CH1/EX1.1.34/Ch1_1_34.sce
new file mode 100755
index 000000000..2984e3be1
--- /dev/null
+++ b/275/CH1/EX1.1.34/Ch1_1_34.sce
@@ -0,0 +1,18 @@
+clc
+disp("Example 1.34")
+printf("\n")
+disp("find out diode current")
+//given
+V=2
+Vr=0.6
+rd1=0
+rd2=0.2
+R=14
+//when rd=0
+//diode current
+I1=(V-Vr)/R
+printf("Diode current when rd=0 is \n%f ampere\n",I1)
+//when rd=0.2
+//diode current
+I2=(V-Vr)/(R+rd2)
+printf("Diode current when rd=0.2 is \n%f ampere\n",I2)
diff --git a/275/CH1/EX1.1.35/Ch1_1_35.sce b/275/CH1/EX1.1.35/Ch1_1_35.sce
new file mode 100755
index 000000000..e7498ceac
--- /dev/null
+++ b/275/CH1/EX1.1.35/Ch1_1_35.sce
@@ -0,0 +1,11 @@
+clc
+disp("Example 1.35")
+printf("\n")
+disp("find out series resistance in circuit fig 1.32")
+V=3
+rd=0.5
+Vr=0.3
+IF=174*10^-3
+//resistance
+R=(V-Vr-(IF*rd))/IF
+printf("The value of resistance is \n%f ohm\n",R)
diff --git a/275/CH1/EX1.1.48/Ch1_1_48.sce b/275/CH1/EX1.1.48/Ch1_1_48.sce
new file mode 100755
index 000000000..11897c26b
--- /dev/null
+++ b/275/CH1/EX1.1.48/Ch1_1_48.sce
@@ -0,0 +1,15 @@
+clc
+disp("Example 1.48")
+printf("\n")
+disp("Find the maximum forward current")
+T1=25 //to find maximum forward current at this temperature
+T2=65 //to find maximum forward current at this temperature
+PT1=600*10^-3 //maximum power dissipation at 25c
+D=5*10^-3 //derating factor
+VT1=0.6 //forward voltage drop(constant at all temperature)
+VT2=VT1
+IT1=PT1/VT1 //maximum forward current at T1
+PT2=PT1-((T2-T1)*D)
+IT2=PT2/VT2 //maximum forward current at T2
+printf("Forward current at temperature T1=\n%f Ampere\n",IT1)
+printf("Forward current at temperature T2=\n%f Ampere\n",IT2)
diff --git a/275/CH1/EX1.1.49/Ch1_1_49.sce b/275/CH1/EX1.1.49/Ch1_1_49.sce
new file mode 100755
index 000000000..e8cac0e16
--- /dev/null
+++ b/275/CH1/EX1.1.49/Ch1_1_49.sce
@@ -0,0 +1,21 @@
+clc
+disp("Example 1.49")
+printf("\n")
+disp("find the maximum forward current at 25c and 80c")
+printf("Given\n")
+T1=25 //to find maximum forward current at this temperature
+T2=80 //to find maximum forward current at this temperature
+VT1=0.65 //forward voltage drop(constant at all temperature)
+VT2=VT1
+PT1=80*10^-3 //maximum power dissipation at 80c
+PT2=30*10^-3 //maximum power dissipation at 30c
+IT1=PT1/VT1
+IT2=PT2/VT2
+T=[0 25 80 114]
+P=[80 80 30 0]
+plot2d(T,P)
+xlabel("Temperature in c")
+ylabel("Power in mW")
+xtitle("Power-Temperature curve")
+printf("Forward current at T1=\n%f Ampere\n",IT1)
+printf("Forward current at T2=\n%f Ampere\n",IT2)
diff --git a/275/CH1/EX1.1.49/Ch1_49.png b/275/CH1/EX1.1.49/Ch1_49.png
new file mode 100755
index 000000000..a0267a449
--- /dev/null
+++ b/275/CH1/EX1.1.49/Ch1_49.png
Binary files differ
diff --git a/275/CH1/EX1.1.50/Ch1_1_50.sce b/275/CH1/EX1.1.50/Ch1_1_50.sce
new file mode 100755
index 000000000..5fbbe9983
--- /dev/null
+++ b/275/CH1/EX1.1.50/Ch1_1_50.sce
@@ -0,0 +1,10 @@
+clc
+disp("Example 1.50")
+printf("\n")
+disp("Find the maximum power at 80c")
+T1=25
+PT1=1000*10^-3 //maximum power dissipation at 25c
+T2=80
+D=4*10^-3 //derating factor
+PT2=PT1-((T2-T1)*D) //maximum power dissipation at 80c
+printf("Maximum Power dissipated at 80c=\n%f watt\n",PT2)
diff --git a/275/CH1/EX1.1.51/Ch1_1_51.sce b/275/CH1/EX1.1.51/Ch1_1_51.sce
new file mode 100755
index 000000000..80ef1b188
--- /dev/null
+++ b/275/CH1/EX1.1.51/Ch1_1_51.sce
@@ -0,0 +1,28 @@
+clc
+disp("Example 1.51")
+printf("\n")
+disp("Find the maximum forward current and Draw power spectrum curve")
+printf("Given\n")
+T1=25
+PT1=1000*10^-3 //maximum power dissipation at 25c
+//Average current
+IT1=500*10^-3
+IT2=IT1
+VT2=0.8 //forward voltage drop
+D=10^-2
+PT2=VT2*IT2
+T2=((PT1-PT2)/D)+T1
+//to caculate maximum forward current at 75c
+T2!=75
+PT2!=PT1-((T2!-T1)*D)
+IT2=PT2!/VT2
+//for(T>25), to draw graph
+ vd=10^-2
+ PT=(1000-(75*10))*10^-3 //maximum power dissipation at 100c
+Temp=[0 25 100 125]
+p=[1000 1000 PT*10^3 0]
+plot2d(Temp ,p)
+xlabel("Temperature in c")
+ylabel("Power in mW")
+xtitle("Power-Temperature Curve")
+printf("Maximum forward current at 75c=\n%f Ampere\n",IT2)
diff --git a/275/CH1/EX1.1.51/Ch1_51.png b/275/CH1/EX1.1.51/Ch1_51.png
new file mode 100755
index 000000000..331c3cb68
--- /dev/null
+++ b/275/CH1/EX1.1.51/Ch1_51.png
Binary files differ
diff --git a/275/CH1/EX1.1.54/Ch1_1_54.sce b/275/CH1/EX1.1.54/Ch1_1_54.sce
new file mode 100755
index 000000000..c26281a95
--- /dev/null
+++ b/275/CH1/EX1.1.54/Ch1_1_54.sce
@@ -0,0 +1,17 @@
+clc
+disp("Example 1.54")
+printf("\n")
+disp("Find the forward voltage drop at 100c and dynamic resistance")
+T1=25
+T2=100
+Vft1=0.6 //forward voltage drop at 25c
+IT1=26*10^-3 //forward current(constant)
+IT2=IT1
+//for silicon diode we know that
+v=(-1.8*10^-3)
+Vft2=Vft1+((T2-T1)*v)
+IF=26*10^-3
+rd1=(26*10^-3/IF)*((T1+273)/298)
+rd2=(26*10^-3/IF)*((T2+273)/298)
+printf("Forward voltage drop at 100c=\n%f volt\n",Vft2)
+printf("Dynamic resistance at 25c and 100c=\n%f ohm\n%f ohm\n",rd1,rd2)
diff --git a/275/CH1/EX1.1.55/Ch1_1_55.sce b/275/CH1/EX1.1.55/Ch1_1_55.sce
new file mode 100755
index 000000000..405e26ed1
--- /dev/null
+++ b/275/CH1/EX1.1.55/Ch1_1_55.sce
@@ -0,0 +1,17 @@
+clc
+disp("Example 1.55")
+printf("\n")
+disp("Calculate maximum & minimum forward voltage drop and Junction dynamic resistance")
+T1=80
+T2=10
+T=25
+//for germanium diode
+v=(-2.2*10^-3)
+Vft1=0.3
+Vft2maximum=Vft1+((T2-T)*v) //voltage drop at 10c
+Vft2minimum=Vft1+((T1-T)*v) //voltage drop at 80c
+IF=20*10^-3
+rd1=(26*10^-3/IF)*((T2+273)/298)
+rd2=(26*10^-3/IF)*((T1+273)/298)
+printf("Maximum and Minimum Forward voltage drop at 25c and 10c=\n%f volt\n%f volt\n",Vft2maximum,Vft2minimum)
+printf("Dynamic resistance at 10c and 80c=\n%f ohm\n%f ohm\n",rd1,rd2)
diff --git a/275/CH1/EX1.1.56/Ch1_1_56.sce b/275/CH1/EX1.1.56/Ch1_1_56.sce
new file mode 100755
index 000000000..7556d6790
--- /dev/null
+++ b/275/CH1/EX1.1.56/Ch1_1_56.sce
@@ -0,0 +1,21 @@
+clc
+disp("Example 1.56")
+printf("\n")
+disp("To find maximum forward current at 25c & 75c and Forward voltage drop and Dynamic resistance")
+PT1=1.5
+VT1=0.9
+D=7.5*10^-3
+//for silicon diodes
+v=(-1.8*10^-3)
+IF=20*10^-3
+T1=25
+T2=75
+IT1=PT1/VT1
+PT2=PT1-((T2-T1)*D)
+IT2=PT2/VT1 //assume voltage drop remains constant at all temperature
+VF2=VT1+((T2-T1)*v)
+rd1=(26*10^-3/IF)*((T1+273)/298)
+rd2=(26*10^-3/IF)*((T2+273)/298)
+printf("Maximum forward current at 25c & 75c =\n%f Ampere\n%f Ampere\n",IT1,IT2)
+printf("Forward voltage drop at 75c=\n%f volt\n",VF2)
+printf("Dynamic resistance at 25c and 75c=\n%f ohm\n%f ohm\n",rd1,rd2)
diff --git a/275/CH1/EX1.1.57/Ch1_1_57.sce b/275/CH1/EX1.1.57/Ch1_1_57.sce
new file mode 100755
index 000000000..4f7e786db
--- /dev/null
+++ b/275/CH1/EX1.1.57/Ch1_1_57.sce
@@ -0,0 +1,23 @@
+clc
+disp("Example 1.57")
+printf("\n")
+disp("To find diode current at 25c and 75c")
+RL=150
+//both diode voltage drop as given in fig 1.47
+Vr1=0.7 //for silicon
+Vr2=0.3 //for Germanium
+Vdc=5
+//apply KVL to given circuit
+IF1=(Vdc-(Vr1+Vr2))/RL
+//for silicon diode
+v=(-1.8*10^-3)
+T1=25
+T2=75
+VFT2=Vr1+((T2-T1)*v)
+//for Germanium Diode
+v=(-2.2*10^-3)
+VFT2!=Vr2+((T2-T1)*v)
+IF2=(Vdc-(VFT2!+VFT2))/RL
+printf("Diode current at 25c and 75c =\n%f ampere\n%f ampere\n",IF1,IF2)
+
+
diff --git a/275/CH1/EX1.1.65/Ch1_1_65.sce b/275/CH1/EX1.1.65/Ch1_1_65.sce
new file mode 100755
index 000000000..ac20fba8c
--- /dev/null
+++ b/275/CH1/EX1.1.65/Ch1_1_65.sce
@@ -0,0 +1,8 @@
+clc
+disp("Example 1.65")
+printf("\n")
+disp("Find the minimal fall-time")
+//reverse-recovery time is
+trr=4*10^-9
+tfmin=10*trr
+printf("The minimal fall-time for voltage pulses applied=\n%3.2e sec\n",tfmin)
diff --git a/275/CH1/EX1.1.66/Ch1_1_66.sce b/275/CH1/EX1.1.66/Ch1_1_66.sce
new file mode 100755
index 000000000..cce24b083
--- /dev/null
+++ b/275/CH1/EX1.1.66/Ch1_1_66.sce
@@ -0,0 +1,8 @@
+clc
+disp("Example 1.66")
+printf("\n")
+disp("Find the maximum recovery time")
+//fall-time is
+tf=0.5*10^-6
+trrmax=tf/10
+printf("The minimal fall-time for voltage pulses applied=\n%3.2e sec\n",trrmax)
diff --git a/275/CH1/EX1.1.72/Ch1_1_72.sce b/275/CH1/EX1.1.72/Ch1_1_72.sce
new file mode 100755
index 000000000..9b097eea6
--- /dev/null
+++ b/275/CH1/EX1.1.72/Ch1_1_72.sce
@@ -0,0 +1,15 @@
+clc
+disp("Example 1.72")
+printf("\n")
+disp("Find the maximum current flow through Zener diode")
+Vz=7.5 //zener voltage
+Pd1=400*10^-3 //maximum power dissipation at 50c
+T1=50
+T2=100
+D=3.2*10^-3
+//current at 50c
+Izm1=Pd1/Vz
+//current at 100
+Pd2=Pd1-((T2-T1)*D)
+Izm2=Pd2/Vz
+printf("maximum current flow through Zener diode at 50c & 100c=\n%f Ampere\n%f Ampere\n",Izm1,Izm2)
diff --git a/275/CH1/EX1.1.75/Ch1_1_75.sce b/275/CH1/EX1.1.75/Ch1_1_75.sce
new file mode 100755
index 000000000..81407610e
--- /dev/null
+++ b/275/CH1/EX1.1.75/Ch1_1_75.sce
@@ -0,0 +1,15 @@
+clc
+disp("Example 1.75")
+printf("\n")
+disp("Find the current through diode at 50c & 80c")
+T1=50
+T2=80
+D=3.2*10^-3
+Pd1=400*10^-3
+Vz=6.2
+//at 50c
+Izm1=Pd1/Vz
+//at 80c
+Pd2=Pd1-((T2-T1)*D)
+Izm2=Pd2/Vz
+printf("the current through diode at 50c & 80c=\n%f ampere\n%f ampere\n",Izm1,Izm2)
diff --git a/275/CH1/EX1.1.76/Ch1_1_76.sce b/275/CH1/EX1.1.76/Ch1_1_76.sce
new file mode 100755
index 000000000..363fe647d
--- /dev/null
+++ b/275/CH1/EX1.1.76/Ch1_1_76.sce
@@ -0,0 +1,11 @@
+clc
+disp("Example 1.76")
+printf("\n")
+disp("Find the diode current and power dissipation")
+Vdc=12
+Vz=4.3 //zener voltage
+R=820
+Iz=(Vdc-Vz)/R
+Pd=Vz*Iz
+printf("the diode current=\n%f ampere\n",Iz)
+printf("the power dissipation=\n%f watt\n",Pd)
diff --git a/275/CH1/EX1.1.8/Ch1_1_8.sce b/275/CH1/EX1.1.8/Ch1_1_8.sce
new file mode 100755
index 000000000..b5a17adb1
--- /dev/null
+++ b/275/CH1/EX1.1.8/Ch1_1_8.sce
@@ -0,0 +1,15 @@
+clc
+disp("Example 1.8")
+printf("\n")
+disp("find out resistance")
+printf("Given\n")
+disp("forward current=100mA,Vr=25V,cut in voltage=0.7v,reverse current=100nA")
+//all the values are from fig 1.8
+Vf=0.7
+If=100*10^-3 //forward current
+Vr=25
+Ir=100*10^-9 //reverse current
+Rf=Vf/If
+Rr=Vr/Ir
+printf("static forward resistance=\n%f ohm\n",Rf)
+printf("static reverse resistance=\n%f ohm\n",Rr)
diff --git a/275/CH1/EX1.1.9/Ch1_1_9.sce b/275/CH1/EX1.1.9/Ch1_1_9.sce
new file mode 100755
index 000000000..5407f1ca2
--- /dev/null
+++ b/275/CH1/EX1.1.9/Ch1_1_9.sce
@@ -0,0 +1,15 @@
+clc
+disp("Example 1.9")
+printf("\n")
+disp("find out resistance")
+printf("Given\n")
+disp("forward current=200mA,Vr=75V,cut in voltage=0.75v,reverse current=50nA")
+//all values are from fig 1.9
+Vf=0.75
+If=200*10^-3 //forward current
+Vr=75
+Ir=50*10^-9 //reverse current
+Rf=Vf/If
+Rr=Vr/Ir
+printf("static forward resistance=\n%f ohm\n",Rf)
+printf("static reverse resistance=\n%f ohm\n",Rr)