All Forums  Origin Forum for Programming  LabTalk Forum  Creating a Labtalk script using UDfittingFct

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 punktrocker[/i] [br]Hello everybody, I´m trying to use my user defined Fitting function written in OriginC in a Labtalk script. I added #pragma labtalk(1) in the ".fit" files and the function appears when i write "list f;" in the command window. My Problem is when i want to use the Fitting like it works in the NLfitting Dialog Box in my Labtalk script, i Need to call the Parameter initialisation first "_nlp....fit" and this funtions wants a curve type variable which doesn´t exist in Labtalk as far a i know. code of my "_nlsf...fit" " #pragma numlittype(push, TRUE) #pragma numlittype(push, TRUE) #pragma warning(error : 15618) #include <origin.h> #pragma labtalk(1) void _nlsfGlassTransition_Linear( // Fit Parameter(s): double x1, double y1, double x2, double y2, double x3, double y3, // Independent Variable(s): double x, // Dependent Variable(s): double& y) { // Beginning of editable part if (x< x3) y=(y1*(x3-x)+y3*(x-x1))/(x3-x1); else y=(y3*(x2-x)+y2*(x-x3))/(x2-x3); // End of editable part } " code of my "_nlp...fit" " #pragma numlittype(push, TRUE) #pragma numlittype(push, TRUE) #pragma numlittype(push, TRUE) #include <origin.h> #pragma labtalk(1) void _nlsfParamGlassTransition_Linear( // Fit Parameter(s): double& x1, double& y1, double& x2, double& y2, double& x3, double& y3, // Independent Dataset(s): vector& x_data, // Dependent Dataset(s): vector& y_data, // Curve(s): Curve x_y_curve, // Auxilary error code: int& nErr) { // Beginning of editable part int n1,n2,n3; x_data.GetMinMax( x1, x2, &n1, &n2 ); x3 = x1 + (x2 - x1)/2; y1= y_data[n1]; y2=y_data[n2]; vector vd; vd = abs (x_data - x3); double xta, xtb; vd.GetMinMax( xta, xtb, &n3); y3= y_data[n3]; //Code to be executed to initialize parameters // End of editable part } " and that is what i tried in my command window: double xx1 = wcol(1)[1]; double yy1 = wcol(2)[1]; double xx2 = wcol(1)[21]; double yy2 = wcol(2)[21]; double xx3 = wcol(1)[11]; double yy3 = wcol(2)[11]; range xx = wcol(1); range yy = wcol(2); double xxi=xx; double yyi=yy; _nlsfGlassTransition_Linear(xx1, yy1, xx2, yy2, xx3, yy3, xxi, yyi); There are no Errors but also no Output but i don´t know what is missing. The Goal is to have a script where i can fit all Graphs in an active Folder and then extract the Fitting data ("x3") into a new workbook. thanks a lot punktrocker [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.