When I run the code:
q0 = FindRoot[findarea[ch, rh, ah, lineh, intersecth, q][[1 ;; 2]] == ah[[1 ;; 2]]*r3^2,
{q, q0}][[1, 2]];
FindRoot tries to run findarea[ch,rh]. Should I just modify findarea so that I can just pass it findarea[{ch, rh, ah, lineh, intersecth}, q] and only the first two arguments matter?
g[ch_?NumericQ, rh_?NumericQ, (* other args *)] := findarea[ch, (* other args *)][[{1, 2}]]... – 0x4A4D♦ Nov 15 '12 at 0:01