望远镜焦面拟合-BATChomepage.PDFVIP

望远镜焦面拟合 从测试图像中得到图像中每颗星的 seeing (fwhm) 蒋兆基编写了数据处理程序 e1.c 可以把4幅2x2K图像转化为一幅4x4k图像 如: focus.0033.fits和 focus.0034.fits是Edo测试拍摄的图像 4幅2x2k和用e1拼接后的4x4K图像 e1 focus.0033.fits f3.fit ! change 4_2k -- 1_4k ccd_fit e1 focus.0034.fits f4.fit ! change 4_2k -- 1_4k ccd_fit 生成新文件 f3.fit and f4.fit #produce f3.dat f4.dat ! write down 1st position # im1 CCDSEC = [1:2032,1:2032] / CCD section 389 1964 403 1717 438 1878 683 1780 673 1374 1107 1421 1352 1737 1730 778 # im1 CCDSEC = [4064:2033,1:2032] / CCD section 2379 1558 2610 1113 e2.c 是为每个点得到半高全宽fwhm的程序 e2 f3 ! get each point seeing. e2 f4 or: e2 f4 focus34.log 生成 focus34.log ## im1 CCDSEC = [1:2032,1:2032] / CCD section # 389 1964 # point_center(X,Y) center_ADU Sky Seeing ring_R 388.030 1963.792 5367 475.0 1.57 0.12 388.239 1884.723 3797 479.0 1.57 0.00 387.943 1844.127 4464 483.5 1.70 0.00 388.329 1803.523 4059 487.7 1.89 0.12 388.149 1764.005 2845 491.1 2.19 0.12 388.244 1724.735 1547 493.5 2.97 1.46 388.816 1684.386 1366 494.8 3.58 1.10 # 403 1717 # point_center(X,Y) center_ADU Sky Seeing ring_R 401.750 1717.641 1719 493.5 1.54 0.30 402.648 1638.171 1245 495.5 1.59 0.00 为每颗星寻找最小的半高全宽 FWHM 并 拟合焦面 周旭于 2010.06.12编写了焦面拟合f77程序, focus.f, 利用y=a(x-b)^2+c 拟合 FWHM的变化 vmin=9999999.0 do nc=1,100 ccc=nc/50.0 do nb=1,60 bbb=nb/10.0 do na=1,50 aaa=na/50.0 sum=0 do j=1,nsp(i) sum=sum+(see(i,j)-aaa*(j-bbb)**2.0-ccc)**2.0 enddo vmin=min(vmin,sum) if(vmin.eq.sum) then aaaa=aaa bbbb=bbb cccc=ccc endif enddo enddo enddo write(*,*) nn,bbbb bbbb 是所有星拟合的最佳焦点 389.0 1964.0 57.000