PHP Code:
Al
H>Bbandtop(c,20,s,2)
Sat
L<Bbandbot(c,20,s,2)
Kesinlikle opt kulanmayn
***********
Periyot: 60 Dk
Grafik : Heiken Ashi
AL:
MOV(C,20,VAR)>OTT(C,20,1) AND
H>VALUEWHEN(1,CROSS(MOV(C,20,VAR),OTT(C,20,1)),H)
SAT:
MOV(C,20,VAR)<OTT(C,20,1) AND
L<VALUEWHEN(1,CROSS(OTT(C,20,1),MOV(C,20,VAR)),L)
***********
Aktif Karll ($) > 20
Son 5 Yl Aktif Karll Bymesi ($) > 0
zvarlk Karll ($)> 20
Son 5 Yl zvarlk Karll Bymesi ($) > 0
Son 5 Yl Kar Byme ($) > 0
Son 5 Yl Satlar Byme ($)>0.
***********
Hisse Bana Kar 1.5 dan Byk
FK X PD/DD 30 dan Kk
PEG 0.7 den Kk
Net Bor/Favk 2.5 dan Kk
zSermaye Karll Artan ve 20 den Byk
zSermaye Karll/10 > PD/DD
***********
Sadece 20 dakika viop iin
l:= Mov(C,260,E);
d:= Mov(l,260,E);
f:= l-d;
s:=l+f;
s1:=s+3;
s11:=s+1.5;
s12:=s-1.5;s2:=s-3;s1;s11;s;s12;s2
Bantlar destek diren grevi grr,
260 olanlar 5200 yaparsanz 1 dakikada iler , saylar periyotlar ve yntemi deyitir gelitir
***********
Gnlk ok gzel yn tayin eder ind. Biulder yaptr ayr pencereye ..,
((Sum(C-LLV(L,21),6)/Sum(HHV(H,21)-LLV(L,21),6))*100)*RSI(14);
mov(((Sum(C-LLV(L,21),6)/Sum(HHV(H,21)-LLV(L,21),6))*100)*RSI(14),5,E)
***********
Expoler tarama frml
Cross(c,fml(rmst)) and ((v>mov(v,10,s)*2) or ((v/ref(v,-1))>2)) and v>1000000
nd builder
Ad: rmst
Ksaltma: rmst
Kaydetip
Altaki frml data serisi blme yapitr
m1:=PDI(15);
m2:=MDI(15);
MST:=MOST(C,30,0.5);
valuewhen(1,m1>m2,MST)
Gnlk
***********
Bir tane tarama frml
filtre : Cross(c,SenkouSpanA(9,26,26,52,26)) AND V>1000;
ref(cross(Sa-24))
kolon:
Cross(c,mov(c,10,s)) and v>1000000 and (v/ref(v,-1))>1.5
kolon :
(v/ref(v,-1))>1.5
180 dakika gzel alr
sim:MAD
ndikatr builder yazlacak
Ksaltma:MDD
period:=input("period",1,500,21);
k1:=mov(c,period,s);
MAD:=k1-C;
MAD;
0
Expoler al
Mad:=c-mov(c,21,e);
Cross(mad,0) and rsi(c,14)>ref(rsi(c,14),-1) and mo(c,9)>ref(mo(c,9),-1) and V>mov(v,1,s)
***********
Saylar periyot yntemi deyitir sana uygun olan ortalamalar bul ..
A1:=(c+h+l)/3
A2:=mov(a1,13,e);
A3:=mov(a2,21,e);
A4:=mov(a3,21,e);
A5:=mov(a4,34,e);
A2;a3;a4;a5;a1
***********
Tarama
Kolan a: o
Kolan b: c
Kolan c: (c-o)*100/o
Kolan d: roc(c,1,%)
Filitre: colc>=1
lave kolan ekleyebilirsiniz
***********
Gnlk rs(14) 70 st V yapanlar bulur ok tehlikeli ama bir o kadarda karl kacanz tarama 70 altna indii an kesin stop gerekir ok ekmeini yedim ..
(rsi(c,14)>70 and rsi(c,14)<99 and rsi(c,14)>ref(rsi(c,14),-1)
***********
5 dk sapma gstergem (viop)
Matriks kodu:
x:=Input("Periyot giriniz ",10,5000,104);
x2:=x*2;
pd:=C-Mov(C,x,E);
hpd:=HHV(pd,x2);
lpd:=LLV(pd,x2);
nf:=200/(hpd-lpd);
((pd-lpd)*nf)-100;100;0;(-100);18;87;(-87)
***********
Forml ok basit ama balbana bir trading sistem ve trend analisti. Mkemmel deil tabi ama ok basit:
HHV(ref(C,-1),14)-ATR(9);
LLV(ref(C,-1),14)+ATR(9);
HHV(C,14)+0.5*ATR(9);
LLV(C,14)-0.5*ATR(9)
***********
if(L>ref(H,-1),1, if(H<ref(L,-1),-1,0))
Btn gapleri bulur
***********
Yaar erdin
TKEALAN FORMULUNUN
TKE:=(STOFK(14,6)+RSI(14)+MFI(14)+CCI(14)+WILLR(14)+MO(14)+ULT(7,14,28))/7;
D:=90;
X1:=if(TKE <40, TKE,0);
X2:=if(TKE>40, TKE,0);
X1MA:=SUM(X1,D)/D;
X2MA:=Sum(X2,D)/D;
FARK:=X2MA-X1MA;
FARK;TKE
***********
Macd kesiimi
cross(macd(26,12,9),macdtrigger(26,12,9))
***********
Kujsen st
C>=Kijunsen(9,26,26,52,26)
***********
21 mav st
C>=Cross(MOV((H+L+C)/3,21,S)
***********
5/10 kesiimi hacimle desteklenen tarama frml
Cross(MOV(c,5,e),MOV(c,10,e)) AND V>100DEMA ERKEN UYARI TARAMA
ref(DEMA(c,9),-1)>ref(DEMA(c,9),-2) and DEMA(c,9)>ref(DEMA(c,9),-1) AND DEMA(c,9)<DEMA(c,21) and DEMA(c,9)>=DEMA(c,21)*0.995
***********
Gzel bir tarama
(Cross(c,SenkouSpanB(9,26,26,52,26)) or Cross(Mov(C,10,e),Mov(C,50,e)) or Cross(Mov(C,10,s),Mov(C,50,s))) and v>1000000
***********
TKE 50deerini hacim artyla kesenler:
cross(((STOFK(14,6,E)+RSI(14)+MFI(14)+CCI(14)+WILLR(14)+MO(14)+ULT(7,14,28))/7),50) and v>ref(v,-1)
***********
NCE STENEN MALZEMER
A1:=MOV(C,7,E);
A2:=MOV(C,21.E);
A3:=MACD();
A4:=RSI(14);
IF(CROSS(A1,A2) AND A1>REF(A1,-1),1,0)+
IF(CROSS(A3,0) AND A3>REF(A3,-1),1,0)+
IF(CROSS(A4,50) AND A4>REF(A4,-1),1,0)
YADA
FARKLI SUTUNLARA YAZARSINIZ VE FLTRE
BLMNE
(colB+colC+colD)=3
***********
TARH ZRVESNDE KAPANI YAPAN HSSELER TARAMA FORML:
C>=HHV(REF(H,-1),CUM(1))
TARH DPTE KAPANI YAPAN
HSSELER TARAMA FORML:
C<=LLV(REF(L,-1),CUM(1))
***********
Arasnda treyde devam
Pazartesinin ilk paylam olsun
ALT IZGI
TLLL:=VALUEWHEN(1,L>REF(L,-1),REF(L,-1));
TLLL
ST IZGI
THHH:=VALUEWHEN(1,H>REF(H,-1),REF(H,-1));
THHH
Periyotu ok kltmeyin
***********
Sadece iki izgi data serisine
X leri ve mov daki var ve periyot deyitirebilirsiniz , ksa da ben bu ekil bakyorum ..
X1:=0.6;
X2:=0.001;
X3:=30;
MOV(C,X3,VAR);
OTT(C,X3,X1)*(1+X2);
OTT(C,X3,X1)*(1-X2)
***********
DEN TREND KIRANLAR
BARS:=200;
CT:=TREND(BARS,-1,D);
BS:=BARSSINCE(CT=H);
BS2:=BARSSINCE(BS=0 AND REF(BS,-10)=0);
c>CT AND CT>0 AND LASTVALUE(BS2)>50
***********
YKSELEN TREND AAGI KIRANLAR
BARS:=200;
CT:=TREND(BARS,-10,Y);
BS:=BARSSINCE(CT=L);
BS2:=BARSSINCE(BS=0 AND REF(BS,-10)=0);
c<CT AND CT>0 AND LASTVALUE(BS2)>50
***********
***********
Mehmet der ki;
PHP Code:
OPTli kurgu
AL KOULU
Cross(C,Ref(LLV(C,opt1),-1)+(Ref(ATR(opt2),-1)*opt3))
SAT
Cross(Ref(HHV(C,opt1),-1)-(Ref(ATR(opt2),-1)*opt3),C)
AIA SAT
Cross(Ref(HHV(C,opt1),-1)-(Ref(ATR(opt2),-1)*opt3),C)
AIK POZ KAPAT
Cross(C,Ref(LLV(C,opt1),-1)+(Ref(ATR(opt2),-1)*opt3))
*************
Opt kurgu 2
AL
MOV(C,opt1,VAR)>(OTT(C,opt1,opt3)+REF(OTT(C,opt1,opt3)-(OTT(C,opt1,opt2)-OTT(C,opt1,opt3)),-100))/2
SAT
MOV(C,opt1,VAR)<(OTT(C,opt1,opt3)+REF(OTT(C,opt1,opt3)-(OTT(C,opt1,opt2)-OTT(C,opt1,opt3)),-100))/2
*************
Deneyin bece baarl
a1:=if(((C/(ref(c,-1))-1)*100>1.5),1,0);
a2:=if(c>ref(h,-1),1,0);
a3:=if(V>ref(v,-1),1,0);
a4:=if((a1+a2+a3)=3,1,0);
a4
*************
neyi satacaklar ..
Bu da ok gzel
per:=input("Period",1,500,10);
ks:=input("Katsay",0,500,2.4);
Cross(OTT(C,per,ks,S),ref(OTT(C,per,ks,S),-1)) AND RSI(C,14)>60
Rs 55 de olabilir
*************
Opt kurgu 3
Geri ben opt yi orjinaline yakn deyerleri kullanyorum..
AL
if(MOV(C,40,VAR)>OTT(C,40,7),
Alpha(opt1>opt2),
Alpha(opt3>opt4))
SAT
if(MOV(C,40,VAR)>OTT(C,40,7),
Alpha(opt3<opt4),
Alpha(opt1<opt2))
*************
#SuperTrend#
Matriks System Tester
60 dakika
Haiken ashi
AL Forml:
C>STrend((H+L)/2,13,3)
SAT Forml:
C<STrend((H+L)/2,13,3)
ok net sknt yaamasnz
*************
SAT:
IF(C>BBAND(C,20,S,2),
L<BBANDTOP(C,20,S,2) AND C<O AND
MOV(C,20,VAR)<OTT(C,20,1),
C<BBAND(C,20,S,2) AND C<O AND
L<BBANDBOT(C,20,S,2) AND
MOV(C,20,VAR)<OTT(C,20,1))
*************
Bunu kurcalayn mov ve ott rakamlarn ve ynetimi (var) yazan yeri deyitirin baktnz periyota uyarlayn testin yapn , ok daha gzel sonular bulursunuz , bband la oynamyn
CenterOfGravityOscillator
period:=input("Period",1,500,10);
num:=mov(c,period,w)*(period*(period+1)/2);
den:=sum(c,period);
CG:=num/den;
CG;
ref(cg,-1)
*************
Haiken ashi 60 dakika
AL:
IF(C>BBAND(C,20,S,2),
H>BBANDTOP(C,20,S,2) AND C>O AND
MOV(C,20,VAR)>OTT(C,20,1),
C<BBAND(C,20,S,2) AND C>O AND
H>BBANDBOT(C,20,S,2) AND
MOV(C,20,VAR)>OTT(C,20,1))
Devam alt twite
*************
Buda temel analizcilere gelsin ..
Peg= (fk)/net kar bymesi
Cola FK()/DKB()
Colb DOB()/FK()
Filtre DOB()/FK() >2 and FK()/DKB()>0
and FK()/DKB()<1
**********
Bayram hediyesi 1
AL:
Yuzde:=5;
Short:=C - C*Yuzde/100;
Sh_Stop:=IF(Short>PREV OR REF(C,-1)<PREV,Short,PREV);
Long:=C + C*Yuzde/100;
Ln_Stop:=IF(Long<PREV OR REF(C,-1)>PREV,Long,PREV);
C>Ln_Stop AND Mov(C,20,Var)>Ott(C,20,1) AND
MFI()>20 AND RSI()>30
**********
Bayram hediyesi 2
SAT:
Yuzde:=5;
Short:=C - C*Yuzde/100;
Sh_Stop:=IF(Short>PREV OR REF(C,-1)<PREV,Short,PREV);
Long:=C + C*Yuzde/100;
Ln_Stop:=IF(Long<PREV OR REF(C,-1)>PREV,Long,PREV);
C<Sh_Stop AND Mov(C,20,Var)<Ott(C,20,1) AND
MFI()<80 AND RSI()<70
**********
Deyitir gelitir
Rakamlar
Yntem (E yazan yer)
Periyot
Denemeden korkma en sonunda grafiki gzle kontrol et, gzne ho gelen iyidir
X:=QQEF(h,7,1);
FAHO:=MOV(X, 6,E);
FAHO1:=MOV(X,1,E);FAHO;FAHO1:99:21
**********
Deyitir gelitir
Rakamlar
Yntem (Var yazan yer)
Periyot
Denemeden korkma en sonunda grafiki gzle kontrol et, gzne ho gelen iyidir
AL
if(MOV(C,40,VAR)>OTT(C,40,7),
Alpha(opt1>opt2),
Alpha(opt3>opt4))
SAT
if(MOV(C,40,VAR)>OTT(C,40,7),
Alpha(opt3<opt4),
Alpha(opt1<opt2))
**********
Deyitir gelitir
Rakamlar(most deyerleri)
Periyot
Denemeden korkma en sonunda grafiki gzle kontrol et, gzne ho gelen iyidir
m1:=PDI(15);
m2:=MDI(15);
MST:=MOST(C,30,0.5);
valuewhen(1,m1>m2,MST)
**********
Deyitir gelitir
Rakamlar(most deyerleri)
Periyot
Denemeden korkma en sonunda grafiki gzle kontrol et, gzne ho gelen iyidir
Ne anlatlmak istediini
Chat.openia sorun
k1:=CROSS(c,MOST(c,30,0.5));
k2:=valuewhen(1.,k1,h);
c>MOST(c,30,0.5) AND c>K2+ATR(30)/2
**********
ayhan ylmaz'dan bayram ekeri :)
alttaki, epeydir merakls ok aranp durular...
benim de olsun diyeni bol..
"ekistras" 14 farkl MA vs. :p
kodu gelitirmek, stne farkl indik/kod paralar yazmak sizde gari!
-sk, tak, parala :)
*** tabii ki "amibroker AFL"
****************
function MCGin(periods)
{
n=periods;
MD[0] = C[0];
for( i = 1; i < BarCount; i++ )
{
MD[ i ] = MD[ i - 1 ] + (C[i]-MD[i-1])/( N*(C[i] / MD[i-1])^4) ;
}
return MD;
}
function VWMA( p, period )
{
return Sum( p * V, period ) / Sum( V, period );
}
// T3 Average
function T3Avg(p,period)
{
s = 0.84;
e1=EMA(p,period);
e2=EMA(e1,Period);
e3=EMA(e2,Period);
e4=EMA(e3,Period);
e5=EMA(e4,Period);
e6=EMA(e5,Period);
c1=-s*s*s;
c2=3*s*s+3*s*s*s;
c3=-6*s*s-3*s-3*s*s*s;
c4=1+3*s+s*s*s+3*s*s;
Ti3=c1*e6+c2*e5+c3*e4+c4*e3;
return ti3;
}
function KAMA( P, Period )
{
Direction = P - Ref( P, -period );
Volatility = Sum( abs( P - Ref( P, -1 ) ), period );
Volatility = IIf( Volatility > 0, Volatility, 0.00001 );
ER = abs( Direction / Volatility );
FastSC = 2 / ( 2 + 1 );
SlowSC = 2 / ( 30 + 1 );
SSC = ER * ( FastSC - SlowSC ) + SlowSC;
Constant = SSC ^ 2;
return AMA( P, Constant );
}
function VarPeriodRSI( array, periods )
{
Chg = array - Ref( array, -1 );
pc = Max( Chg, 0 );
nc = Max( -Chg, 0 );
pa = AMA( pc, 1/periods );
na = AMA( nc, 1/periods );
return 100 * pa / ( pa + na );
}
Function MyAvgParam( type )
{
global AvgText;
global AvgType;
global AvgTextname;
ParamAverage =
ParamList( "Type",
List = "1 - McGinley Dynamic, 2 - SMA, 3 - EMA, 4 - WMA, 5 - DEMA, 6 - TEMA, 7 - WILDERS, 8 - LINEAR REGRESSION, 9 - TIME SERIES FORECAST, 10 - KAMA, 11 - VWMA, 12 - T3, 13 - Hull, 14 - VarPeriodRSI", type - 1 );
for ( i = 0; i < 16; i++ )
if ( StrExtract( List, i ) == ParamAverage )
AvgType = i + 1;
if ( AvgType == 1 )
AvgTextname = "McGinley Dynami";
else
if ( AvgType == 2 )
AvgTextname = "SMA";
else
if ( AvgType == 3 )
AvgTextname = "EMA";
else
if ( AvgType == 4 )
AvgTextname = "WMA";
else
if ( AvgType == 5 )
AvgTextname = "DEMA";
else
if ( AvgType == 6 )
AvgTextname = "TEMA";
else
if ( AvgType == 7 )
AvgTextname = "WILDERS";
else
if ( AvgType == 8 )
AvgTextname = "LINEARREG";
else
if ( AvgType == 9 )
AvgTextname = "TSF";
else
if ( AvgType == 10 )
AvgTextname = "KAMA";
else
if ( AvgType == 11 )
AvgTextname = "VWMA";
else
if ( AvgType == 12 )
AvgTextname = "T3";
else
if ( AvgType == 13 )
AvgTextname = "Hull";
else
if ( AvgType == 14 )
AvgTextname = "VarPeriodRSI";
AvgText = " - " + AvgTextname;
}
Function Average( array, period, type )
{
if ( Type == 1 )
//Value = PeGMA( Array, Period );
Value =MCGin( Period );
else
if ( Type == 2 )
Value = MA ( Array, Period );
else
if ( Type == 3 )
Value = EMA( Array, Period );
else
if ( Type == 4 )
Value = WMA( Array, Period );
else
if ( Type == 5 )
Value = DEMA( Array, Period );
else
if ( Type == 6 )
Value = TEMA( Array, Period );
else
if ( Type == 7 )
Value = Wilders( Array, Period );
else
if ( Type == 8 )
Value = LinearReg( Array, Period );
else
if ( Type == 9 )
Value = TSF( Array, Period );
else
if ( Type == 10 )
Value = KAMA( Array, Period );
else
if ( Type == 11 )
Value = VWMA( Array, Period );
else
if ( Type == 12 )
Value = T3Avg( Array, Period );
else
if ( Type == 13 )
Value = WMA( 2*WMA(Array,int(Period/2))- WMA(Array,Period),int(sqrt(Period)));
else
if ( Type == 14 )
Value = VarPeriodRSI( Array, period );
return Value;
}
function AddAverage( SectionText, DefaultPeriod, DefaultType, def_PriceField, Defaultshift, Defaultcolor, Defaultstyle, default_AvgSwitch )
{
global MyAverage_opt;
global MyAverage;
_SECTION_BEGIN( SectionText );
MyAverage_opt = ParamToggle( "On/Off", "Off|On", default_AvgSwitch );
MyAvgParam( DefaultType );
P = ParamField( "Price field", def_PriceField );
Period = Param( "Periods", DefaultPeriod, 2, 250, 1 );
Shift = Param( "Shift", Defaultshift, -50, 50, 1 );
MyAverage = Average( P, Period, AvgType );
MyAvgStyle = ParamStyle( "Style", Defaultstyle, maskAll );
MyAvgColor = ParamColor( "Color", Defaultcolor );
if ( MyAverage_opt )
Plot( MyAverage, _DEFAULT_NAME() + AvgText, MyAvgColor, MyAvgStyle | styleNoRescale, Null, Null, shift );
_SECTION_END();
}
SetChartBkColor( ParamColor("background",colorLightYellow) );
_SECTION_BEGIN("Main Parameters");
//AddparamUsefromChart(1);
side = 1;
MyAvgParam(1);
sia = Param("Smoothness if any", 5, 1, 200, 1 );
lia = Param("Length if any", 21, 1, 200, 1 );
Periods = Param("Periods", 20, 2, 300, 1 );
_SECTION_BEGIN("MACD");
A1= Average( C,12,AvgType )-Average( C,25,AvgType );
B1 =Average( C,25,AvgType )-Average( C,12,AvgType ) ;
//A1=EMA(C,12)-EMA(C,26);
//B1=EMA(C,26)-EMA(C,12);
BBtop=BBandTop(A1,periods,1);
BBbot=BBandBot(A1,periods,1);
Color=IIf(a1<0 AND a1>Ref(a1,-1), colorGreen,IIf(a1>0 AND a1>Ref(a1,-1) ,colorBrightGreen,IIf(a1>0 AND a1<Ref(a1,-1),colorCustom12,colorRed)));
Color1=IIf(a1<0 AND a1>Ref(a1,-1), colorPaleTurquoise,IIf(a1>0 AND a1>Ref(a1,-1) ,colorpaleGreen,IIf(a1>0 AND a1<Ref(a1,-1),colorrose,colorLightOrange)));
Plot(a1,"MACD",color,styleDots+styleLine+styleThick);
Plot(B1,"MACD",color,styleDots+styleLine+styleThick);
Plot(BBtop,"BBtop",colorDarkBlue,styleDashed);
Plot(BBbot,"BBbot",colorDarkBlue,styleDashed);
PlotOHLC(BBtop,BBbot,BBtop,BBbot,"",color1,stylecloud|styleClipMinMax,5,5.0,0,-1);
Plot(0,"",colorBlack,1);
_SECTION_END();
Write a note in this area. It's really easy to share with others. Click here ...
,
Alnt yaparak yantla
Yer mleri