use DocumentTools in 
#
# Application    	= Nyquist animation
# Component.name 	= Generate Plot
# Component.type 	= Button
#
# Itamar Bocher,  	 25 - Nov - 2012

# Input
G		:=Do(%Nyquist);
H		:=Do(%NyquistFeedback);
a		:=Do(%Nyquist_a_display);
b		:=Do(%Nyquist_b_display);


# Output
Do(%Nyquist_a_display = a);
Do(%Nyquist_b_display = b);
Do(%Nyquist_Plot = NyquistPlot(NewSystem(G*H),numpoints=2000,color=blue));
Do(%Nichols_Plot = NicholsPlot(TransferFunction(G*H),numpoints=2000,color=blue));
end use;