{
} program wedge; { Compile with "gpc wedge.pas" and run "a.out" to get array of angles. } const fsd=4;{field dize decimals} fsr=1;{field size real} n=1.5;{refractive index} var a,b,c,d,e,f:real; i,j,k:integer; begin for j:=0 to 10 do begin a:=j/100; write(a*1000:fsr:fsd,' '); for i:=-10 to 10 do begin b:=i/100; c:=arcsin(sin(b)/n); d:=a-c; e:=arcsin(sin(d)*n); f:=(b-c)+(e-d); write(f*1000:fsr:fsd); if i<10 then write(' '); end; writeln; end; end.