相關標簽:頂底主圖指標公式源碼 、 爆點公式主圖指標源碼 、 t+0主圖指標公式源碼 、 白金主圖指標公式源碼 、 纏論主圖指標公式源碼 、 圖擊漲停指標公式源碼 、 伏擊漲停主圖指標源碼 、 趨勢買賣主圖指標源碼 、 短線暴漲主圖指標源碼 、 飛狐主圖最新指標源碼 、

 

INPUT:K1(2011,1990,3000),K2(1,1,12),K3(1,1,31),DX(0,0,2),FA(0,0,5),P1(5,0,255),P2(10,0,255),P3(20,0,255),P4(0,0,255),P5(0,0,255);
AS:=(o+h+l+c)/4;
MMA5:EMA(AS,P1);
SYAA:EMA(AS,P2);
SYAB:EMA(AS,P3);{
SYAC:EMA(AS,P4);
SYAD:EMA(AS,P5);}

RQD:=(K1-1900)*10000+K2*100+K3;
DJ:REF(L,BARSLAST(DATE<=RQD )),LINETHICK0,COLOR55BB55;
上漲:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(L=DJ)+1));
STICKLINE(C>=O,C,O,8,0),COLOR0000FF,LAYER4;
STICKLINE(C>=O,H,L,0,0),COLOR0000FF,LAYER4;
STICKLINE(C<=O,C,O,8,0),COLORFFFF00,LAYER4;
STICKLINE(C<=O,H,L,0,0),COLORFFFF00,LAYER4;
DRAWTEXT(上漲=0 AND FA>=1,DJ,'1'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=1 AND FA>=1,DJ,'2'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=2 AND FA>=1,DJ,'3'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=3 AND FA>=1,DJ,'4'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=4 AND FA>=1,DJ,'5'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=5 AND FA>=1,DJ,'6'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=6 AND FA>=1,DJ,'7'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=7 AND FA>=1,DJ,'8'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=8 AND FA>=1,DJ,'9'),COLORFFFFFF,VALIGN1;
DRAWTEXT(上漲=9 AND FA>=1,DJ,'10'),COLORFFFFFF,VALIGN1;

