久久精品国产亚洲av瑜伽-日本理伦片午夜理伦片-大胆gogo高清在线观看-成熟人妻av无码专区

訊技光電公司首頁(yè) 最新公告:2024年訊技課程安排發(fā)布啦! 黌論教育網(wǎng)校|English|全站搜索|聯(lián)系我們
欄目列表
FRED
VirtualLab
Macleod
GLAD
OCAD
Optiwave
LASCAD
Litestar 4D
TechwizD和TX液晶顯示軟件
JCMSuite
EastWave
最新發(fā)布

天文光干涉儀

雙折射晶體偏振干涉效應(yīng)

顏色分析

FRED應(yīng)用:顏色分析

FRED應(yīng)用:數(shù)字化極坐標(biāo)數(shù)據(jù)

FRED應(yīng)用:波片模擬

FRED應(yīng)用:MTF的計(jì)算

FRED應(yīng)用:LED手電筒模擬

FRED應(yīng)用:模擬沃拉斯頓棱鏡

FRED應(yīng)用:準(zhǔn)直透鏡模擬與優(yōu)

十字元件熱成像分析(2)
時(shí)間:2016-10-09 18:06來(lái)源:訊技光電作者: 技術(shù)部點(diǎn)擊:次打印
 
            'raytrace
            DeleteRays
            CreateSource srcnode
            TraceExisting 'draw
 
            'radiometry
            For k = 0 To GetEntityCount()-1
                If IsSurface( k ) Then
                    temp = AuxDataGetData( k, "temperature" )
                    emiss = AuxDataGetData( k, "emissivity" )
                    If ( temp <> 0 And emiss <> 0 ) Then
                        ProjSolidAngleByPi = GetSurfIncidentPower( k )
                        frac = BlackBodyFractionalEnergy ( minWave, maxWave, temp )
                        irrad(i,j) = irrad(i,j) + frac * emiss * sigma * temp^4 * ProjSolidAngleByPi
                    End If
 
                End If
 
            Next k
 
        Next j
 
    Next i
    EnableTextPrinting( True )
 
    'write out file
    fullfilepath = CurDir() & "\" & fname
    Open fullfilepath For Output As #1
    Print #1, "GRID " & nx & " " & ny
    Print #1, "1e+308"
    Print #1, pixelx & " " & pixely
    Print #1, -detx+pixelx/2 & " " & -dety+pixely/2
 
    maxRow = nx - 1
    maxCol = ny - 1
    For rowNum = 0 To maxRow                    ' begin loop over rows (constant X)
            row = ""
        For colNum = maxCol To 0 Step -1            ' begin loop over columns (constant Y)
            row = row & irrad(colNum,rowNum) & " "     ' append column data to row string
        Next colNum                     ' end loop over columns
 
            Print #1, row
 
    Next rowNum                         ' end loop over rows
    Close #1
 
    Print "File written: " & fullfilepath
    Print "All done!!"
End Sub
 
在輸出報(bào)告中,我們會(huì)看到腳本對(duì)光源的孔徑和功率做了修改,并最終經(jīng)過(guò)31次迭代,將所有的熱成像數(shù)據(jù)以dat的格式放置于:
 

 
找到Tools工具,點(diǎn)擊Open plot files in 3D chart并找到該文件
  

 
打開(kāi)后,選擇二維平面圖:
 
關(guān)于我們
公司介紹
專家團(tuán)隊(duì)
人才招聘
訊技風(fēng)采
員工專區(qū)
服務(wù)項(xiàng)目
產(chǎn)品銷售
課程中心
專業(yè)書(shū)籍
項(xiàng)目開(kāi)發(fā)
技術(shù)咨詢
聯(lián)系方式
地址:上海市嘉定區(qū)南翔銀翔路819號(hào)中暨大廈18樓1805室    郵編:201802
電話:86-21-64860708/64860576/64860572  傳真:86-21-64860709
課程:course@infotek.com.cn
業(yè)務(wù):sales@infotek.com.cn
技術(shù):support@infotek.com.cn
官方微信
掃一掃,關(guān)注訊技光電的微信訂閱號(hào)!
Copyright © 2014-2024 訊技光電科技(上海)有限公司, All Rights Reserved. 滬ICP備10008742號(hào)-1