打印本文
關閉窗口
相關標簽:西點自用指標公式 、 通達信主圖指標公式 、 黃金柱主圖指標公式 、 金鉆指標公式主圖 、 獲利盤主圖指標公式 、 絕密主圖指標公式 、 macd主圖指標公式 、 波段主圖指標公式 、 恒者主圖指標公式 、 分時主圖指標公式 、 股票主圖指標公式 、 主圖指標公式源碼 、 妖股啟動指標公式主圖 、
?
{我的自用主圖
今天俺的中關村漲停，特將我的自用主圖拿出來分享。
本公式是我將各個公式組合而成，并非原創(chuàng)，如果喜歡請頂帖，加分，嘿嘿！}
原理解析：
源碼：
?
DRAWGBK(v>1,colorRGB(10,160,0),colorRGB(25,15,0),70);
S:=('股票代碼：' + STKLABEL);
DRAWTEXT((SYSPARAM(2) = BARPOS),CLOSE,S),ALIGN4,colorYELLOW;
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)) + '萬股') + ' 凈資產') + NUMTOSTR(FINANCE(35),2)) + '億元') + ' 每股收益') + NUMTOSTR(FINANCE(33),2)) + '元') + ' 每股未分配') + NUMTOSTR(FINANCE(32),2)) + '元') + '\n') + '市盈率') + NUMTOSTR(DYNAINFO(39),2)) + '%') + ' 投資收益') + NUMTOSTR(FINANCE(24),2)) + '元') + ' 股東總數') + NUMTOSTR(FINANCE(50),0)) + '戶')),ALIGN4,colorYELLOW;
{分析家公式網 http://www..com}
VARC:=SMA(((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10)))*(100),4,1);
VARD:=SMA(((CLOSE-LLV(LOW,11))/(HHV(HIGH,11)-LLV(LOW,11)))*(100),4,1);
VARE:=SMA(((CLOSE-LLV(LOW,12))/(HHV(HIGH,12)-LLV(LOW,12)))*(100),4,1);
VARF:=SMA(((CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13)))*(100),4,1);
VAR10:=SMA(((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14)))*(100),4,1);
VAR11:=SMA(((CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15)))*(100),4,1);
VAR12:=SMA(((CLOSE-LLV(LOW,16))/(HHV(HIGH,16)-LLV(LOW,16)))*(100),4,1);
VAR13:=SMA(((CLOSE-LLV(LOW,17))/(HHV(HIGH,17)-LLV(LOW,17)))*(100),4,1);
VAR14:=SMA(((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18)))*(100),4,1);
VAR17:=SMA(((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20)))*(100),4,1);
VAR18:=(HIGH+LOW+CLOSE)/(3);
VAR19:=(VAR18-MA(VAR18,14))/((0.015)*(AVEDEV(VAR18,14)));
VAR1A:=(VAR18-MA(VAR18,70))/((0.015)*(AVEDEV(VAR18,70)));
VAR1B:=IF((VAR19>=150) AND (VAR19<200) AND (VAR1A>=150) AND (VAR1A<200),(-10),0);
VAR1C:=IF((VAR19<=(-150)) AND (VAR19>(-200)) AND (VAR1A<=(-150)) AND (VAR1A>(-200)),10,0);
VAR1D:=((CLOSE-MA(CLOSE,13))/(MA(CLOSE,13)))*(100);
VAR1E:=100-ABS(VAR1D);趨勢:=(SMA((VAR11-50)*(2),3,1)+SMA((VARD-50)*(2),3,1))/(2),COLORRED,LINETHICK2;
D:=((3)*(VAR17-50))*(2)-(2)*(SMA((VAR17-50)*(2),3,1)),COLOR00FFFF;
DRAWTEXT(CROSS(D,趨勢),(LOW * 0.99),'買進');
{}
長下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.38;
最新價:=LOW,LINETHICK0;
新價:=CLOSE,LINETHICK0;
高價:=HIGH,LINETHICK0;
出貨:1.36*MA(FORCAST(CLOSE,2),40),COLOR08ffff,POINTDOT,PRECISION2,LINETHICK3;
高拋:1.16*MA(FORCAST(CLOSE,2),40),COLORff82ff,POINTDOT,PRECISION2,LINETHICK3;
低吸:0.82*MA(FORCAST(CLOSE,2),40),COLORf7e300,POINTDOT,PRECISION2,LINETHICK3;
滿倉:0.72*MA(FORCAST(CLOSE,2),40),COLOR0000ff,POINTDOT,PRECISION2,LINETHICK3;
平衡:(高拋+低吸)/2,ColorWHITE,PRECISION2,,POINTDOT,LINETHICK0;關注1:=滿倉>最新價 AND 長下影 AND 最新價<REF(最新價,1),linethick0;
關注2:=低吸>最新價 AND 長下影 AND 最新價<REF(最新價,1),linethick0;{}M3:=MA(CLOSE,3),linethick0;
M8:=MA(CLOSE,8)linethick0;
M21:=MA(CLOSE,21)linethick0;
BB:=BARPOS=SYSPARAM(1);
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);
str1:='今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+numtostr(fd[p],0)+'日, '+wday[wd[p]+1];
explain(barpos=p,str1),colorRED;
DRAWTEXT(barpos=p,H*1.12,str1),ALIGN2,coloryellow,;
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,13)*20+C,40);
BU:=cross(買線,賣線);
SEL:=cross(賣線,買線);
drawtext(bu,LOW*0.996,'B'),colorred,linethick3;
買入:bu AND LOW*0.996,LINETHICK0,COLORRED;
drawtext(sel,HIGH*1.028,'S'),colorffff00,linethick3;
stickline(買線>=賣線,low,high,1,0),colorred;
stickline(買線>=賣線,close,open,4.5,0),color0000aa;
stickline(買線>=賣線,close,open,4,0),color0000cc;
stickline(買線>=賣線,close,open,3,0),color0000cc;
stickline(買線>=賣線,close,open,2,0),color0000ee;
stickline(買線<賣線,close,open,4.5,0),coloraaaa00;
stickline(買線<賣線,close,open,4,0),colorbbbb00;
stickline(買線<賣線,close,open,3,0),colorcccc00;
stickline(買線<賣線,close,open,2,0),coloreeee00;
stickline(買線<賣線,low,high,1,0),colorffff00;
stickline(cross(買線,賣線) or cross(賣線,買線),open,close,3,0),color00ffff;
v1:=ema(close,5);
v2:=ema(ema(close,90)*1.01,10),;
DRAWTEXT(cross(v1,v2),v1+0.01,'牛起步'),color00ff00,LINETHICK2;
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
AB:=CROSS(AK1,AK);
DRAWICON(cross(v1,v2),v2,1);
DRAWTEXT(關注1,(LOW * 0.99),'○牛窩'),colorYELLOW;
牛窩:關注1,LINETHICK0;
牛起步:cross(v1,v2),LINETHICK0;
黑馬掃蕩:=滿倉>最新價 AND 滿倉<高價,LINETHICK0;
黑馬:關注1 OR 關注2 OR 黑馬掃蕩,LINETHICK0,COLORYELLOW;input:n(4,1,255);
wN:=N;{原碼 N:=3;}
wA1:=REF(H,wN)=HHV(H,2*wN+1); wB1:=FILTER(wA1,wN);
wC1:=BACKSET(wB1,wN+1);
wD1:=FILTER(wC1,wN);{高點}
wA2:=REF(L,wN)=LLV(L,2*wN+1); wB2:=FILTER(wA2,wN);
wC2:=BACKSET(wB2,wN+1);
wD2:=FILTER(wC2,wN);{低點}
wR1:=BACKSET(BARSTATUS=2,BARSLAST(wD1)+1); wS1:=wR1>REF(wR1,1); {前一高}
wT1:=BACKSET(BARSTATUS=2,BARSLAST(wD2)+1); wU1:=wT1>REF(wT1,1); {前一低}
wR2:=BACKSET(wS1,REF(BARSLAST(wD1),1)+2); wS2:=wR2>REF(wR2,1); {前二高}
wT2:=BACKSET(wU1,REF(BARSLAST(wD2),1)+2); wU2:=wT2>REF(wT2,1); {前二低}
wR3:=BACKSET(wS2,REF(BARSLAST(wD1),1)+2); wS3:=wR3>REF(wR3,1); {前三高}
wT3:=BACKSET(wU2,REF(BARSLAST(wD2),1)+2); wU3:=wT3>REF(wT3,1); {前三低}
wR4:=BACKSET(wS3,REF(BARSLAST(wD1),1)+2); wS4:=wR4>REF(wR4,1); {前四高}
wT4:=BACKSET(wU3,REF(BARSLAST(wD2),1)+2); wU4:=wT4>REF(wT4,1); {前四高}
DRAWLINE(wS2,H,wS1,H,1),Color0000Ff,LINETHICK1; {壓力１:}
DRAWLINE(wU2,L,wU1,L,1),ColorWHITE,LINETHICK1;{支撐１:}
DRAWLINE(wS3,H,wS2,H,1),Color0000Ff,LINETHICK0; {壓力２:}
DRAWLINE(wU3,L, wU2,L,1),ColorWHITE,LINETHICK0;{支撐２:}
DRAWLINE(wS4,H,wS3,H,1),Color0000Ff,LINETHICK0;{壓力３:}
DRAWLINE(wU4,L, wU3,L,1),ColorWHITE,LINETHICK0;{支撐３;}提示：公式有未來函數
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?