#lang racket/base
(require plot)

(define p 
  (list  #(0 0)
         #(1  1)
         #(2 4)))

(define q 
  (list  #(0 4)
         #(1 5)
         #(2 8)))

(plot (list (points p)
            (points q #:color 'red)
            (parametric (lambda (t) (vector (- t 3) t)) -1 9 #:label "x-y=-3 [a₁=1]")
            (parametric (lambda (t) (vector t (+ (* 2 t) 1.5))) -1 9 
                        #:label "2x-y=-1.5 [a₂=1]" #:color 'pink #:width 4)
            (parametric (lambda (t) (vector t (+ (* 2 t) 1.5))) -1 9 
                        #:label "1.33x-0.66y=-1 [δ=1]" #:color 'black #:style 'dot)
            )
      #:x-min -1
      #:y-min -1
      #:x-max 4
      #:y-max 9
      #:out-file "separation3.pdf")