for ($i=1; $i<1000; i++) {
 
      $sum_equ ={(1-$c[$i])(1-2*$q[$i])}/(-2*$q[$i]*$x +$x +$q[$i]) + {$c[$i]*(2*$q[$i] -1)}/(2*$q[$i]*$x-$x+1)
    }

##</code><code>##

      when i=0; $sum_equ = (1 - 2*10)/(-2*10*$x +$x +10);
      when i=1; $sum_equ = (1 - 2*10)/(-2*10*$x +$x +10) +(2*5 -1)/(2*5*$x-$x+1);
      .....

      when i=999; $sum_equ = (1 - 2*10)/(-2*10*$x +$x +10) +(2*5 -1)/(2*5*$x-$x+1)+ ....... + (2*22 -1)/(2*22*$x-$x+1);

##</code><code>##


       for ($i=1;$i<1000;$i++) {

      if ($c==1) {

                        $sum_equ = $sum_equ + (1 - 2*$q[$i]/(-2*$q[$i]*$x +$x +$q[$i] );
                } elsif ($c ==0) {
                        $sum_equ = $sum_equ + (2*$q[$i] -1)/(2*$q[$i]*$x-$x+1);

                } # End of if

        } #end of for