說明:多數(shù)是從網(wǎng)上收集整理的,版權(quán)歸原創(chuàng)者。主要適用于飛狐,其它股軟偶有涉及。
一、角度線
ATAN((A/REF(A,1)-1)*100)*57.3;
{57.3是把弧度轉(zhuǎn)為角度 }
例:10日均線斜率大于45度
A:=MA(C,10);
ATAN((A/REF(A,1)-1)*100)*57.3>45;
二、除權(quán)及天數(shù)
上除權(quán):=SPLITBARS(1);
本除權(quán):=BARSLAST(IF(SPLITBARS(0)=1,SPLITBARS(0)+1,0))+1;
比例:SPLIT(1),LINETHICK0;
復(fù)權(quán)價:=C*(1+比例);
DRAWTEXTEX(1,1,100,0,上次除權(quán)距今:+NUMTOSTR(上除權(quán),0)+ 天),COLOREE8899;
DRAWTEXTEX(1,10,100,100,本次除權(quán)距今:+NUMTOSTR(本除權(quán),0)+ 天),COLOREE8899;
DRAWTEXTEX(1,10,310,0,復(fù)權(quán)價:+NUMTOSTR(復(fù)權(quán)價,2)+ 元),COLOREE8899;
三、主圖疊加大盤K線
input:n(42,1,250);
AA:=SUM(1,0);
BB:=IF(AA=1,1,0);
TT:=ISLASTBAR ;
DD:=BACKSET(TT=1,N+1);
EE:=BACKSET(TT=1,N);
FF:=IF(DD>EE,1,0);
GG:=IF(C>0,FF,BB);
PP:=BARSLAST(GG=1);
X:=REF(INDEXC,PP);
Y:=REF(CLOSE,PP);
CC:=(INDEXC/X)*Y;
OO:=(INDEXO/X)*Y;
HH:=(INDEXH/X)*Y;
LL:=(INDEXL/X)*Y;
STICKLINE(CC>=OO,HH,LL,1,0),ColorFF00FF;
STICKLINE(CC>=OO,CC,OO,7,1),ColorFF00FF;
STICKLINE(CC<OO,HH,LL,1,0),ColorE8E800;
STICKLINE(CC<OO,CC,OO,7,1),ColorE8E800;
四、三大傳統(tǒng)指標(biāo)頂?shù)妆畴x
A1:=BARSLAST(ref(cross("macd.diff"(12,26,9),"macd.dea"(12,26,9)),1));
B1:=ref(c,A1+1)>c and ref("macd.diff"(12,26,9),A1+1)<"macd.diff"(12,26,9) and cross("macd.diff"(12,26,9),"macd.dea"(12,26,9));
MACD底背離:STICKLINE(FILTER(B1>0,5),0,0.75,3,0),COLOR00FF00;{5天內(nèi)B1>0的條件不被記錄在內(nèi),在當(dāng)前周期內(nèi)出現(xiàn)B1>0畫綠色柱線}
DRAWTEXT(FILTER(B1>0,5),0.57,MACD底背離),COLOR00FF00;
A2:=BARSLAST(ref(cross("kdj.k"(9,3,3),"kdj.d"(9,3,3)),1));
B2:=ref(c,A2+1)>c and ref("kdj.k"(9,3,3),A2+1)<"kdj.k"(9,3,3) and cross("kdj.k"(9,3,3),"kdj.d"(9,3,3));
KDJ底背離:STICKLINE(FILTER(B2>0,5),0,1,3,0),COLORYELLOW;{5天內(nèi)B2>0的條件不被記錄在內(nèi),在當(dāng)前周期內(nèi)出現(xiàn)B>0畫黃色柱線}
DRAWTEXT(FILTER(B2>0,5),0.80,KDJ底背離),COLORYELLOW;
A3:=BARSLAST(ref(cross("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=ref(c,A3+1)>c and ref("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) and cross("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
RSI底背離:STICKLINE(FILTER(B3>0,5),0,0.5,3,0),COLORFFCC66;{5天內(nèi)B3>0的條件不被記錄在內(nèi),在當(dāng)前周期內(nèi)出現(xiàn)B3>0畫青色柱線}
DRAWTEXT(FILTER(B3>0,5),0.25,RSI底背離),COLORFFCC66;
C1:=BARSLAST(ref(cross("macd.dea"(12,26,9),"macd.diff"(12,26,9)),1));
D1:=ref(c,C1+1) and cross("macd.dea"(12,26,9),"macd.diff"(12,26,9));
MACD頂背離:STICKLINE(FILTER(D1>0,5),2,1.25,3,0),COLOR0066FF;{5天內(nèi)D1>0的條件不被記錄在內(nèi),在當(dāng)前周期內(nèi)出現(xiàn)D1>0畫橘黃色柱線}
DRAWTEXT(FILTER(D1>0,5),1.47,MACD頂背離),COLOR0066FF;
C2:=BARSLAST(ref(cross("kdj.d"(9,3,3),"kdj.k"(9,3,3)),1));
D2:=ref(c,C2+1)and cross("kdj.d"(9,3,3),"kdj.k"(9,3,3));
KDJ頂背離:STICKLINE(FILTER(D2>0,5),2,1,3,0),COLORRED;{5天內(nèi)D2>0的條件不被記錄在內(nèi),在當(dāng)前周期內(nèi)出現(xiàn)D2>0畫紅色柱線}
DRAWTEXT(FILTER(D2>0,5),1.2,KDJ頂背離),COLORRED;
C3:=BARSLAST(ref(cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=ref(c,C3+1) and cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
RSI頂背離:STICKLINE(FILTER(D3>0,5),2,1.5,3,0),COLORFF00FF;{5天內(nèi)D3>0的條件不被記錄在內(nèi),在當(dāng)前周期內(nèi)出現(xiàn)D3>0畫粉色柱線}
DRAWTEXT(FILTER(D3>0,5),1.75,RSI頂背離),COLORFF00FF;
五、二十四節(jié)氣
立春:=FILTER(MONTH=2 AND (DAY=3 OR DAY=5 ),2);
雨水:=FILTER(MONTH=2 AND (DAY=18 OR DAY=20),2);
驚蟄:=FILTER(MONTH=3 AND (DAY=5 OR DAY=7 ),2);
春分:=FILTER(MONTH=3 AND (DAY=20 OR DAY=22),2);
清明:=FILTER(MONTH=4 AND (DAY=4 OR DAY=6 ),2);
谷雨:=FILTER(MONTH=4 AND (DAY=19 OR DAY=21),2);
立夏:=FILTER(MONTH=5 AND (DAY=6 OR DAY=8 ),2);
小滿:=FILTER(MONTH=5 AND (DAY=20 OR DAY=22),2);
芒種:=FILTER(MONTH=6 AND (DAY=5 OR DAY=7 ),2);
夏至:=FILTER(MONTH=6 AND (DAY=20 OR DAY=22),2);
小暑:=FILTER(MONTH=7 AND (DAY=6 OR DAY=8 ),2);
大署:=FILTER(MONTH=7 AND (DAY=22 OR DAY=24),2);
立秋:=FILTER(MONTH=8 AND (DAY=7 OR DAY=9 ),2);
處暑:=FILTER(MONTH=8 AND (DAY=22 OR DAY=24),2);
白露:=FILTER(MONTH=9 AND (DAY=7 OR DAY=9 ),2);
秋分:=FILTER(MONTH=9 AND (DAY=22 OR DAY=24),2);
寒露:=FILTER(MONTH=10 AND (DAY=7 OR DAY=9 ),2);
霜降:=FILTER(MONTH=10 AND (DAY=22 OR DAY=24),2);
立冬:=FILTER(MONTH=11 AND (DAY=7 OR DAY=9 ),2);
小雪:=FILTER(MONTH=11 AND (DAY=22 OR DAY=24),2);
大雪:=FILTER(MONTH=12 AND (DAY=6 OR DAY=8 ),2);
冬至:=FILTER(MONTH=12 AND (DAY=21 OR DAY=23),2);
小寒:=FILTER(MONTH=1 AND (DAY=5 OR DAY=7 ),2);
大寒:=FILTER(MONTH=1 AND (DAY=19 OR DAY=21),2);
DRAWTEXT(立春,100,立春),COLORgreen,ALIGN;
DRAWTEXT(雨水,100,雨水),COLORgreen,ALIGN;
DRAWTEXT(驚蟄,100,驚蟄),COLORgreen,ALIGN;
DRAWTEXT(春分,100,春分),COLORgreen,ALIGN;
DRAWTEXT(清明,100,清明),COLORgreen,ALIGN;
DRAWTEXT(谷雨,100,谷雨),COLORgreen,ALIGN;
DRAWTEXT(立夏,100,立夏),COLORMAGENTA,ALIGN;
DRAWTEXT(小滿,100,小滿),COLORMAGENTA,ALIGN;
DRAWTEXT(芒種,100,芒種),COLORMAGENTA,ALIGN;
DRAWTEXT(夏至,100,夏至),COLORMAGENTA,ALIGN;
DRAWTEXT(小暑,100,小暑),COLORMAGENTA,ALIGN;
DRAWTEXT(大署,100,大署),COLORMAGENTA,ALIGN;
DRAWTEXT(立秋,100,立秋),COLORYELLOW,ALIGN;
DRAWTEXT(處暑,100,處暑),COLORYELLOW,ALIGN;
DRAWTEXT(白露,100,白露),COLORYELLOW,ALIGN;
DRAWTEXT(秋分,100,秋分),COLORYELLOW,ALIGN;
DRAWTEXT(寒露,100,寒露),COLORYELLOW,ALIGN;
DRAWTEXT(霜降,100,霜降),COLORYELLOW,ALIGN;
DRAWTEXT(立冬,100,立冬),COLORWHITE,ALIGN;
DRAWTEXT(小雪,100,小雪),COLORWHITE,ALIGN;
DRAWTEXT(大雪,100,大雪),COLORWHITE,ALIGN;
DRAWTEXT(冬至,100,冬至),COLORWHITE,ALIGN;
DRAWTEXT(小寒,100,小寒),COLORWHITE,ALIGN;
DRAWTEXT(大寒,100,大寒),COLORWHITE,ALIGN;
六、發(fā)行價
v1:=splitdata(1);v2:=splitdata(2);
v3:=splitdata(3);v4:=splitdata(4);
jj:=finance(51);
cap:=c;
jj[1]:=jj;
for i=2 to datacount do
jj:=(jj[i-1]+v2*v3/10)/(1+(v1+v2)/10)-v4/10;
發(fā)行價:jj[2],linethick0;
七、標(biāo)識符號
為了公式顯示的豐富多彩,除了運用繪圖函數(shù)提供的符號外,還可以通過顯示文字的方式,將這些符號選擇合適的加進(jìn)去。
♂♀★●↑↓▲▼△◥◤◢◣Ψ◎ ̄ ̄
例:DRAWTEXT(c>0,10,★),COLORRED;
八、顯示基本資料
S:=(股票代碼: + STKLABEL);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,S),ALIGN4,Color00FFFF;
DRAWTEXT((BARPOS = SYSPARAM(2)),HIGH,(((((((((((((((((((((((((((((((((( 所屬板塊: + BLKNAME) + \n) + 發(fā)行價) + NUMTOSTR(FINANCE(51),2)) + 元) + 發(fā)行量) + NUMTOSTR(FINANCE(52),2)) + 萬股) + \n) + 總股本) + NUMTOSTR(FINANCE(1),0)) + 萬股) + 流通A股) + NUMTOSTR(FINANCE(7),0)) + 萬股) + 凈資產(chǎn)) + NUMTOSTR(FINANCE(35),2)) + 億元) + 每股收益) + NUMTOSTR(FINANCE(33),2)) + 元) + 每股未分配) + NUMTOSTR(FINANCE(32),2)) + 元) + \n) + 市盈率) + NUMTOSTR(DYNAINFO(39),2)) + %) + 投資收益) + NUMTOSTR(FINANCE(24),2)) + 元) + 股東總數(shù)) + NUMTOSTR(FINANCE(50),0)) + 戶)),ALIGN4,ColorFFFF93;
九、光標(biāo)跟隨顯示日期和星期
variable:wday[7]=星期六;
wday[1]:=星期日;
wday[2]:=星期一;
wday[3]:=星期二;
wday[4]:=星期三;
wday[5]:=星期四;
wday[6]:=星期五;
fy:=year;
fm:=month;
fd:=day;
wd:=weekday;
p:=SYSPARAM(1);
DRAWTEXTex(c,0,300,1,
numtostr(fy[p],0)+年+numtostr(fm[p],0)+月
+numtostr(fd[p],0)+日,+wday[wd[p]+1]+\n),COLORyellow;
十、均線粘合的寫法
第一種:
p1:=abs(A-B)+abs(B-C); {A-B的絕對值+B-收盤價的絕對值}
p1/c<N/100;
說明:
A、B、D分別代表不同周期的均線,n/100的n為比率,一般設(shè)2%以下。
第二種:
AA:=(A1+A2+A3+A4)/4;
SX:=AA*(N/100)+AA;
XX:=AA-AA*(N/100);
BETWEEN(A1,SX,XX); {A1位于SX和XX之間}
說明:
A1、A2、A3、A4分別代表不同周期的均線。
函數(shù)BETWEEN的意思是介于兩個數(shù)之間。
n為粘合度,一般為2或3;