
lcst = 0.25; (* Launch cost per kg *)
pscst = 5;  (* Power system cost - the cost that can 
		be reduced by reducing power *)
avgp = 500; (* average power draw; supplied by the power system *)
psm = 60; (* power system mass, that is reducible on a per watt basis *)
lmr = 0.2; (* Locomotion mass ratio - locomotion mass/ total mass *)
lpwr = 100; (* Locomotion Power *)
rmass =350 ; (* Rover mass *)

eq1 := pc == pscst/avgp + ((psm/avgp) * mc); (* pc : power cost/watt *)

eq2 := mc == lmr * mc + lcst + ((lpwr/rmass)*pc); (* mc:payload mass cost/kg *)

sol1 = Solve[{eq1,eq2},{pc,mc}]

Print["Pwr_Cost =",pc/.sol1[[1]]//N];
Print["Mass_Cost =",mc/.sol1[[1]]//N];