Advanced Search

gemmacairns

15 Reputation

One Badge

4 years, 319 days
Contact gemmacairns

MaplePrimes Activity


These are replies submitted by gemmacairns

Thank you...

gemmacairns 15
September 10 2020
0 0

@acer Thank you so much for taking the time to look at this. It's good to know that in actual fact no real root is found but the formatting was causing the error in displaying that information. 

Attached worksheet...

gemmacairns 15
September 09 2020
0 0

@acer No worries, worksheet now attached.
 


 

 using ray transfer matrix analysis

 

 #We use Rads and mm as units

 

 

 #Ray transfer matrix for free space

Distance := proc (d) options operator, arrow; Matrix(2, 2, [1, d, 0, 1]) end proc

proc (d) options operator, arrow; Matrix(2, 2, [1, d, 0, 1]) end proc

 (1)

``

Lens := proc (f) options operator, arrow; Matrix(2, 2, [1, 0, -1/f, 1]) end proc

proc (f) options operator, arrow; Matrix(2, 2, [1, 0, -1/f, 1]) end proc``

 (2)

Geometry := 2; if Geometry = 1 then f_obj := 4.5; f_fluo := 125; f_TIE := 45; d_sample := f_obj; d_max := 250; d_cam := f_TIE; d_interlens := d_max-d_cam end if; if Geometry = 2 then f_obj := 4.5; f_fluo := 125; f_TIE := 45; d_sample := 4.6; d_max := 250; d_interlens := d_max-d_cam end if

250-d_cam

 (3)

TIE := Distance(d_cam).Lens(f_TIE).Distance(d_interlens).Lens(f_obj).Distance(d_sample).Vector(2, [distance, angle])

Vector[column](%id = 18446746239662106614)

 (4)

``

d_cam_solved := fsolve(coeff(TIE[1], angle, 1), d_cam, d_cam = 20 .. 100)

Error, `,` unexpected

  

 

``


 

Download Ray_transfer_matrix.mw

Page 1 of 1