亚洲AV日韩AV无码污污网站_亚洲欧美国产精品久久久久久久_欧美日韩一区二区视频不卡_丰满无码人妻束缚无码区_久爱WWW成人网免费视频

首頁(yè) -> 登錄 -> 注冊(cè) -> 回復(fù)主題 -> 發(fā)表主題

光行天下 -> 訊技光電&黌論教育 -> FRED如何調(diào)用Matlab [點(diǎn)此返回論壇查看本帖完整版本]

[打印本頁(yè)]

infotek

2023-05-11 08:22

FRED如何調(diào)用Matlab

簡(jiǎn)介：FRED作為COM組件可以實(shí)現(xiàn)與Excel、VB、Matlab等調(diào)用來(lái)完成龐大的計(jì)算任務(wù)或畫(huà)圖，本文的目的是通過(guò)運(yùn)行一個(gè)案例來(lái)實(shí)現(xiàn)與Matlab的相互調(diào)用，在此我們需要借助腳本來(lái)完成，此腳本為視為通用型腳本。

配置：在執(zhí)行調(diào)用之前，我們需要在Matlab命令行窗口輸入如下命令：
enableservice('AutomationServer', true)
enableservice('AutomationServer')

結(jié)果輸出為1，這種操作方式保證了當(dāng)前的Matlab實(shí)體可以用于通信。

在winwrp界面，為增加和使用Matlab類(lèi)型的目錄庫(kù)，我們需要如下步驟：
1. 在FRED腳本編輯界面找到參考.
2. 找到Matlab Automation Server Type Library
3. 將名字改為MLAPP

在Matlab里面有兩種常用的數(shù)據(jù)發(fā)送選項(xiàng)PutWorkspaceData 及PutFullMatrix，PutWorkspaceData適用于存儲(chǔ)一般的數(shù)據(jù)在工作區(qū)，并賦予其為變量，PutFullMatrix試用于復(fù)數(shù)數(shù)據(jù)。

圖編輯/參考

現(xiàn)在將腳本代碼公布如下，此腳本執(zhí)行如下幾個(gè)步驟：
1. 創(chuàng)建Matlab服務(wù)器。
2. 移動(dòng)探測(cè)面對(duì)于前一聚焦面的位置。
3. 在探測(cè)面追跡光線(xiàn)
4. 在探測(cè)面計(jì)算照度
5. 使用PutWorkspaceData發(fā)送照度數(shù)據(jù)到Matlab
6. 使用PutFullMatrix發(fā)送標(biāo)量場(chǎng)數(shù)據(jù)到Matlab中
7. 用Matlab畫(huà)出照度數(shù)據(jù)
8. 在Matlab計(jì)算照度平均值
9. 返回?cái)?shù)據(jù)到FRED中

代碼分享：

Option Explicit

Sub Main

    Dim ana As T_ANALYSIS
    Dim move As T_OPERATION
    Dim Matlab As MLApp.MLApp
    Dim detNode As Long, detSurfNode As Long, anaSurfNode As Long
    Dim raysUsed As Long, nXpx As Long, nYpx As Long
    Dim irrad() As Double, imagData() As Double, reals() As Double, imags() As Double
    Dim z As Double, xMin As Double, xMax As Double, yMin As Double, yMax As Double
    Dim meanVal As Variant

    Set Matlab = CreateObject("Matlab.Application")

    ClearOutputWindow

    'Find the node numbers for the entities being used.
    detNode = FindFullName("Geometry.Screen")
    detSurfNode  = FindFullName("Geometry.Screen.Surf 1")
    anaSurfNode = FindFullName("Analysis Surface(s).Analysis 1")

    'Load the properties of the analysis surface being used.
    LoadAnalysis anaSurfNode, ana

    'Move the detector custom element to the desired z position.
    z = 50
    GetOperation detNode,1,move
    move.Type = "Shift"