2008-2-4 19:45
狐狸
简单主图公式源码 （转）
[code]input:k(1,1,3,1);
hh:= SYSPARAM(4);
ll:= SYSPARAM(5);
HL:=hh-ll;
wH := BARSLAST(HIGH=hh);
wL :=BARSLAST(LOW=ll);
KK := wH-wL;
a1 :=IF(kk<0,hh- HL*0.236,ll+HL*0.236);
a2 :=IF(kk<0,hh- HL*0.382,ll+HL*0.382);
a3 :=IF(kk<0,hh- HL*0.618,ll+HL*0.618);
mHL:= hh-HL*0.5;
b1:=IF(kk<0,hh- HL*0.125,ll+HL*0.125);
b2:=IF(kk<0,hh- HL*0.25,ll+HL*0.25);
b3:=IF(kk<0,hh- HL*0.375,ll+HL*0.375);
b4:=IF(kk<0,hh- HL*0.625,ll+HL*0.625);
b5:=IF(kk<0,hh- HL*0.75,ll+HL*0.75);
b6:=IF(kk<0,hh- HL*0.875,ll+HL*0.875);
A := ISLASTBAR;
DRAWTEXT(A and K<>3,HH, ' 最高价：'+NUMTOSTR(HH,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K<>3,LL, ' 最低价：'+NUMTOSTR(ll,3)),ALIGN2,,colorgreen;
DRAWTEXT(A and K<>3,mHL,' 50%：'+NUMTOSTR(mHL,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=1, a1, ' 0.236：'+NUMTOSTR(a1,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=1, a2, ' 0.382：'+NUMTOSTR(a2,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=1, a3, ' 0.618：'+NUMTOSTR(a3,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=2, b1, ' 1/8：'+NUMTOSTR(b1,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=2, b2, ' 1/4：'+NUMTOSTR(b2,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=2, b3, ' 3/8：'+NUMTOSTR(b3,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=2, b4, ' 5/8：'+NUMTOSTR(b4,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=2, b5, ' 3/4：'+NUMTOSTR(b5,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K=2, b6, ' 7/8：'+NUMTOSTR(b6,3)),ALIGN2,colorgreen;
DRAWTEXT(A and K<>3,HH, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;
DRAWTEXT(A and K<>3,LL, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorred,linethick7;
DRAWTEXT(A and K<>3,mHL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,coloryellow,linethick7;
DRAWTEXT(A and K=1, a1, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue,linethick7;
DRAWTEXT(A and K=1, a2, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue,linethick7;
DRAWTEXT(A and K=1, a3, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue,linethick7;
DRAWTEXT(A and K=2, b1, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue;
DRAWTEXT(A and K=2, b2, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue,linethick7;
DRAWTEXT(A and K=2, b3, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue;
DRAWTEXT(A and K=2, b4, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue;
DRAWTEXT(A and K=2, b5, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue,linethick7;
DRAWTEXT(A and K=2, b6, '￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN2,colorblue;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),COLOR0000AA;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,6,0),COLOR0000bb ;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,4,0),COLOR0000cc ;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,2,0),COLOR0000ee;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000ff;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),Color7B7b00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,6,0),Color909000;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,4,0),ColorA8a800;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,2,0),COLORcece00;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORffff00;
ema5:EMA(CLOSE,5),color00ff00;
ema10:EMA(CLOSE,10),coloryellow;
ema20:EMA(CLOSE,20),colorff00ff;
ema30:EMA(CLOSE,30),colorffcccc;
ema60:EMA(CLOSE,60),ColorFFF1FF;
ema120:EMA(CLOSE,120),colorffcc66;
DRAWLINE(ema5>=HHV(ema5,5),ema5,ema5<=LLV(ema5,5),ema5,1),ColorC0C0C0,LINEDOT;[/code]