Question: How come this Mathmatica is not plotting the lines on the graph, can this be fixed ? alpha[theta , n ] := Sqrt[(((n)*Sin[theta*Pi/180])^2 - 1)/Cos[theta*Pi/180]]

How come this Mathmatica is not plotting the lines on the graph, can this be fixed ?

alpha[theta , n ] := Sqrt[(((n)*Sin[theta*Pi/180])^2 - 1)/Cos[theta*Pi/180]] phiPerp[theta , n ] := 2*ArcTan[alpha[theta, n]/n] /; theta >= ArcSin[1/n]*180/Pi phiPar[theta , n ] := 2*ArcTan[alpha[theta, n]*n] /; theta >= ArcSin[1/n]*180/Pi deltaPhi[theta , n ] := (phiPar[theta, n] - phiPerp[theta, n])*180/Pi /; theta >= ArcSin[1/n]*180/Pi deltaPhi[theta , n ] := 0 /; 0 <= theta <= ArcSin[1/n]*180/Pi Plot[{phiPerp[x, 1.5], phiPerp[x, 2.42], phiPar[x, 1.5], phiPar[x, 2.42]}, {x, 0, 90}, Frame -> True, PlotRange -> {{0, 90}, {0, Pi}}, FrameTicks -> Automatic] Plot[{deltaPhi[x, 1.5], deltaPhi[x, 2.42]}, {x, 0, 90}, Frame -> True, PlotRange -> {{0, 90}, {0, 100}}, FrameTicks -> Automatic]

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!