What language is this???

I have Accucharts and am having a hard time getting help for custom development of indicators. I can code some, but not all.

I know there is a relationship between Accucharts and Teletrader, but if I google this, I still do not fine a forum to help.

So, I decided to post an indicator... just one of them, to try and see if someone knows what lanugage this is:

==================
FUNCTION( Close, Period, OverBS, Method )
BEGIN
FUNCTION = 0;
IF Currentbar > 1 Then
IF Method = 1 THEN
IF rsi( Close, Period) <= OverBS AND rsi( Close, Period)[1] >= OverBS[1] THEN
FUNCTION = 1;
END_IF;
ELSEIF Method = 2 THEN
IF rsi( Close, Period) >= OverBS AND rsi( Close, Period)[1] <= OverBS[1] THEN
FUNCTION = 1;
END_IF;
END_IF;
END_IF;
END_FUNCTION

===========================

Sincerely,
Justin

thats tradestation code, called "easyLanguage".

I can't tell what language it is but it does not look like easy language to me. At least EL that i know of. the ELSEIF and END_IF is making me say that.

I agree with Merlin.

It is not an Indicator though, it's a Function.

Here's an Indicator I wrote in EL in 2001 to compare the code style and also for free dnld for anyone that is running ELA's.

{************************************************************************************************
This indicator is version "Sixteen A" of The Bemac Fan TrendLine Indicators. It is designed
to automatically plot a series of Support & Resistance Lines based on Manually Applied "Base Trendlines"
It can only be applied to a price study containg "High, Low & Close" Data And is Limited to
a Maximum of 18 "Base Trendlines".

(Text only change to ensure correct file...)
Input Options are limited to:
1) SupportResistPrcnt; The '% Price Range' within Last Bar Close to show the Support & Resistance.
2) BarsAhead; The Number of Bars into the Future to show the Lines & Value of Support & Resistance.
3) BaseExtension; If set to "Y" or "y" it will also extend the Manually Drawn Trendlines.

The Text that is plotted with this indicator shows:
1) The Value of Support & Resistance.
2) The Percentage of Retracement from the Base Trendline on which it is based.
3) The Ending Date of the Base Trendline. ie. All Price Activity on this line 'After the
Noted Date' may be Predictable.
Bemac - BMc - April 23rd 2001
************************************************************************************ Ver. 16A ***}
Inputs: BaseTLNumber(1),SupportResistPrcnt(3), BarsAhead(0), TimeAdv(15),BaseExtension("N"),Values("Y");

