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
Get step-by-step solutions from verified subject matter experts
