Manipulate[
Plot[(Subscript[F, d])*v^2*(η/100),{(Subscript[F, d]),5,20},
{GridLines->Automatic,
PlotStyle->Thick,
Frame->True,
PlotLabel->"Output Power vs Damping Coefficient",
FrameLabel->{"Damping Coefficient (kN/(m/s))","Output Power (kW)"}}
],
{{η,50,"% Efficiency"},1,100},{{v,1,"Velocity"},0,2}]

rBank={10,10,25,50,75,100}

combos=DeleteDuplicates[Drop[Subsets[rBank],1]]

Length[combos]

parallel[values_]:=(1/Total[1/values])

power[values_]:=1500/(1/Min[values]/Total[1/values])

power[{90,90}]

outVals=Map[parallel,combos]

Length[outVals]

outPows=Map[power,combos]

outVmax=Sqrt[outVals outPows]

outList=Transpose[{outVals,outPows}]

LoadBankPlot=ListPlot[Sort[outVals],{PlotRange->All,Frame->True,PlotLabel->Load Resistor Values,FrameLabel->{"","Resistance (ohms)"},AxesOrigin->{0,0},PlotMarkers->Automatic,Joined->True}]

Export["LoadBankPlot.pdf",LoadBankPlot]

TableForm[Join[{{res,pow}},N[Sort[outList],4]]]

outListAll=Transpose[{N[outVals,4],combos,Round[outVmax],Round[outPows]}]

Round[outVmax,3]

TableForm[Join[{{Res,Vals,Vmax,Pmax}},Sort[outListAll]]]

FormattedOut=Grid[Join[{{Res,Vals,Vmax,Pmax}},Sort[outListAll]],Frame->All]

Export["LoadBank.pdf",FormattedOut]