double Calc(double p, double w, double s){ double d = 0.0; if (s < 250.) d=0; else if (250. ≤ s && s < 500.) d = 0.02; else if (500 ≤ s && s < 1000.) d = 0.05; else if (1000 ≤ s && s < 2000.) d = 0.08; else if (2000 ≤ s && s < 3000.) d = 0.10; else if (3000. ≤ s) d = 0.15; return p*w*s*(1.-d);}
