40m QIL Cryo_Lab CTN SUS_Lab TCS_Lab OMC_Lab CRIME_Lab FEA ENG_Labs OptContFac Mariner WBEEShop
 40m Log Not logged in  Wed Mar 20 14:44:47 2013, Jamie, Update, Optics, updated calculations of PRC/SRC g-factors and ARM mode matching Mon Mar 25 16:51:59 2013, Jenne, Update, Optics, updated calculations of PRC/SRC g-factors and ARM mode matching Tue Mar 26 11:33:55 2013, Jamie, Update, Optics, HOWTO calculate effective RoC of flipped TT    Message ID: 8352     Entry time: Tue Mar 26 11:33:55 2013     In reply to: 8316
 Author: Jamie Type: Update Category: Optics Subject: HOWTO calculate effective RoC of flipped TT

In case anyone is curious how I got the numbers for the effective radius of curvature of the flipped TT mirrors, I include the code below.  Now you can calculate at home!

Here's the calculation for the effective RoC of a flipped SR2 with nominal un-flipped HR RoC of -600:

>> [Mt, Ms] = TTflipped(600, 5);
>> M2Reff('t', Mt, 5)

ans =

412.9652

>>

 Attachment 1: mirror.m  277 Bytes
function [Mt, Ms] = mirror(R, a1, n)
% [Mt, Ms] = mirror(R, a1, n)

if length(R) > 1
Rt = R(1);
Rs = R(2);
else
Rt = R;
Rs = R;
end
... 9 more lines ...
 Attachment 2: transmission.m  503 Bytes
function [Mt, Ms] = transmission(R, a1, n1, n2)
% [Mt, Ms] = transmission(R, a1, n1, n2)

if length(R) > 1
Rt = R(1);
Rs = R(2);
else
Rt = R;
Rs = R;
end
... 19 more lines ...
 Attachment 3: TTflipped.m  751 Bytes
function [Mt, Ms] = TTflipped(R, a1)
% [Mt, Ms] = TTflipped(R, a1)

if length(R) > 1
Rt = R(1);
Rs = R(2);
else
Rt = R;
Rs = R;
end
... 32 more lines ...
 Attachment 4: M2Reff.m  230 Bytes
function Reff = M2Reff(type, M, a)
% Reff = M2Reff('type', M, a)

n = 1;

R = -2*n/M(2,1);

ca = cos(a*pi/180);

switch lower(type)
... 8 more lines ...
ELOG V3.1.3-