24小时热门版块排行榜    

查看: 491  |  回复: 0

无知为知

新虫 (初入文坛)

[求助] vc++6.0计算矩阵

我用vc++6.0调用matlab engine计算矩阵M*N,,不知为什么结果全是0。,请大家帮忙,看看程序错在哪里!
#include
#include
#include
#include
#include
#include "engine.h"
#include "math.h"
#include "stdio.h"

Engine* ep ;
mxArray *temp1=mxCreateDoubleMatrix(1,1,mxREAL);
double s0,s1,s2,s3;

int main()
{
               
        fprintf(stderr, "╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬\n";
        fprintf(stderr, "╬                                    ╬\n";
        fprintf(stderr, "╬   Starting MATLAB engine,please wait..   ╬\n";
        fprintf(stderr, "╬                                    ╬\n";
        fprintf(stderr, "╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬\n";
        if (!(ep = engOpen("\0"))
        {
                fprintf(stderr, "\nCan't start MATLAB engine\n";
                return 0;
        }
     //实现vc向matlab输送确定的矩阵
         double M[4]={-11,1,2,14};
     mxArray *m=mxCreateDoubleMatrix(2,2,mxREAL);
     memcpy((void *)mxGetPr(m), (void *)M, sizeof(M));
         engPutVariable(ep,"m",m);

         double N[4]={-1,5,2,10};
     mxArray *n=mxCreateDoubleMatrix(2,2,mxREAL);
     memcpy((void *)mxGetPr(n), (void *)N, sizeof(N));
         engPutVariable(ep,"n",n);

    engEvalString(ep,"E=M*N;";

    engEvalString(ep,"vsc_s0=E(1:1,1:1);";
    engEvalString(ep,"vsc_s1=E(1:1,2:2);";
    engEvalString(ep,"vsc_s2=E(2:2,1:1);";
        engEvalString(ep,"vsc_s3=E(2:2,2:2);";


        temp1=engGetVariable(ep,"vsc_s0";
        s0=*(mxGetPr(temp1));
        temp1=engGetVariable(ep,"vsc_s1";
        s1=*(mxGetPr(temp1));
        temp1=engGetVariable(ep,"vsc_s2";
        s2=*(mxGetPr(temp1));   
        temp1=engGetVariable(ep,"vsc_s3";
        s3=*(mxGetPr(temp1));

        printf("vsc_s0=%e\n",s0);
        printf("vsc_s1=%e\n",s1);
        printf("vsc_s2=%e\n",s2);
        printf("vsc_s3=%e\n",s3);

        engClose(ep);
        return 1;
}
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 无知为知 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +7 6F5UbRU2I5hL 2026-09-14 7/350 2026-09-18 10:30 by yS4CkeWDhD6V
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 3n8v2C8RimXI 2026-09-13 6/300 2026-09-18 09:18 by yS4CkeWDhD6V
[找工作] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 vZfe6xYu34yj 2026-09-15 3/150 2026-09-18 02:40 by cITaGg3p5edr
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 vZfe6xYu34yj 2026-09-14 3/150 2026-09-18 02:06 by cITaGg3p5edr
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-18 00:28 by cITaGg3p5edr
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +6 LwdutQ8HoqWP 2026-09-13 6/300 2026-09-17 23:05 by cuPZTDXS3VOd
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +8 QUjhNVAcOSff 2026-09-13 9/450 2026-09-17 22:05 by cuPZTDXS3VOd
[硕博家园] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 mibUvS8DDCwf 2026-09-15 3/150 2026-09-17 16:03 by 0ngsZVSCTS7z
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 Aj1rhIDL5ixY 2026-09-14 4/200 2026-09-17 14:27 by ObVzqQQh1rrE
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +6 23jxep3nCNZb 2026-09-14 6/300 2026-09-17 13:27 by ObVzqQQh1rrE
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 yaCh4X3wd045 2026-09-14 4/200 2026-09-17 13:17 by ObVzqQQh1rrE
[找工作] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +8 3n8v2C8RimXI 2026-09-13 8/400 2026-09-17 11:27 by UAIjTRMuUFoj
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +4 vZfe6xYu34yj 2026-09-14 4/200 2026-09-17 05:50 by k06BKNblrGRH
[硕博家园] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 vZfe6xYu34yj 2026-09-14 3/150 2026-09-17 05:16 by k06BKNblrGRH
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-14 3/150 2026-09-17 02:38 by Tql5LQhh5rLK
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 23jxep3nCNZb 2026-09-14 4/200 2026-09-16 21:03 by MHf40yA0Uhyb
[考博] 上海工程技术大学激光智能制造课题组招收博士研究生 +8 两三岁ss 2026-09-14 8/400 2026-09-16 09:46 by 水士口
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 s3fFTmArrBt6 2026-09-14 7/350 2026-09-15 16:47 by CgyNCDVNhGVg
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 6F5UbRU2I5hL 2026-09-14 3/150 2026-09-15 08:14 by C79jjtjAKjEn
[教师之家] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 s3fFTmArrBt6 2026-09-13 4/200 2026-09-15 07:02 by 5BDX0d0WFp7t
信息提示
请填处理意见