Problem 44372. Polarisation

Solution 1312753

Submitted on 24 Oct 2017 by Marco Castelli

This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

Test	Status	Code Input and Output
1	Pass	x = 5; y_correct = 0.5; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 0 ang = 1
2	Pass	x = 180; y_correct = 0.5; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 0 ang = 1
3	Pass	x = 365; y_correct = 0.5; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 0 ang = 1
4	Pass	x = [91, 1]; y_correct = 0; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 3.7494e-33
5	Pass	a = randi([-360, 360]); b = 90(1+2randi([-3, 3])); x = [a, a+b]; y_correct = 0; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 9.3735e-32
6	Pass	a = randi([-360, 360]); b = 90(1+2randi([-3, 3])); x = [a, a+b]; y_correct = 0; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 9.3735e-32
7	Pass	x = [0, 22.5]; y_correct = 0.85355339059/2; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 0.8536
8	Pass	x = [0, -45]; y_correct = 0.25; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 0.5000
9	Pass	x = [5, 140]; y_correct = 0.25; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 0.5000
10	Pass	x = 5 + (1:5)*22.5; y_correct = 0.53079004294/2; assert(abs(polarised(x)-y_correct) < 1e-10) ang = 0.8536 0.8536 0.8536 0.8536