> qd:=100-2*p;

> qs:=3*p-50;

> solve(qd=qs,p);

> eval(qd, p=30);

> plot({qd,qs}, p=20..35);

>

> nqs:=3*(p - 0.05*p)-50;

> solve(qd=nqs,p);

> eval(qd,p=30.92783505);

change in price = 30.92783505-30= .92 etc

> .05*30.92;

>

> 1.55-0.92;

> y:=1/x;

> dy:=diff(y,x);

> plot(2*p-100, p= 0..10);

> y:=2*p-100;

y := 2*p-100

> plot(y,p=0..10);

>