All Forums  Origin Forum for Programming  LabTalk Forum  Fortran to LabTalk

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 brenowit@a[/i] [br]Hi, I am trying to convert this fortran language defined function that fits two straight lines into a x intercept. I was wondering if you can help with this. The code for fortran is below. cvaxFTN7X,L Function FX (ANS, X, Y, IERR, N) REAL ANS (4),X(3) real M1,m2,B1,b2,xbr M1 = ANS (1) B1 = ANS (2) m2 = ans (3) b2 = ans (4) xbr = (b2-b1)/(m1-m2) IF (X(1).LT.xbr) then FX = B1 + M1 * X(1) ELSE FX = b2 + m2 * X(1) ENDIF RETURN END [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.