MATLAB2009a转C语言,请问怎么把c语言转换成Matlab

请问怎么把c语言转换成Matlab0

#include"stdio.h"#include"stdlib.h"#include"math.h"#definen50000main(){inti=0,j,k2,k3,k4,k5,k6;floatq[4],k[5][5],q1,q2,q11,h1=0.1,h=0.01,k1,E;FILE*fp;clrscr();fp=fopen("E... #include "stdio.h"

#include "stdlib.h"

#include "math.h"

#define n 50000

main()

{int i=0,j,k2,k3,k4,k5,k6;

float q[4],k[5][5],q1,q2,q11,h1=0.1,h=0.01,k1,E;

FILE *fp;

clrscr();

fp=fopen("E:\\lixian\\wenjian\\017","wa");

E=(float)1/12;q11=0.0;

k5=0;k6=1;

while(k5<2)

{for(k2=-2;k2<3;k2++)

{q[2]=h1*k2;

for(k3=-2;k3<3;k3++)

{q[3]=h1*k3;

for(k4=-2;k4<3;k4++)

{q[1]=k4*h1;

if((2*(E+(float)1/3*q[1]*q[1]*q[1]-q[1]*q[3]*q[3])

-q[2]*q[2]-q[1]*q[1]-q[3]*q[3])>=0)

q[4]=k6*sqrt(2*(E+(float)1/3*q[1]*q[1]*q[1]-q[1]*q[3]*q[3])

-q[2]*q[2]-q[1]*q[1]-q[3]*q[3]);

else continue;

for(i=1;i<5;i++)k[i][0]=0;

k1=0;

while(k1

{for(i=1;i<5;i++)

{if(i==4)h=2*h;

for(j=1;j<5;j++)

{if(j==1)k[j][i]=q[2]+h/2*k[j+1][i-1];

if(j==2)k[j][i]=-(q[1]+h/2*k[j-1][i-1]+pow(q[3]+h/2*k[j+1][i-1],2)-pow(q[1]+h/2*k[j-1][i-1],2));

if(j==3)k[j][i]=q[4]+h/2*k[j+1][i-1];

if(j==4)k[j][i]=-(q[3]+h/2*k[j-1][i-1]+2*(q[1]+h/2*k[j-3][i-1])*(q[3]+h/2*k[j-1][i-1]));}}

h=h/2;

for(i=1;i<5;i++)

{if(i==3)q1=q[i];

q[i]=q[i]+h/6*(k[i][1]+2*k[i][2]+2*k[i][3]+k[i][4]);}

if((q1-q11)*(q[3]-q11)<0&&q[4]>0)

fprintf(fp,"%f,%f\n",q[1],q[2]);

k1++;}}}}k6=-1;k5++;} 展开