漂亮实用的主图--神笔马良。这是一个老公式了,欢迎大家使用。公式有源码,也请有能力的人优化。 神笔马良 VV:=(C+L+H)/3; DSA:=SMA(EMA(VV,2),2,1)LINETHICK2,COLORRED; Y396:=DSA; 险1:=Y396*1.1,COLORLIRED; 险2:=Y396*1.125,COLORLIRED; 险3:=Y396*1.15,COLORLIRED; 良1:=Y396*0.9,COLORLIBLUE; 良2:=Y396*0.875,COLORLIBLUE; 良3:=Y396*0.85,COLORLIBLUE; 变色:=IF(Y396<REF(Y396,1),Y396,DRAWNULL),LINETHICK2,COLORBLUE; {WSR1:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;} {WSR2:=CROSS(WSR1,5);} {WSR3:=CROSS(8,WSR1);} {WSR4:=CROSS(WSR1,-5);} {WSR5:=CROSS(WSR1,-8);} {WSR6:=WSR3;} {WSR7:=WSR4 OR WSR5;} {WSR8:=WSR7 AND FILTER(WSR7,5);} {WSR10:DRAWICON(WSR8,L-0.01,1);} {WSR9:=WSR6 AND FILTER(WSR6,5);} {WSR11:DRAWICON(WSR9,H+0.01,2);} WSR1:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100; WSR2:=CROSS(WSR1,5); WSR3:=CROSS(8,WSR1); WSR4:=CROSS(WSR1,-5); WSR5:=CROSS(WSR1,-8); WSR6:=WSR3; WSR7:=WSR4 OR WSR5; WSR8:=WSR7 AND FILTER(WSR7,5); WSR10:DRAWICON(WSR8,L-0.01,1); WSR9:=WSR6 AND FILTER(WSR6,5); WSR11:DRAWICON(WSR9,H+0.01,2); WSR12:=O<良3; DRAWICON(WSR12 AND FILTER(WSR12,12),L-0.03,9); W1:=C>REF(C,1) AND MACD<REF(MACD,1) AND MACD>0 AND V<REF(V,1); W2:=C>REF(C,1) AND MACD<0 AND MACD<REF(MACD,1) AND V<REF(V,1); XG:=W1 OR W2; VAR1:=AMOUNT/VOL/7; VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7; VAR3:=SUM(AMOUNT,10)/VAR1/7; VAR4:=DMA(VAR2,VOL/VAR3); VAR5:=(CLOSE-VAR4)/VAR4*100,COLORLIMAGENTA; XG1:=CROSS(VAR5,MA(VAR5,2)) AND VAR5<0 AND C<(HHV(H,5)*0.88) AND REF(O>C,1) AND REF(O>C,2); XG3:=XG AND XG1 AND L<良1; WSR13:=O>良3 AND L<良1 OR XG3; DRAWICON(WSR13 AND FILTER(WSR13,10),L-0.03,5); WSR14:=H>险3;DRAWICON(WSR14 AND FILTER(WSR14,15),H+0.03,6); WSR15:=H<险3 AND H>险2;DRAWICON(WSR15 AND FILTER(WSR15,5),H+0.03,4); WSR16:=(INDEXC-MA(INDEXC,3))/MA(INDEXC,3); WSR17:=(INDEXC-MA(INDEXC,8))/MA(INDEXC,8); WSR18:=(INDEXC-MA(INDEXC,18))/MA(INDEXC,18); WSR19:=(WSR16 + WSR17 + WSR18)/3; WSR20:=(C-MA(C,3))/MA(C,3); WSR21:=(C-MA(C,8))/MA(C,8); WSR22:=(C-MA(C,18))/MA(C,18); WSR23:=(WSR20 + WSR21 + WSR22)/3; WSR24:=(WSR19>REF(WSR19,1) AND CROSS(WSR23,WSR19))*50; WSR25:=(INDEXC-MA(INDEXC,6))/MA(INDEXC,6); WSR26:=(INDEXC-MA(INDEXC,12))/MA(INDEXC,12); WSR27:=(INDEXC-MA(INDEXC,24))/MA(INDEXC,24); WSR28:=(WSR25 + WSR26 + WSR27)/3; WSR29:=(C-MA(C,6))/MA(C,6); WSR30:=(C-MA(C,12))/MA(C,12); WSR31:=(C-MA(C,24))/MA(C,24); WSR32:=(WSR29 + WSR30 + WSR31)/3; WSR33:=(WSR28>REF(WSR28,1) AND CROSS(WSR32,WSR28))*20; WSR34:=(INDEXC-MA(INDEXC,13))/MA(INDEXC,13); WSR35:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34); WSR36:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55); WSR37:=(WSR34 + WSR35 + WSR36)/3; WSR38:=(C-MA(C,13))/MA(C,13); WSR39:=(C-MA(C,34))/MA(C,34); WSR40:=(C-MA(C,55))/MA(C,55); WSR41:=(WSR38 + WSR39 + WSR40)/3; WSR42:=(WSR37>REF(WSR37,1) AND CROSS(WSR41,WSR37)); WSR43:=(INDEXC-MA(INDEXC,13))/MA(INDEXC,13); WSR44:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34); WSR45:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55); WSR46:=(WSR43 + WSR44 + WSR45)/3; WSR47:=(C-MA(C,30))/MA(C,30); WSR48:=(C-MA(C,60))/MA(C,60); WSR49:=(C-MA(C,90))/MA(C,90); WSR50:=(WSR47 + WSR48 + WSR49)/3; WSR51:=(WSR46>REF(WSR46,1) AND CROSS(WSR50,WSR46)); WSR52:=(INDEXC-MA(INDEXC,34))/MA(INDEXC,34); WSR53:=(INDEXC-MA(INDEXC,55))/MA(INDEXC,55); WSR54:=(INDEXC-MA(INDEXC,89))/MA(INDEXC,89); WSR55:=(WSR52 + WSR53 + WSR54)/3; WSR56:=(C-MA(C,60))/MA(C,60); WSR57:=(C-MA(C,120))/MA(C,120); WSR58:=(C-MA(C,220))/MA(C,220); WSR59:=(WSR56 + WSR57 + WSR58)/3; WSR60:=(WSR59>REF(WSR59,1) AND CROSS(WSR59,WSR55)); WSR61:=WSR24 OR WSR33 OR WSR42 OR WSR51 OR WSR60; {DRAWICON(WSR61 AND H<Y396 AND FILTER(WSR61,5),良3,7); DRAWTEXT(WSR61 AND H<Y396 AND FILTER(WSR61,5),良3,'良机');} N1:=20;N2:=10;N3:=5; STICKLINE(CLOSE>REF(CLOSE,1)*1.095 AND CLOSE=HIGH,CLOSE,OPEN,2,1),COLOR0000FF;{涨停} STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,2,1),COLORGREEN;{跌停}; GJ:=(C+H+L+O)/4; 明日阻力:=L+(GJ-L)+(C-L); 明日支撑:=L+(C-GJ); 今日阻力:REF(明日阻力 , 1),NODRAW; 今日支撑:REF(明日支撑 , 1),NODRAW; STICKLINE(ISLASTBAR AND C>=今日阻力,今日阻力,今日阻力,10,1),COLOR0000FF; STICKLINE(ISLASTBAR AND C<今日阻力,今日阻力,今日阻力,10,1),COLOR00FF00; STICKLINE(ISLASTBAR AND C>=今日支撑,今日支撑,今日支撑,10,1),COLORFF00FF; STICKLINE(ISLASTBAR AND C<今日支撑,今日支撑,今日支撑,10,1),COLORFF8800; AA:=REF(H,N1)=HHV(H,2*N1+1); QY:=BACKSET(AA,N1+1); CC:=FILTER(QY,N1) AND H=HHV(H,N1+1); DDD:=BARSLAST(CC); GDTS:=IF(CC,CURRBARSCOUNT,0); DINGBU:=IF(DDD,REF(H,DDD),H);{顶部} DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS); DINGBU1:=REF(DINGBU,DDD+1); GDCS1:=CONST(DINGBUTS); DINGBUTS1:=REF(DINGBUTS,DDD+1); GDCS2:=CONST(DINGBUTS1); DINGBU2:=REF(DINGBU1,DDD+1); MM:=IF(CURRBARSCOUNT>GDCS2,0,1); 高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1),COLORRED; DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR00FF00,POINTDOT,LINETHICK2; DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLOR00FF00,POINTDOT,LINETHICK2; AA1:=REF(L,N1)=LLV(L,2*N1+1); QY1:=BACKSET(AA1,N1+1); CC1:=FILTER(QY1,N1) AND L=LLV(L,N1+1); DD1:=BARSLAST(CC1); DDTS:=IF(CC1,CURRBARSCOUNT,0); YDB:=IF(DD1,REF(L,DD1),L); DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS); DDCS1:=CONST(DDTS1); ZDB:=REF(YDB,DD1+1); DDTS2:=REF(DDTS1,DD1+1); DDCS2:=CONST(DDTS2); 低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORRED; DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLOR00FF00,POINTDOT,LINETHICK2; DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLOR00FF00,POINTDOT,LINETHICK2; LAA:=REF(H,N2)=HHV(H,2*N2+1); LQY:=BACKSET(LAA,N2+1); LCC:=FILTER(LQY,N2) AND H=HHV(H,N2+1); LDDD:=BARSLAST(LCC); LGDTS:=IF(LCC,CURRBARSCOUNT,0); LDINGBU:=IF(LDDD,REF(H,LDDD),H);{顶部} LDINGBUTS:=IF(LDDD,REF(LGDTS,LDDD),LGDTS); LDINGBU1:=REF(LDINGBU,LDDD+1); LGDCS1:=CONST(LDINGBUTS); LDINGBUTS1:=REF(LDINGBUTS,LDDD+1); LGDCS2:=CONST(LDINGBUTS1); LDINGBU2:=REF(LDINGBU1,LDDD+1); LMM:=IF(CURRBARSCOUNT>LGDCS2,0,1); 压力:DRAWLINE(CURRBARSCOUNT=LGDCS2,H,CURRBARSCOUNT=LGDCS1,H,1),COLORFF0000; DRAWLINE(CURRBARSCOUNT=LGDCS2,H,ISLASTBAR,REF(H,LGDCS2-1),1),COLOR00FF00,POINTDOT; DRAWLINE(CURRBARSCOUNT=LGDCS1,H,ISLASTBAR,REF(H,LGDCS1-1),1),COLOR00FF00,POINTDOT; LAA1:=REF(L,N2)=LLV(L,2*N2+1); LQY1:=BACKSET(LAA1,N2+1); LCC1:=FILTER(LQY1,N2) AND L=LLV(L,N2+1); LDD1:=BARSLAST(LCC1); LDDTS:=IF(LCC1,CURRBARSCOUNT,0); LYDB:=IF(LDD1,REF(L,LDD1),L); LDDTS1:=IF(LDD1,REF(LDDTS,LDD1),LDDTS); LDDCS1:=CONST(LDDTS1); LZDB:=REF(LYDB,LDD1+1); LDDTS2:=REF(LDDTS1,DD1+1); LDDCS2:=CONST(LDDTS2); 支撑:DRAWLINE(CURRBARSCOUNT=LDDCS2,L,CURRBARSCOUNT=LDDCS1,L,1),COLORFF0000; ZGSTAR:=(压力+支撑)/2; ZGEND:=CONST((压力+支撑)/2); STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2); 中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORWHITE; LLAA:=REF(H,N3)=HHV(H,2*N3+1); LLQY:=BACKSET(LLAA,N3+1); LLCC:=FILTER(LLQY,N3) AND H=HHV(H,N3+1); LLDDD:=BARSLAST(LLCC); LLGDTS:=IF(LLCC,CURRBARSCOUNT,0); LLDINGBU:=IF(LLDDD,REF(H,LLDDD),H);{顶部} LLDINGBUTS:=IF(LLDDD,REF(LLGDTS,LLDDD),LLGDTS); LLDINGBU1:=REF(LLDINGBU,LLDDD+1); LLGDCS1:=CONST(LLDINGBUTS); LLDINGBUTS1:=REF(LLDINGBUTS,LLDDD+1); LLGDCS2:=CONST(LLDINGBUTS1); LLDINGBU2:=REF(LLDINGBU1,LLDDD+1); LLMM:=IF(CURRBARSCOUNT>LGDCS2,0,1); L压力:DRAWLINE(CURRBARSCOUNT=LLGDCS2,H,CURRBARSCOUNT=LLGDCS1,H,1) COLORFF0000; DRAWLINE(CURRBARSCOUNT=LLGDCS2,H,ISLASTBAR,REF(H,LLGDCS2-1),1),COLOR00FF00,POINTDOT; DRAWLINE(CURRBARSCOUNT=LLGDCS1,H,ISLASTBAR,REF(H,LLGDCS1-1),1),COLOR00FF00,POINTDOT; LLAA1:=REF(L,N3)=LLV(L,2*N3+1); LLQY1:=BACKSET(LLAA1,N3+1); LLCC1:=FILTER(LLQY1,N3) AND L=LLV(L,N3+1); LLDD1:=BARSLAST(LCC1); LLDDTS:=IF(LLCC1,CURRBARSCOUNT,0); LLYDB:=IF(LLDD1,REF(L,LLDD1),L); LLDDTS1:=IF(LLDD1,REF(LLDDTS,LLDD1),LDDTS); LLDDCS1:=CONST(LLDDTS1); LLZDB:=REF(LLYDB,LLDD1+1); LLDDTS2:=REF(LLDDTS1,DD1+1); LLDDCS2:=CONST(LLDDTS2); L支撑:DRAWLINE(CURRBARSCOUNT=LLDDCS2,L,CURRBAR |
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!