请教如何用matlab计算malmquist指数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教高手，如何用请教如何用matlab来操作malmquist指数法，具体的程序是什么？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：malmquist指数 Malmquist MATLAB atlab matla MATLAB 指数 Malmquist

你改用DEAp啊,比matlab简单啊!

Sub MalmquistGetData()
    Dim Check
    Dim i As Integer, j As Integer
    Worksheets(ChosenPeriod1).Activate
   
  
    NInputs = Range("A1").CurrentRegion.Columns.Count
    NBenchmarkDMUs = Range("A1").CurrentRegion.Rows.Count
    NInputs = NInputs - 1
    NBenchmarkDMUs = NBenchmarkDMUs - 1
   
    NOutputs = Range("A1").Offset(0, NInputs + 2).CurrentRegion.Columns.Count
   
    Worksheets(ChosenPeriod2).Activate
       
   
    NNewDMUs = Range("A1").CurrentRegion.Rows.Count
    NNewDMUs = NNewDMUs - 1
   
    NDMUs = NNewDMUs
    If NNewDMUs <> NBenchmarkDMUs Then
MsgBox "You have " & NBenchmarkDMUs & " DMUs in " & ChosenPeriod1 & vbCrLf _
        & "and  " & NNewDMUs & " DMUs in " & ChosenPeriod2 & "." & vbCrLf _
        & "Please edit the Sheets.", vbCritical
        End
        End If

    ReDim EffIndex(NDMUs)
    ReDim Lambdas(NDMUs, NDMUs)
    ReDim InputSlacks(NDMUs, NInputs)
    ReDim OutputSlacks(NDMUs, NOutputs)
    ReDim InputsTarget(NDMUs, NInputs)
    ReDim OutputsTarget(NDMUs, NOutputs)
    ReDim DMUName(NDMUs)
    ReDim BenchmarkDMUName(NBenchmarkDMUs)
    ReDim NewDMUName(NNewDMUs)
    ReDim InputName(NInputs)
    ReDim InputUsed(NNewDMUs, NInputs)
    ReDim OutputName(NOutputs)
    ReDim OutputProduced(NNewDMUs, NOutputs)
    ReDim BInputs(NBenchmarkDMUs, NInputs)
    ReDim BOutputs(NBenchmarkDMUs, NOutputs)
    ReDim BenchmarkIndex(NNewDMUs)
    ReDim TempInputs(NDMUs, NInputs)
    ReDim TempOutputs(NDMUs, NOutputs)
    ReDim TempDMUName(NDMUs)
    ReDim MIndex(4, NDMUs)
    ReDim MIndex1(NDMUs)
    ReDim MIndex2(NDMUs)

   
    Worksheets(ChosenPeriod1).Activate
    With Range("A1")
    For i = 1 To NInputs
        InputName(i) = .Offset(0, i)
    Next

    For i = 1 To NOutputs
        OutputName(i) = .Offset(0, i + NInputs + 1)
    Next

    For i = 1 To NBenchmarkDMUs

        BenchmarkDMUName(i) = .Offset(i, 0)

       
        For j = 1 To NInputs
            BInputs(i, j) = .Offset(i, j)
            Check = .Offset(i, j)
       
        If Check < 0 Or Not IsNumeric(Check) Then
        MsgBox "Invalid input value is detected at" & vbCrLf _
        & j & "" & "th input of DMU" & " " & BenchmarkDMUName(i) & vbCrLf _
        & "Please edit the  " & ChosenPeriod1 & "  Sheet.", vbCritical
        .Offset(i, j).Select
        End
        End If
            
        Next

       
        For j = 1 To NOutputs
            BOutputs(i, j) = .Offset(i, j + NInputs + 1)
            Check = .Offset(i, j + NInputs + 1)
       
        If Check < 0 Or Not IsNumeric(Check) Then
        MsgBox "Invalid output value is detected at" & vbCrLf _
        & j & "" & "th output of DMU" & " " & BenchmarkDMUName(i) & vbCrLf _
        & "Please edit the " & ChosenPeriod1 & "  Sheet.", vbCritical
        .Offset(i, j + NInputs + 1).Select
        End
        End If
       
        Next
            Next
        End With

这个程序运行好象有问题啊!

??? Sub MalmquistGetData()
        |
Error: Missing operator, comma, or semicolon.
我是Matlab的初学者,运行上面这个程序出现这种结果,是怎么回事啊?能不能给解释下啊,非常感谢!

这个程序好似是vb的程序？

怎麽看也不像matlab的程序

是，好似是vb！！

作为本版的版主，我不建议大家来用现成的程序 看懂原理本身 理解程序写作方法 才是最有效 对大家最有用的

我也想知道malmquist的matlab程序 哪位大侠能给个程序啊 我的邮箱是396606457@qq.com 谢谢啊！！！