 W2
  W2  1-s
  1-s
     q     = [pq] [(q)(W2
      - W1) + (p)(W1 - W0)] / [
q     = [pq] [(q)(W2
      - W1) + (p)(W1 - W0)] / [ ]      
                       
                  [GSM]
]      
                       
                  [GSM]
             
=
[pq]
        [(q)(1 - s) - 1)) + (p)(1 - 1)] / [p2(1) + 2pq(1) + q2(1
        - s)]     
        [Fitness phenotypes W0
          = W1 of AA & AB
        cancel; expand  ]
] 
= [pq] [-sq] / [p2 + 2pq + q2 - sq2] [Sort out numerator; extract p2 + 2pq + q2 in denominator]
 q   
              = -spq2 / (1 - sq2)
q   
              = -spq2 / (1 - sq2)