Manipulate[If[exeqco,rceqre=False;re=n*Log[1+rc/n]];If[rceqre,rc=re];{{Plot[{E^(re*t),(1+rc/n)^(n*t)},{t,0,10},PlotStyle->{Red,Blue},PlotRange->{{0,10},{0,10}},ImageSize->500]},{Style["Continuous Rate: "<>ToString[re],Red]},{Style["Compounded Rate: "<>ToString[rc],Blue]},{"Compounded "<>ToString[n]<>" times a year"}}//TableForm,{{re, .01,Style["r1",Red]},.01,.25},{{rc,.01,Style["r2",Blue]},.01,.25},{n,1,200,1},{{rceqre,False,"r2=r1 ?"},{True,False}},{{exeqco,False,"Cont = Comp?"},{True, False}},Alignment->Center]