陽漲幅:=3.5;
陽倍量:=1.9;
單陽收:=C;
單陽開:=O;
單陽:=單陽收>=REF(C,1)*(1+陽漲幅/100)AND VOL>REF(VOL,1)*陽倍量;
DRAWTEXT(BARSTATUS=0 AND 單陽,L,'陽'),COLOR00FFFF,VALIGN1;
高不破價:=REF(C,BARSLAST(單陽));
低不破價:=REF(L,BARSLAST(單陽));
單陽不破:=BARSTATUS=0 AND BARSLAST(單陽)<11 AND (LLV(L,BARSLAST(單陽))>低不破價 OR LLV(L,BARSLAST(單陽))=低不破價);
STICKLINE(單陽不破,低不破價-低不破價*0.0005,低不破價,11,0),COLORGREEN;
STICKLINE(單陽不破,高不破價,高不破價,11,0),COLORRED;
STICKLINE(單陽,單陽開,單陽收,6,0),COLORYELLOW;
QKB:=IF(C>O,O,C);
QKAB:=IF(C>O,O+(C-O)*0.75,O+(C-O)*0.75);
STICKLINE(BARSTATUS=0 AND 單陽,QKB,QKAB,6,0),COLORFF2693;
實體幅度2:=REF((O+(C-O)*0.667),BARSLAST(單陽));{//當日實體幅度的2/3}
實體幅度1:=REF((O+(C-O)*0.333),BARSLAST(單陽));{//當日實體幅度的1/3}
幅度的1二:=REF((L+(H-L)/2),BARSLAST(單陽));{//當日幅度的1/2}
STICKLINE(單陽不破,幅度的1二,幅度的1二,8,1),COLOR209FFF,DOTLINE;
STICKLINE(單陽不破,實體幅度2,實體幅度2,11,1),COLORFFFF00,DOTLINE;
STICKLINE(單陽不破,實體幅度1,實體幅度1,11,1),COLORFFFF00,DOTLINE;
DRAWTEXT(BARSLAST(單陽)=1 AND 單陽不破,低不破價,'1'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=2 AND 單陽不破,低不破價,'2'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=3 AND 單陽不破,低不破價,'3'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=4 AND 單陽不破,低不破價,'4'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=5 AND 單陽不破,低不破價,'5'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=6 AND 單陽不破,低不破價,'6'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=7 AND 單陽不破,低不破價,'7'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=8 AND 單陽不破,低不破價,'8'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=9 AND 單陽不破,低不破價,'9'),COLORGREEN;
DRAWTEXT(BARSLAST(單陽)=10 AND 單陽不破,低不破價,'10'),COLORGREEN;
{一陽穿三線}
MA2:=EMA(C,2);
MA5:=EMA(C,5);
MA13:=EMA(C,13);
MA34:=EMA(C,34);
MA55:=EMA(C,55);
YCX:=MA5>=REF(MA5,1);
H1:=MAX(MAX(MA5,MA13),MA34);
L1:=MIN(MIN(MA5,MA13),MA34);
QK:=IF(C>O,O,C);
QKA:=IF(C>O,O+(C-O)*0.35,O+(C-O)*0.25);
一陽穿三線:= H1<C AND O<L1 AND YCX AND MA2>REF(MA2,1);
STICKLINE(一陽穿三線,QK,QKA,6,0),COLORYELLOW;
STICKLINE(C=C AND fa>=1,O+((C-O)*0.667),(O+(C-O)*0.667),4,0),COLORFF0000,LINETHICK1;{//當日實體幅度的2/3}
STICKLINE(C=C AND fa>=1,O+((C-O)*0.333),(O+(C-O)*0.333),4,0),COLORFF0000,LINETHICK1;{//當日實體幅度的1/3}
STICKLINE(C=C AND fa>=1,O+((C-O)/2),(O+(C-O)/2),5,0),COLOR00FFFF,LINETHICK1;{//當日實體幅度的1/2}
STICKLINE(C=C AND fa>=1,L+((H-L)/2),(L+(H-L)/2),6,0),COLOR208FFF,LINETHICK1;{//當日幅度的1/2}
STICKLINE(C=C AND fa>=1,IF(C>O,H-((H-C)/2),H-((H-O)/2)),IF(C>O,H-((H-C)/2),H-((H-O)/2)),1.3,0),COLORYELLOW,LINETHICK1;{//當日上影線幅度的1/2}
STICKLINE(C=C AND fa>=1,IF(C<O,L+((C-L)/2),L+((O-L)/2)),IF(C<O,L+((C-L)/2),L+((O-L)/2)),1.3,0),COLORYELLOW,LINETHICK1;{//當日下影線幅度的1/2};
AJ:=AMOUNT/(VOL*100);
DRAWTEXT(C=C AND fa=3,AJ,'←'),COLORFF5f00;
z3:=C=HHV(C,6);
Z9:=C=LLV(C,6);
Z4:=BARSLAST(Z3);
Z5:=BARSLAST(Z9);
STICKLINE(C>0 AND fa=2,REF(C,Z4)*1.005,REF(C,Z4)*1.005,7,0),COLORFFFF00,DOTLINE;
STICKLINE(C>0 AND fa=2,REF(C,Z5)*0.995,REF(C,Z5)*0.995,7,0),COLORFF00FF,DOTLINE;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWICON(RSI1>76,H,12),VALIGN1,ALIGN1;
DRAWICON(RSI1>80,H,13),VALIGN0,ALIGN1;
BL:=EMA(AS,17);
BLS:=BL+2.58*STDP(C,20);
BL2:=BL+1.96*STDP(C,20);
DRAWICON(CROSS(H,BLS),H,8),VALIGN1,ALIGN1;
DRAWICON(CROSS(H,BL2),H,6),VALIGN2,ALIGN1;
Q1:=DJ * 1.03;
Q2:=DJ * 1.05;
Q3:=DJ * 1.08;
Q4:=DJ * 1.13;
Q5:=DJ * 1.18;
Q6:=DJ * 1.25;
Q7:=DJ * 1.33;
I1:=0;
flag1:=0;
while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
DO
IF REF(Q1,I1)<REF(Q1,I1+1) AND REF(Q1,I1+1)>Q1
THEN BEGIN FLAG1:=1;
S1:=I1;
I1:=BARSLAST(DISPSTATUS=1);
END
ELSE I1:=I1+1;
STICKLINE(FLAG1 AND DX>=1,REF(Q1,S1),DJ,(s1+1)*20,0),Color551155,ALIGN1,LAYER5;
STICKLINE(FLAG1 AND DX>=1,REF(Q1,S1),Q2,(s1+1)*20,0),Color444444,ALIGN1,LAYER5;
STICKLINE(FLAG1 AND DX>=1,REF(Q2,S1),Q3,(s1+1)*20,0),Color666666,ALIGN1,LAYER5;
STICKLINE(FLAG1 AND DX>=1,REF(Q3,S1),Q4,(s1+1)*20,0),Color777777,ALIGN1,LAYER5;
STICKLINE(FLAG1 AND DX>=1,REF(Q4,S1),Q5,(s1+1)*20,0),Color665506,ALIGN1,LAYER5;
STICKLINE(FLAG1 AND DX>=2,REF(Q5,S1),Q6,(s1+1)*20,0),Color777000,ALIGN1,LAYER5;
DRAWTEXT(上漲=0 AND DX>=1,DJ*1.003,''+''+NUMTOSTRN(DJ,2)),COLORYELLOW,align2;
DRAWTEXT(上漲=0 AND DX>=1,Q1,'3%'+'-'+NUMTOSTRN(Q1,2)),COLORYELLOW,align2;
DRAWTEXT(上漲=0 AND DX>=1,Q2,'5%'+'-'+NUMTOSTRN(Q2,2)),COLORYELLOW,align2;
DRAWTEXT(上漲=0 AND DX>=1,Q3,'8%'+'-'+NUMTOSTRN(Q3,2)),COLORYELLOW,align2;
DRAWTEXT(上漲=0 AND DX>=1,Q4,'13%'+'-'+NUMTOSTRN(Q4,2)),COLORYELLOW,align2;
DRAWTEXT(上漲=0 AND DX>=1,Q5,'18%'+'-'+NUMTOSTRN(Q5,2)),COLORYELLOW,align2;
DRAWTEXT(上漲=0 AND DX>=2,Q6,'25%'+'-'+NUMTOSTRN(Q6,2)),COLORYELLOW,align2;
{添加參數精靈
{--------顯示年月日低點日期--------}
調整年 Param#1 顯示年度
調整月 Param#2 顯示月份
調整日 Param#3 顯示日期
--------參數=1顯示低點水平線------
參數=2--4 Param#4 顯示漲幅幅度線
參數=0--2 Param#5 顯示K線幅度線
--------顯示均價線--------
P1計算 Param#6 任意均價線;
P2計算 Param#7 任意均價線;
P3計算 Param#8 任意均價線;
P4計算 Param#9 任意均價線;
P5計算 Param#10 任意均價線;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.tumamayizhan.com',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

 

 

有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友

可聯系技術人員 QQ: 1145508240  進行 有償 編寫！（不貴！點擊查看價格！）