script transefer from tradestation

[stocksbrocker]

hellow every body

is ther any body can help transefering the following code from tradestation to amibroker or explain the meaning because i do not know tradestaion scripting

[ NAME CYCLE ENVELOPE
PARAMETER @PERIOD=66
PARAMETER @ADJUST=.36
PARAMETER #R=255
PARAMETER #G=0
PARAMETER #B=0

INDICATORTYPE TOOL
DISPLAYSTYLE 3LINES
PLOTSTYLE LINE RGB(#R,#G,#B)
PLOTSTYLE2 LINE RGB(#R,#G,#B)
PLOTSTYLE3 DOT RGB(#R,#G,#B)

@SMA=0
@MID=0
@MID1=0
@MID2=0
@RANGE=@PERIOD/2
@AVG=0
@UPPERBAND=0
@LOWERBAND=0

FOR #CURDATE=@PERIOD/2 TO #LASTDATE-(@PERIOD/2)
@SMA=HIST(MAVE(@PERIOD),(-@PERIOD/2))
'@DEV=MAX(@DEV,(HIGH(0)-LOW(0)))
'@BAND=@DEV/@ADJUST
@UPPERBAND=(@SMA*@ADJUST)+@SMA
@LOWERBAND=@SMA-(@SMA*@ADJUST)
@RANGE=(@PERIOD/2)

@PLOT=@UPPERBAND
@PLOT2=@LOWERBAND
@PLOT3=@SMA

NEXT

FOR #CURDATE=(#LASTDATE-@PERIOD/2)+1 TO (#LASTDATE-1)
@PLOT=-10000
@PLOT2=-10000
@PLOT3=-10000
NEXT

FOR #CURDATE=(#LASTDATE-@PERIOD/2) TO #LASTDATE
@MID=MAVE(@RANGE)
@MID1=MAVE(@RANGE)+(@ADJUST*MAVE(@RANGE))
@MID2=MAVE(@RANGE)-(@ADJUST*MAVE(@RANGE))
NEXT

#CURDATE=#LASTDATE
'@MID=@SMA
'@MID1=(@SMA*@ADJUST)+@SMA
'@MID2=@SMA-(@SMA*@ADJUST)
DRAWLINESTYLE DOT
DRAWCOLOUR RGB(#R,#G,#B)
DRAWLINE @RANGE,@SMA,0,@MID
DRAWLINE @RANGE,@UPPERBAND,0,@MID1
DRAWLINE @RANGE,@LOWERBAND,0,@MID2 ]

thanks

 

[AmiSmart]

hellow every body

is ther any body can help transefering the following code from tradestation to amibroker or explain the meaning because i do not know tradestaion scripting

[ NAME CYCLE ENVELOPE
PARAMETER @PERIOD=66
PARAMETER @ADJUST=.36
PARAMETER #R=255
PARAMETER #G=0
PARAMETER #B=0

INDICATORTYPE TOOL
DISPLAYSTYLE 3LINES
PLOTSTYLE LINE RGB(#R,#G,#B)
PLOTSTYLE2 LINE RGB(#R,#G,#B)
PLOTSTYLE3 DOT RGB(#R,#G,#B)

@SMA=0
@MID=0
@MID1=0
@MID2=0
@RANGE=@PERIOD/2
@AVG=0
@UPPERBAND=0
@LOWERBAND=0

FOR #CURDATE=@PERIOD/2 TO #LASTDATE-(@PERIOD/2)
@SMA=HIST(MAVE(@PERIOD),(-@PERIOD/2))
'@DEV=MAX(@DEV,(HIGH(0)-LOW(0)))
'@BAND=@DEV/@ADJUST
@UPPERBAND=(@SMA*@ADJUST)+@SMA
@LOWERBAND=@SMA-(@SMA*@ADJUST)
@RANGE=(@PERIOD/2)

@PLOT=@UPPERBAND
@PLOT2=@LOWERBAND
@PLOT3=@SMA

NEXT

FOR #CURDATE=(#LASTDATE-@PERIOD/2)+1 TO (#LASTDATE-1)
@PLOT=-10000
@PLOT2=-10000
@PLOT3=-10000
NEXT

FOR #CURDATE=(#LASTDATE-@PERIOD/2) TO #LASTDATE
@MID=MAVE(@RANGE)
@MID1=MAVE(@RANGE)+(@ADJUST*MAVE(@RANGE))
@MID2=MAVE(@RANGE)-(@ADJUST*MAVE(@RANGE))
NEXT

#CURDATE=#LASTDATE
'@MID=@SMA
'@MID1=(@SMA*@ADJUST)+@SMA
'@MID2=@SMA-(@SMA*@ADJUST)
DRAWLINESTYLE DOT
DRAWCOLOUR RGB(#R,#G,#B)
DRAWLINE @RANGE,@SMA,0,@MID
DRAWLINE @RANGE,@UPPERBAND,0,@MID1
DRAWLINE @RANGE,@LOWERBAND,0,@MID2 ]

thanks

This is not the Tradestation code. It is called FLD Code
The explanation is here:
http://www.harriman-house.com/bookResources/MasteringHurst_Appendices.pdf

 

[stocksbrocker]

This is not the Tradestation code. It is called FLD Code
The explanation is here:
http://www.harriman-house.com/bookRe...Appendices.pdf


I do appreciate your co-opration and reply but the term "FLD" means FUTURE LINE of DEMACRATION IN HURST TIME CYCLE ANALYSIS. therefore, i am trying to transeform this code to amibroker.
thanks...................

 

[stocksbrocker]

I am so sorry the code was written in UPDATA language.


the following is trade station

/// Program Name - Cycle Envelope ///
/// Programmer - Mark Cotton ///
/// Website - www.7GTradingTools.com ///
/// Skype - markcottons.skype ///
/// Email - [email protected] ///
inputs: int PERIOD( 20 ) ;
inputs: int CHANNELWIDTH( 30 ) ;
inputs: int COLOR( RGB( 241, 31, 15 ) ) ;
inputs: int COLORPRO( RGB( 20, 241, 15 ) ) ;
variables: double vDEV( 0 ), int vb( 0 ) ;
variables: double vSMA( 0 ), double vUPPER( 0 ), double
vLOWER( 0 ) ;
variables: double vCLOSETOT( 0 ), double vAVGPRO( 0 ),
double vAVGPROPLOT( 0 ) ;
variables: double vINCREMENT( 0 ) ;
vSMA = Average( close, PERIOD ) ;
vUPPER = vSMA + ( CHANNELWIDTH * 0.5 ) ;
vLOWER = vSMA - ( CHANNELWIDTH * 0.5 ) ;
plot1[( Period * 0.5 )]( vSMA, “SMA”, COLOR ) ;
plot2[( Period * 0.5 )]( vUPPER, “UPPER”, COLOR ) ;
plot3[( Period * 0.5 )]( vLOWER, “LOWER”, COLOR ) ;
vCLOSETOT = 0 ;
for vb = 0 to ( PERIOD * 0.5 ) - 1
begin
vCLOSETOT = vCLOSETOT + close ;
end ;
vAVGPRO = vCLOSETOT / ( PERIOD * 0.5 ) ;
Appendices | Appendix 4: Cycle Envelope Code
305
vINCREMENT = absvalue( vAVGPRO - vSMA ) / ( PERIOD *
0.5 ) ;
for vb = 0 to ( PERIOD * 0.5 ) - 1
begin
if vAVGPRO >= vSMA then vAVGPROPLOT = vAVGPRO - (
vb * vINCREMENT ) else vAVGPROPLOT = vAVGPRO + ( vb *
vINCREMENT ) ;
plot1[vb]( vAVGPROPLOT, “SMA”, COLORPRO ) ;
plot2[vb]( vAVGPROPLOT + ( CHANNELWIDTH * 0.5 ),
“UPPER”, COLORPRO ) ;
plot3[vb]( vAVGPROPLOT - ( CHANNELWIDTH * 0.5 ),
“LOWER”, COLORPRO ) ;
end ;
Mastering Hurst Cycle Analysis | Christopher Grafton, CMT
306