LinuxCNC S-Curve Accelerations

component scurve " ";

description 
"""
/******* Description *****************
HAL componet to put out scurve gain
Input scurve timecycle  
Output scuve

********* Compile **************
halcompile --compile scurve.comp
sudo halcompile --install scurve.comp
Halfile load :
loadrt scruve
addf scurve.0 			servo-thread
setp scurve.0.time
setp scurve.0.in
*/
""";
 
author "Chris@cnc";
license "GPL";

// Input pins
pin in float stime=10;		//this value has to setp command.
pin in bit in=0;

// Output pins
pin out float out;			
pin out float counter;
pin out float multi;
pin out float totalnsec;

function _;

;;

#include "rtapi_math.h"

FUNCTION(_) {	
   		
	//double totalnsec;
		

	if(in && counter <= stime) {
		
		totalnsec += fperiod;				
		counter += totalnsec * 0.1;
		out = 1 / ( 1+exp(-counter));
		}

	
	else	{
		out = 0;
		counter = -10;
		totalnsec = 0;
	}

}

component scurve " ";

description 
"""
/******* Description *****************
HAL componet to put out scurve gain
Input scurve timecycle  
Output scurve

********* Compile **************
halcompile --compile scurve.comp
sudo halcompile --install scurve.comp
Halfile load :
loadrt scurve
addf scurve.0 			servo-thread
setp scurve.0.scurve 	
setp scurve.0.in
*/
""";

license "GPL";

// Input pins
pin in float scurve=1;		//Scurve length
pin in bit in=0;

// Output pins
pin out float out;			
pin out float totalnsec;

//Global Variable
variable float counter=-10;	
variable int stime=10;

function _;

;;

#include "rtapi_math.h"

FUNCTION(_) {	
   		
	
	if(in && counter <= stime) {
		totalnsec += fperiod;
		counter += totalnsec * scurve;
		out = 1 / ( 1+exp(-counter));
	}
	else {
			out = 0;
			counter = -10;
			totalnsec = 0;	
	}
}