Issue with finding precision and sine graph

Hi there.

I am working on a code for my statics class and I am running into a couple of problems with the code. First, we have to demonstrate a sine graph, such as in the reference photo. However, when I compile the graph, it does not graph correctly. Also, I am having trouble actually creating the precision graph. I am not sure how to write the loop for the weight vs the angle. Here is my reference photo:

I have attached the code below.

%%Oblique Balance Script

figure('Name','Team A Graphs');
clf;      

%%Weight Ratio
subplot(2,1,1)
t=[0:0.01:180]
r = sind(30 + t) ./ sind(30 - t);

plot(t, r);

area(t,r,'FaceColor',[.8,.9,1.0]);

%Weight Graph
title('Weight ratio')
xlabel('Angle change')
ylabel('Ratio')

%%Precision
%%Precision Equation
subplot(2,1,2)
P = 
plot(, P);

area(,P,'FaceColor',[.8,.9,1.0]);

%Weight Graph
title('Precision Graph')
xlabel('Percent')
ylabel('Weight Ratio')