disp('What kind of problem are you solving? (type in number)\n');
disp(' 1: Long Fin');
disp(' 2: Heat Transfer Zero');
disp(' 3: Specific Temp');
disp(' 4: Convection from Tip');

prompt = '(input number of desired choice): ';
choice = input(prompt, 's');
done = false;
while done==false
switch choice
    case '1'
        BC1
        done = true;
    case '2'
        BC2
        done = true;
    case '3'
        BC3
        done = true;
    case '4'
        BC4
        done = true;
    otherwise
        disp('Invalid Choice!');
end
end
disp('Use subs() to subtitute in for a variable.');
disp('Use solve() to solve for a symbol.');
disp('Use eval() to numerically evaluate a symbolic expression.');
clear choice done prompt