Arrays: {BMcTL = Supp./Res. Trendline ID #'s, BRV = Base Retracement Values, FColor = Color of Base & TrendLine}
BsTL[18](0), BRV[26](0.0001), BMcTL[26](0.0001), FColor[17](0);

Variables: LastTLMax18(3), TLNum(0),Counter(0);{Used as the starting point for a Counters}

{****** Define Base Drawn Trendline *******}
Variables: BsBD(991231), BsBT(0944), BsBV(0.00001),
BsED(1000101), BsET(0944), BsEV(0.00002),
BST(0), BaseRng(0.0001),BaseColor(0) ,DisplayEDate(0);

Variables: TxT("Text"), TLT(0){ TLT = TrendLineTomorrow }, BsTV(0.0001) { Bs = Base };
If @Barnumber <= 01 Then
Begin{1 Closed}
BsTL[0] = 0;
BsTL[1] = 1; BsTL[2] = 2; BsTL[3] = 3; BsTL[4] = 4; BsTL[5] = 5; BsTL[6] = 6;
BsTL[7] = 7; BsTL[8] = 8; BsTL[9] = 9; BsTL[10] = 10; BsTL[11] = 11; BsTL[12] = 12;
BsTL[13] = 13; BsTL[14] = 14; BsTL[15] = 15; BsTL[16] = 16; BsTL[17] = 17; BsTL[18] = 18;

{****** Determine Last Manually Drawn Trendline *******}
If @Barnumber <= 01 Then
While TL_Exist (Value9) {AND TL_GetNext (Value9,1)< 0}
Begin
For Value9 = 0 to 18
Begin
If TL_Exist (Value9) Then LastTLMax18 = Value9;
End;

End;
{****** Define Base Retracement Value Array *******}
BRV[00] = 0.00000; BRV[01]= 2.00000; BRV[02]= 1.76393;
{*}BRV[03]= 1.61803; BRV[04]= 1.50000; BRV[05]= 1.38197;{*}
BRV[06]= 1.23607; BRV[07]= 1.09017; BRV[08]= 1.00000;
BRV[09]= 0.90983; BRV[10]= 0.76393; BRV[11]= 0.61803;
BRV[12]= 0.50000; BRV[13]= 0.38197; BRV[14]= 0.23607;
BRV[15]= 0.14590; BRV[16]= 0.09017; BRV[17]= 0.05573;
BRV[18]= -0.05573; BRV[19]= -0.09017; BRV[20]= -0.14590;
BRV[21]= -0.23607;
{*}BRV[22]= -0.38197; BRV[23]= -0.50000; BRV[24]= -0.61803;{*}
BRV[25]= -0.76393; BRV[26]= -1.00000;

{****** Define FColor Array *******}
FColor[00] = 3; FColor[01]= 4; FColor[02]= 5; FColor[03] = 6; FColor[04]= 7;
FColor[05]= 2; FColor[06] = 3; FColor[07]= 4; FColor[08]= 5; FColor[09] = 6;
FColor[10]= 7; FColor[11]= 2; FColor[12] = 3; FColor[13]= 4; FColor[14]= 5;
FColor[15] = 6; FColor[16]= 7; FColor[17]= 2;
End;{1}

{Contd.}





{Continued From Page 1}

If (LastBarOnChart) Then
Begin{2 Closed}

{****** Define Parameters of Base Trendlines ******}
For TLNum = 0 to BaseTLNumber{LastTLMax18 }
Begin{3 Closed}

BsBD = TL_GetBeginDate(TLNum) ; { Get the Start Date of the Base TrendLine. }
BsBT = TL_GetBeginTime(TLNum) ; { Get the Start Time of the Base TrendLine. }
BsBV = TL_GetBeginVal(TLNum) ; { Get the Start Value of the Base TrendLine.}
BsED = TL_GetEndDate(TLNum) ; { Get the End Date of the Base TrendLine. }
BsET = TL_GetEndTime(TLNum) ; { Get the End Time of the Base TrendLine. }
BsEV = TL_GetEndVal(TLNum) ; { Get the End Value of the Base TrendLine. }
BaseRng = AbsValue(BsEV - BsBV) ; { The Range of the Base TrendLine. }
TLT = TL_GetValue(TLNum, Date, Time); { The value of the Base TrendLine Tomorrow. }
TL_SetColor(TLNum, FColor[TLNum]);
TL_SetSize(TLNum, 1);
If BaseExtension = "Y" or BaseExtension ="y" Then TL_SetExtRight(TLNum, True);


{****** Define BMcTL Array ******}
For Counter = 1 to 26 Begin{4 Closed}
IF BsBV > BsEV AND BRV[Counter]>0 Then
BMcTL[Counter] = TL_New (BsBD, BsBT, BsBV, BsED,BsET, (BsEV+(BaseRng*AbsValue(BRV[Counter]))));
IF BsBV > BsEV AND BRV[Counter]<0 Then
BMcTL[Counter] = TL_New (BsBD, BsBT, BsBV, BsED,BsET, (BsEV-(BaseRng*AbsValue(BRV[Counter]))));
IF BsBV < BsEV AND BRV[Counter]>0 Then
BMcTL[Counter] = TL_New (BsBD, BsBT, BsBV, BsED,BsET, (BsEV-(BaseRng*AbsValue(BRV[Counter]))));
IF BsBV < BsEV AND BRV[Counter]<0 Then
BMcTL[Counter] = TL_New (BsBD, BsBT, BsBV, BsED,BsET, (BsEV+(BaseRng*AbsValue(BRV[Counter]))));

{****** Define BMcTL Colors ******}
value1 = BMcTL[Counter];
TL_SetColor(value1, FColor[TLNum]);

{****** Define BMcTL Styles ******}
TL_SetExtRight(value1, True); {Extend all BMcTL Support & Resistance Lines}

TL_SetStyle(Value1 , 5);{- --- - --- - --- -}

TL_SetStyle(BMcTL[9] , 4);{- --- - --- - --- -}
TL_SetStyle(BMcTL[10], 2);{-- -- -- -- -- -- -}

TL_SetStyle(BMcTL[11], 1);{-------------------}{}
TL_SetStyle(BMcTL[12], 1);{-------Style-------}{}{Supp. & Res.}
TL_SetSize (BMcTL[12], 1);{-------Thick-------}{}{Center Group}
TL_SetStyle(BMcTL[13], 1);{-------------------}{}

TL_SetStyle(BMcTL[14], 2);{-- -- -- -- -- -- -}
TL_SetStyle(BMcTL[15], 4);{- --- - --- - --- -}

{****** Remove the Trendlines Outside the Input SupportResistPrcnt ******}
Value2 = BMcTL[Counter];
Value3 = BRV[Counter];
Value4 = (Low - (Low * (SupportResistPrcnt/100)));
Value5 = (High + (High * (SupportResistPrcnt/100)));
TLT = TL_GetValue(Value2, Date, Time); { The value of TL Today. }
DisplayEDate = TL_GetEndDate(TLNum);
IF TLT < Value4 OR TLT > Value5 Then
TL_Delete(Value2)

{****** Display Trendlines, Text & Colour the Same that are Within the Input SupportResistPrcnt ******}
Else Begin{5 Closed}

{Text_Delete(Value6);}

TxT = NumToStr(TLT,4);
Value6 = Text_New(Date + BarsAhead,Time + TimeAdv,TLT, "] " +" F " + TxT + "@ " + NumToStr(Value3 * 100,2) + "% " +
ATG_ELDateToString(DisplayEDate));

Value7 = Text_SetColor(Value6, TL_GetColor(TLNum));
Value8 = Text_SetLocation(Value6, (Date + BarsAhead), Time + TimeAdv, TLT);
End {5};
End{4};
End{3};
End{2};

{Bemac}

I am almost certain it is not TradeStation EL code as I am a user since '97 and dont recognize the syntax. But I put it into a EL document window and even with slight changes, it will not verify.

AccuCharts belong to FX Solutions ... I haven't played around with their code yet. I think the package is still pretty new ... but I'm not sure.

Happy Trading ...

Hmm... you may be right. Even a "Custom Function" requires "Inputs" & "Variables" but it is apparently using the same logic as ELA.
Any possibility you can post a 'SreenShot' of the code with the colours showing which are S/W Functions and which are Inputs etc...