 
make demand(x) -dsl*x + dsh;'This is the demand curve'
make invdemand(y) (-y+dsh)/dsl;'This is the inverse demand curve'
make supply(x) ssl*x-ssh;'This is the supply curve'
make invsupply(y) (y+ssh)/ssl;'This is the inverse supply curve'
make equilib (dsh+ssh)/(ssl+dsl);'This is the intersection of supply and demand'

make dcpcx (yvalue-dsh)/-dsl;'This is the intersection of the price control line and the demand curve'

make scpcx (yvalue+ssh)/ssl;'This is the intersection of the price control line and the supply curve'

make demcol magenta; 'This is the demand curve color--changing this changes the color of the demand curve throughout this TIMText'

make supcol blue; 'This is the supply curve color--changing this changes the color of the supply curve throughout this TIMText'