1 files changed, 37 insertions, 0 deletions
diff --git a/1979/CH9/EX9.13/Ex9_13.sce b/1979/CH9/EX9.13/Ex9_13.sce
new file mode 100755
index 000000000..76fdfb76d
--- /dev/null
+++ b/1979/CH9/EX9.13/Ex9_13.sce
@@ -0,0 +1,37 @@
+//chapter-9 page 414 example 9.13
+//==============================================================================
+clc;
+clear;
+
+//For a negative resistance parametric amplifier
+fs=2*10^9;//Signal Frequency in Hz
+fp=12*10^9;//pump Frequency in Hz
+fi=10*10^9;//idler Frequency in Hz
+fd=5*10^9;//Frequency in Hz
+Ri=1000;//o/p resistance of idler generator in ohms
+Rg=1000;//o/p resistance of signal generator in ohms
+RTs=1000;//total series resistance at fs in ohms
+RTi=1000;//total series resistance at fi in ohms
+r=0.35;
+rQ=10;//figure of merit
+Td=300;//Avg Diode Temperature in K
+T0=300;//Ambient Temperature in K
+C=0.01*10^(-12);//Capacitance in F
+
+//CALCULATION
+ws=2*(%pi)*fs;
+wi=2*(%pi)*fi;
+R=((r^2)/(ws*wi*RTi*C^2));//Equivalent noise resistance in ohms
+a=(R/RTs);
+G=((4*fi*a*Rg*Ri)/(fs*RTs*RTi*(1-a)^2));//Gain
+GdB=10*log10(G);//Gain in dB
+F=(1+((2*Td/T0)*((1/rQ)+(1/rQ)^2)));//Noise Figure 
+FdB=10*log10(F);//Noise Figure in dB
+BW=((r/2)*(sqrt(fd/(fs*G))));
+
+//OUTPUT
+mprintf('\nEquivalent noise resistance is R=%4.1f ohms\nGain is GdB=%2.1f dB\nNoise Figure is FdB=%1.2f dB \nBandWidth is BW=%1.3f',R,GdB,FdB,BW);
+
+//=========================END OF PROGRAM===============================
+
+//Note: Check the Bandwidth answer is once It should be 0.027