[Amibroker] System intra STS 8/3/3

Formułki do programów, skrypty, programowanie
Animator działu: Dark

[Amibroker] System intra STS 8/3/3

Postprzez olaf » 2008-12-09, 18:48

Na naszym kanale #futures, w dniu 3.04.2008, koleżanka Patrycja vel "esystemy" opublikowała założenia dla prostego systemu intra, opartego na Stochasticu. Skoro założenia zostały upublicznione, pozwalam sobie zakłożyć ten wątek dla wtedy nieobecnych i potomnych;)


Oto krótki wycinek z dyskusji:
<b>
[12:13] <esystemy> podam wam prosty system dla sts 8/3/3
[12:13] <esystemy> fajnie sie sprawdza wewnatrz jakiegos boczniaka
[12:14] <esystemy> kupuj gdy sts ma sygnal kupna na danych 60min.
[12:14] <esystemy> sprzedawaj gdy sts ma sygnal na danych 30 min
[12:29] <esystemy> sts = stochastic
</b>


Dzieki uprzejmosci <b>mopel44</b> powstala rowniez formula do Amibrokera:


mopel44 napisał(a):_SECTION_BEGIN("Parameters");


Plot(Param("Wyprzedanie",25,0,100),"",ParamColor("Level-color",colorGrey50), ParamStyle ( "Level-style" ,styleDashed |styleNoTitle | styleNoRescale ) );
Plot(Param("Wykupienie",75,0,100) ,"",ParamColor("Level-color",colorGrey50), ParamStyle ( "Level-style" ,styleDashed |styleNoTitle | styleNoRescale ) );

TimeframeL = ParamList("Time Frame Short",List = "15 min,30 min,Hourly,4 Hour,Daily,Weekly",2);
TFl =
IIf(TimeframeL == "15 min",in15Minute,
IIf(TimeframeL == "30 min",1800,
IIf(TimeframeL == "Hourly",inHourly,
IIf(TimeframeL == "4 Hour",inHourly*4,
IIf(TimeframeL == "Daily",inDaily,
IIf(TimeframeL == "Weekly",inWeekly,
IIf(TimeframeL == "Weekly",inMonthly,Null)))))));


_SECTION_END();



_SECTION_BEGIN("Stochastic %D");

periods = Param( "Periods", 8, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
Dsmooth = Param( "%D avg", 3, 1, 200, 1 );
Plot( StochD( periods , Ksmooth, DSmooth ), _DEFAULT_NAME(), ParamColor( "Color", colorBlue ), ParamStyle("Style") );

_SECTION_END();

_SECTION_BEGIN("Stochastic %K");

periods = Param( "Periods", 8, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
Plot( StochK( periods , Ksmooth), _DEFAULT_NAME(), ParamColor( "Color", colorRed ), ParamStyle("Style") );



_SECTION_END();

_SECTION_BEGIN("Stoch.%D-H");

periods = Param( "Periods", 8, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
Dsmooth = Param( "%D avg", 3, 1, 200, 1 );

TimeFrameSet(TFl);
StochDh= StochD( periods , Ksmooth, DSmooth );
TimeFrameRestore();


Plot( TimeFrameExpand( StochDh, TFl), _DEFAULT_NAME(), ParamColor( "Color", colorYellow ), ParamStyle("Style") );

_SECTION_END();


_SECTION_BEGIN("Stoch.%K-H");

periods = Param( "Periods", 8, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );

TimeFrameSet(TFl);
StochDk = StochK( periods , Ksmooth);
TimeFrameRestore();

Plot( TimeFrameExpand( StochDk, TFl) , _DEFAULT_NAME(), ParamColor( "Color", colorWhite ), ParamStyle("Style") );



_SECTION_END();


Jak cos mozna srednia wygladzic bedzie lepiej wygladalo ,ale nie odpowiadam za wyniki, nie testowalem jeszcze i chyba szybko nie przetestuje.
Nie dodalem komentarzy bo sie spieszylem :) nie ma jak rano sobie walnac jakis kod :) ide na kawke :) Pozdrawiam!
Ostatnio edytowany przez olaf, 1970-01-01, 02:00, edytowano w sumie 1 raz
Pozdrawiam... Olaf

"Trade What You See, Not What You Think"
"When the facts change, I change my mind - what do you do, sir?"
Awatar użytkownika
olaf
 
Posty: 1980
Dołączenie: 2006-06-21, 20:23

Powróć do Formuły

Kto jest na forum

Użytkownicy przeglądający to forum: Brak zarejestrowanych użytkowników oraz 0 gości