plot.m

来自「MDPSAS工具箱是马里兰大学开发的」· M 代码 · 共 20 行

function plot(A,color_style)

cs = {};

if nargin==2, cs = color_style; end

unpack(A)

r = get(S,'qp');
r = r{1};
T = get(T,'val');

if isempty(cs)
    plot(r,T,[Rw Rw],[min(T) max(T)],':')
    axis([0 0.22 min(T) max(T)])
else
    plot(r, T, cs,[Rw Rw],[250 1000],':')
    axis([0 0.22 250 1000])
end