%Astro Final: Problem 2b Competition of Proton Capture and Beta
%Decay
%Carrie Elliott - 2015
T = linspace(0.1, 1, 100); %Establishes range(T) in units of 10^9 Kelvin
p1B = -4.538; %only parameter for Beta decay
Rbeta = exp(p1B); %The rate of Beta decay is constant, and has only one
%parameter independent of temperature.
p1_p1 = 17.29; %These are the seven parameters
p2_p1 = 4.341*10^-4; %for the first component of proton capture;
p3_p1 = -18.10; % _p1 denotes this.
p4_p1 = 0.1471; %
p5_p1 = -0.1550; %p6_p1 = 0.0167; %p7_p1 = -0.7411; %Rp1 = exp(p1_p1 + (p2_p1\T) + (p3_p1\((T).^(1\3))) + p4_p1(T.^1\3) + p5_p1*T + p6_p1*(T.^(5\3)) + p7_p1(ln(T)));p1_p2 = 3.428; %These are the seven parametersp2_p2 = -4.654; % for the second component of proton capture;
p3_p2 = -3.999; % _p2 denotes this.
p4_p2 = 8.947; %
p5_p2 = -0.6332; %p6_p2 = 0.0402; %p7_p2 = -5.113; %Rp2 = exp(p1_p2 + (p2_p2/T) + (p3_p2/((T)^(1/3))) + p4_p2(T^1/3) + p5_p2*T + p6_p2*(T^(5/3)) + p7_p2(ln(T)));Rproton = Rp1 + Rp2;hold onplot(Rbeta)plot(Rproton)title('Competition between Beta+ Decay and Proton Capture as Function of Temperature');xlabel('Temp, 10^9 Kelvin');ylabel('Rate');hold off %
What's going on here? I'm simply trying to plot two rates of reactions over a range of temperatures (0.1*10^9 – 1.0*10^9) on the same plot, and it says the error is in line 21 but I have no idea where or why.
Best Answer