Jeden pól v pravé polorovině

Např. pro a dostaneme

> P:=K/(p-p1);
pp:=abs(subs({K=1000,p1=1000,p=sigma+I*omega},P)):pp:=unapply(%,(omega,sigma));

> complexplot([1000],Re=-1100..1100,Im=-1.1..1.1,style=point,symbol=diamond,tickmarks=[1,1],title=`Umístění pólu p1`,labelfont=[HELVETICA,8],axesfont=[HELVETICA,8]);

Zde analogicky k předchzímu příkladu pro vzrůstajcí , vzrůstá i hypotetický přenos (pro a vykazuje modul přenosu maximum ( )). Proč jsme nazvali přenos hypotetickým se ukáže v závěru této sekce.

Na následujícím grafu je již vykreslen pouze výřez.

> Surface:=plot3d(pp,1..3000,-200..200,style=patchnogrid,axes=box,orientation=[-60,50]):
curve_o:=[omega,0,pp(omega,0)]:
B_o:=spacecurve(curve_o,omega=1..3000,axes=none,color=black,thickness=3):
display(Surface,B_o,labels=[omega,sigma,`|pp|`],title=`Hypotetický modul přenosu v závislosti na "kompexním kmitočtu" p`,labelfont=[HELVETICA,8],axesfont=[HELVETICA,8]);

Jak je zřejmé, bude hypotetická modulová chrakteristika takového přenosu vykazovat stejný průběh jako v předešlém případě. Co se týče samotného průběhu se bude lišit pouze charakteristika fázová, a to posunutím o (není vykreslena).

> semilogplot(20*log10(pp(omega,0)),omega=1..3000,y=-10..0,title=`Hypotetická modulová charakteristika přenosu`,labels=[omega,`log|pp|`],axes=FRAME,labelfont=[HELVETICA,8],axesfont=[HELVETICA,8],thickness=3);