40m QIL Cryo_Lab CTN SUS_Lab TCS_Lab OMC_Lab CRIME_Lab FEA ENG_Labs OptContFac Mariner WBEEShop
  40m Log  Not logged in ELOG logo
Entry  Wed Mar 20 14:44:47 2013, Jamie, Update, Optics, updated calculations of PRC/SRC g-factors and ARM mode matching 
    Reply  Mon Mar 25 16:51:59 2013, Jenne, Update, Optics, updated calculations of PRC/SRC g-factors and ARM mode matching 
    Reply  Tue Mar 26 11:33:55 2013, Jamie, Update, Optics, HOWTO calculate effective RoC of flipped TT mirror.mtransmission.mTTflipped.mM2Reff.m
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  | Hide | Hide all
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  | Hide | Hide all
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  | Hide | Hide all
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  | Hide | Hide all
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-