summaryrefslogtreecommitdiff
path: root/992/CH3/EX3.5/Ex3_5.sce
diff options
context:
space:
mode:
Diffstat (limited to '992/CH3/EX3.5/Ex3_5.sce')
-rwxr-xr-x992/CH3/EX3.5/Ex3_5.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/992/CH3/EX3.5/Ex3_5.sce b/992/CH3/EX3.5/Ex3_5.sce
new file mode 100755
index 000000000..a1701b366
--- /dev/null
+++ b/992/CH3/EX3.5/Ex3_5.sce
@@ -0,0 +1,21 @@
+
+//Exa:3.5
+clc;
+clear;
+close;
+//Given:
+fc=25*10^6;//in Hz
+fm=400;//in Hz
+A=4;//in volts
+wc=2*%pi*fc;
+wm=2*%pi*fm;
+w=10000;
+mf=w/fm;
+printf("\n a)Eq:FM \nV=%f*sin(%f*t+%f*sin(%f)*t)",A,wc,mf,wm);
+printf("\n\n b)Eq:PM \nV=%f*sin(%f*t+%f*sin(%f)*t)",A,wc,mf,wm);
+fm2=5*fm;
+mf12=mf/5;
+mf22=mf;
+wm=2*%pi*fm2;
+printf("\n\n c)Eq:FM \nV=%f*sin(%f*t+%f*sin(%f)*t)",A,wc,mf12,wm);
+printf("\n\n d)Eq:FM \nV=%f*sin(%f*t+%f*sin(%f)*t)",A,wc,mf22,wm); \ No newline at end of file