clear all
clc
i=0
for x=-2:0.1:5
i=i+1
x(i)=x1
y(i)=x+5
end
for x=-5:5
y=x^2+4*x
x(i)=x
y(i)=y
if x<0
plot(y,x,'gs');hold on
else
plot(y,x,'r*');hold on
این برنامه کاملا تست شده و فاقد ایراد می باشد