Xcos examples from textbooks and for blocksHEADmaster

3 files changed, 41 insertions, 0 deletions

diff --git a/Working_Examples/3432/CH3/EX3.16/DEPENDENCIES/fig_settings.sci b/Working_Examples/3432/CH3/EX3.16/DEPENDENCIES/fig_settings.sci
new file mode 100755
index 0000000..5d5e7d4
--- /dev/null
+++ b/Working_Examples/3432/CH3/EX3.16/DEPENDENCIES/fig_settings.sci
@@ -0,0 +1,9 @@
+//------------------------------------------------------------------

+//figure handel settings

+f=get("current_figure"); //Current figure handle

+f.background=8; //make the figure window background white

+l=f.children(1); 

+l.background=8 ;//make the text background white

+id=color('grey');

+xgrid(id);

+//------------------------------------------------------------------

diff --git a/Working_Examples/3432/CH3/EX3.16/Ex3_16.sce b/Working_Examples/3432/CH3/EX3.16/Ex3_16.sce
new file mode 100755
index 0000000..84c0062
--- /dev/null
+++ b/Working_Examples/3432/CH3/EX3.16/Ex3_16.sce
@@ -0,0 +1,32 @@
+//Example 3.16 DC Motor Transfer Function.

+

+xdel(winsid())//close all graphics Windows

+clear;

+clc;

+//------------------------------------------------------------------

+//Coefficients of numerator and denominator of the transfer function

+numb=[100];

+denb=[0 101 10.1 1];

+

+// Transfer function

+Ns=poly(numb,'s','coeff');

+Ds=poly(denb,'s','coeff');

+sysb=syslin('c',Ns/Ds);

+

+//gain (K) pole (P) and zeros (Z) of the system

+temp=polfact(Ns);

+Z=roots(Ns); //locations of zeros

+P=roots(Ds); //locations of poles

+K=temp(1); //first entry is always gain

+disp( K,"Gain", P, "Poles",Z,"Zeros",)

+

+//Transient response of DC Motor (consider velocity as output)

+s=%s;

+t=linspace(0,5,501);

+y=csim('step',t,sysb*s) 

+plot(t,y)

+exec .\fig_settings.sci; //custom script for setting figure properties

+title('Transient response of DC Motor','fontsize',3)

+xlabel('$Time\,\, t(sec.)$','fontsize',3)

+ylabel('$\omega\,\,(rad/sec)$','fontsize',3)

+//------------------------------------------------------------------

diff --git a/Working_Examples/3432/CH3/EX3.16/Ex3_16_f0.pdf b/Working_Examples/3432/CH3/EX3.16/Ex3_16_f0.pdf
new file mode 100755
index 0000000..13ab471
--- /dev/null
+++ b/Working_Examples/3432/CH3/EX3.16/Ex3_16_f0.pdf