All Forums  Origin Forum for Programming  Forum for Origin C  Error compiling nag_zero_cont_func_bd_1 in fit

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Anti-Spam Code: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by peptalasa[/i] [br]Origin Ver. and Service Release (Select Help-->About Origin): Origin Pro 8 v80724 Operating System: XP Hi I am trying to use the nag_zero_cont_func_bd_1 in a non linear fitting function. I am using according the manual, but I get this error message when I try to compile it: Error, cannot convert argument in function call Any hint is greatly appreciated. I have searched everywhere, but without success. The code (not complete) is: #include <stdio.h> #include <OC_nag8.h> #include <math.h> static double fitE2(double,Nag_User *); struct user { double alpha; double beta; double DE; double tE; double s0; double s1; }; static double fitE2(double x,Nag_User *comm) { double e0=8.85E-14; double theta,r; double e2; double w; double p=3.141516; double alpha1,beta1,DE1,tHN1,s0,s1; struct user *sp = (struct user *)(comm->p); alpha1 = sp->alpha; beta1 = sp->beta; DE1= sp->DE; tHN1=sp->tE; s0=sp->s0; s1=sp->s1; w=2*pi*x; r=( 1+(w*tHN1)^(1-alpha1)*sin(alpha1*p/2) )^2 + ((w*tHN1)^(1-alpha1)*cos(alpha1*p/2))^2; theta=atan(((w*tHN1)^(1-alpha1)*cos(alpha1*p/2)) / ( 1+(w*tHN1)^(1-alpha1)*sin(alpha1*p/2) ) ); e2 = 1/(r^(beta1/2))*DE1*sin(beta1*theta); return (e2+s1/(e0*w)-s0/(e0*w)); } //---------------------------------------------------------- // void _nlsfe2fit( // Fit Parameter(s): double alpha1, double beta1, double DE1, double tHN1, double sigma0, double sigma1, double fC, // Independent Variable(s): double x, // Dependent Variable(s): double& y) { // Beginning of editable part double e0=8.85E-14; double theta,r; double e2; double w; double p=3.141516; double wC; struct user *u; double a, b,x1; double ftol, xtol; static NagError fail; Nag_User comm; a = 0.0; b = 1.0; xtol = 1e-05; ftol = 0.0; x1=x; nag_zero_cont_func_bd_1(a,b,&x1,fitE2,xtol,ftol,&comm,&fail); w=2*p*x; wC=2*p*fC; //Find the root r=( 1+(w*tHN1)^(1-alpha1)*sin(alpha1*p/2) )^2+ ((w*tHN1)^(1-alpha1)*cos(alpha1*p/2))^2; theta=atan(((w*tHN1)^(1-alpha1)*cos(alpha1*p/2)) / ( 1+(w*tHN1)^(1-alpha1)*sin(alpha1*p/2) ) ); if(w<=fC) { e2 = 1/(r^(beta1/2))*DE1*sin(beta1*theta)+(sigma1/(e0*w)); } else { e2 = (sigma0/(e0*w)); } y=e2; [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.