Please do not post relevant information as pseudo-answer.
I would not dare to post a license ID in the public Matlab forum which belongs to a cracked Matlab version. I've removed it, but I hesitate to post an answer in consequence.
crash when runing matlab 2010b 64bit mex
1 view (last 30 days)
Show older comments
I am using matlab 2010b running some simulatoin. It uses a mex funtion. I need to repeat 100 times, but it always crashs at like 20 or 30 times, but crash times are differenct every time. I dont know why. I though it was because 64 bit system, so i changed int to mwsize, but it didnt work.
Here is the code
#include "math.h"
#include "mex.h"
#include "matrix.h"
#include <time.h>
/*
* timestwo.c - example found in API guide
*
* Computational function that takes a scalar and double it.
*
* This is a MEX-file for MATLAB.
* Copyright 1984-2000 The MathWorks, Inc.
*/
/* $Revision: 1.8 $ */
void sig_var(double Y[],double mu_hat[],double X[],double T[],double dN[],double h,double t,mwIndex gamma_n,int tn,double m[],double Sigma[],int n,double IExx[],double Exz[],double InvA,double temp00[])
{
mwIndex col;
mwIndex i,j,k,l;
double u, *temp;
mxArray *temp0;
col=1;
temp0=mxCreateDoubleMatrix(gamma_n,col,mxREAL);
temp=mxGetPr(temp0);
for(i=0;i<n;i++)
{ for(k=0;k<gamma_n;k++)temp[k]=0;/////
for(j=0;j<m[i];j++)
{ u=fabs(T[i+n*j]-t)/h;
if(u<1)
for(k=0;k<gamma_n;k++)
for(l=0;l<gamma_n;l++)
temp[k]+=IExx[k+l*gamma_n]*X[i+n*(tn*l+j)]*(1-u*u)*0.75/h*(Y[i+n*j]-mu_hat[i+n*j])*dN[i+j*n] ;
}///////////////
for(k=0;k<gamma_n;k++)
for(l=0;l<gamma_n;l++)
Sigma[k+gamma_n*l]+=temp[k]*temp[l];
}//////////////////
mxDestroyArray( temp0);
}
/***************************************************************/
void mexFunction( mwIndex nlhs, mxArray *plhs[],
mwIndex nrhs, const mxArray *prhs[] )
{
double *Y,*mu_hat,*X,*T,*dN,h,t,*Sigma,*m,*IExx,*Exz,InvA,*temp00;
mwIndex gamma_n;
mwIndex tn,n;
/* Check for proper number of arguments. */
if(nrhs!=14) {
mexErrMsgTxt("Seven input required.");
} else if(nlhs>1) {
mexErrMsgTxt("Too many output arguments");
}
/* Check data type of input argument */
for(tn=0;tn<nrhs;tn++)
{
if (!(mxIsDouble(prhs[tn])))
{
mexErrMsgTxt("Input array must be of type double.");
}
}
//************************************
n = mxGetM(prhs[0]);
Y= mxGetPr(prhs[0]);
mu_hat= mxGetPr(prhs[1]);
X= mxGetPr(prhs[2]);
T= mxGetPr(prhs[3]);
dN= mxGetPr(prhs[4]);
h=mxGetScalar(prhs[5]);
t=mxGetScalar(prhs[6]);
gamma_n=(mwIndex)mxGetScalar(prhs[7]);
tn=(mwIndex)mxGetScalar(prhs[8]);
m= mxGetPr(prhs[9]);
IExx= mxGetPr(prhs[10]);
Exz= mxGetPr(prhs[11]);
InvA=mxGetScalar(prhs[12]);
temp00= mxGetPr(prhs[13]);
/* Create matrix for the return argument. */
plhs[0] = mxCreateDoubleMatrix( gamma_n, gamma_n, mxREAL);
/* Assign pointers to each input and output. */
//[N,T,Y,Xwave,m]=poison(X,R,C,tao,alpha0,alpha1,gamma);
Sigma= mxGetPr(plhs[0]);
/* Call the timestwo subroutine. */
sig_var(Y,mu_hat,X,T,dN,h,t,gamma_n,tn,m,Sigma,n,IExx,Exz,InvA,temp00);
/* Destroy array */
// mxDestroyArray( plhs[0]);
}**|||
Answers (1)
See Also
Categories
Find more on Introduction to Installation and Licensing in Help Center and File Exchange
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!
You can also select a web site from the following list
Americas
- América Latina (Español)
- Canada (English)
- United States (English)
Europe
- Belgium (English)
- Denmark (English)
- Deutschland (Deutsch)
- España (Español)
- Finland (English)
- France (Français)
- Ireland (English)
- Italia (Italiano)
- Luxembourg (English)
- Netherlands (English)
- Norway (English)
- Österreich (Deutsch)
- Portugal (English)
- Sweden (English)
- Switzerland
- United Kingdom (English)
Asia Pacific
- Australia (English)
- India (English)
- New Zealand (English)
- 中国
- 日本Japanese (日本語)
- 한국Korean (한국어)