1 files changed, 58 insertions, 0 deletions
diff --git a/911/CH8/EX8.1.a/ex_8_1_a.sce b/911/CH8/EX8.1.a/ex_8_1_a.sce
new file mode 100644
index 000000000..e0eecdad9
--- /dev/null
+++ b/911/CH8/EX8.1.a/ex_8_1_a.sce
@@ -0,0 +1,58 @@
+//example 8.1 (a)//
+clear
+//clears the screen//
+clc
+//clears the variable//
+close
+//R =input('Enter the value of the resistance R in Kohms : ')//
+//C =input('Enter the value of the Capacitance C in micro farads : ' ) ;
+sp =input ('Enter the spacing between two input pulses in microseconds: ' );
+R =14.5;
+//taking give values//
+C =0.01;
+t= 693* R*C;
+//calculting time constant//
+tt=t*10;
+p =1;
+len =sp*60 -1;
+q =1;
+for j=1: len 
+//plotin the graphs//
+lo = sp *10;
+f= modulo (j,lo);
+if f ==0 then
+inpu (j)=1;
+else
+inpu (j)=0;
+end
+inpu (1) =1;
+o(j)=2;
+end
+while q<len
+result (q) =0;
+q=q+1;
+end
+while p<len
+if inpu (p)==1 then
+for k=1: tt
+result (p+k) =1;
+end
+p=p+tt;
+else
+result (p) =0;
+p=p+1;
+end
+end
+subplot (2 ,1 ,1);
+//ploting bothe graphs in same window//
+plot (o);
+plot ( inpu );
+xlabel ( ' time X10^􀀀7 seconds ' );
+ylabel ( 'Magnitude ' ) ;
+title ( ' input pulses ' );
+subplot (2 ,1 ,2);
+plot (o);
+plot ( result );
+xlabel ( ' t ime X10^􀀀7 seconds' );
+ylabel ( 'Magnitude' );
+title ( ' Output ' );
+\ No newline at end of file