|
踏雪寻梅（飞狐副图）： 请把图片文件放到安装目录下的FmIDLL文件夹中（不喜欢该背景的朋友，可找一自己喜欢的bmp格式的图片，重命名为”踏雪寻梅“替换即可）. 源码： DRAWBKBMP(CLOSE>0,'踏雪寻梅'); Var2:=EMA(SLOPE(EMA(CLOSE,20),10)*34+CLOSE,30); Var3:=EMA(Var2,3); Var4:=EMA(Var3,3); Var5:=EMA(Var4,3); Var6:=EMA(Var5,3); Va7:=EMA(Var6,3); VAR7:=EMA(Va7,3); VA8:=EMA(VAR7,3); Var8:=EMA(VA8,3); Var9:=EMA(Var8,3); VarA:=BARSLAST(CROSS(CLOSE,Var9)); VarB:=BARSLAST(CROSS(Var9,CLOSE)); 梅踪: STICKLINE(CLOSE>Var9 AND CLOSE>REF(CLOSE,VarA),REF(CLOSE,VarA),LOW*1,00,1),Color0000B0,linethick0; 强: STICKLINE(CLOSE<Var9 AND CLOSE<REF(CLOSE,VarB),REF(CLOSE,VarB),HIGH*1.00,0,1),Color00B000,linethick0; 势: STICKLINE(CLOSE>Var9 AND CLOSE<REF(CLOSE,VarA),REF(CLOSE,VarA),LOW*1.02,0,1),linethick0; 冷: STICKLINE(CLOSE>Var9 AND CLOSE<REF(CLOSE,VarA),REF(CLOSE,VarA),REF(CLOSE,VarA),6,1),COLORGREEN,linethick0; 沉: STICKLINE(CLOSE<Var9,REF(CLOSE,VarB),REF(CLOSE,VarB),16,0),ColorB3B3B3,linethick2; Var10:STICKLINE(CLOSE>Var9,REF(CLOSE,VarA),REF(CLOSE,VarA),16,0),COLORBLUE,linethick2; x5:HHV((REF(CLOSE,1)+REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4))/4.00,5),COLORGREEN; x10:HHV((REF(CLOSE,2)+REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5))/4.00,10),COLORyellow; x20:HHV((REF(CLOSE,3)+REF(CLOSE,4)+REF(CLOSE,5)+REF(CLOSE,6))/4,20),COLORMAGENTA; EXPLAIN(1=1,' 【技术指标分析】'),COLORYELLOW; DIFF:=(EMA(CLOSE,3) - EMA(CLOSE,13)); DEA:=EMA(DIFF,9); tj:=(diff>dea); tj1:=(diff>-0.1); MACD:=2*(DIFF-DEA); JC:=CROSS(DIFF,DEA); SC:=CROSS(DEA,DIFF); DCJC:=JC AND DEA>0; EXPLAIN((JC AND DEA>0),'MACD在0轴上金叉提示加仓;'),COLORRED; EXPLAIN((JC AND DEA<0),'MACD在0轴下金叉酌情买入;'),COLORRED; EXPLAIN((SC AND DEA>0),'MACD在0轴上多次死叉;'),COLORGREEN; EXPLAIN((SC AND DEA<0),'MACD在0轴下多次死叉;'),COLORGREEN; EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'MACD绿柱增长提示卖出;'),COLORGREEN; EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'MACD绿柱缩短提示买入;'),COLORRED; EXPLAIN((LLV(LOW,60)=LOW)AND(NOT(LLV("MACD.DEA",60)="MACD.DEA")),'MACD底背离提示示买入;'),COLORRED; EXPLAIN((HHV(HIGH,60)=HIGH)AND(NOT(HHV("MACD.DEA",60)="MACD.DEA")),'MACD顶背离提示卖出;'),COLORGREEN; EXPLAIN(CROSS("MACD.DIFF","MACD.DEA")AND(BARSLAST(CROSS("MACD.DIFF","MACD.DEA"))>=3),'MACD二次金叉提示买入，股价上涨幅度会较大。'),COLORRED; EXPLAIN(CROSS("MACD.DEA","MACD.DIFF")AND(BARSLAST(CROSS("MACD.DEA","MACD.DIFF"))>=3),'MACD二次死叉提示卖出，股价下跌幅度会较大。'),COLORGREEN; EXPLAIN((COUNT(CLOSE<REF(CLOSE,1),30)>18AND(COUNT(CLOSE<REF(CLOSE,1),3)=3))AND(COUNT("MACD.MACD">REF("MACD.MACD",1),30)>18),'MACD反转--股价将可能反转向上。'),COLORRED; EXPLAIN((COUNT(CLOSE>REF(CLOSE,1),30)>18AND(COUNT(CLOSE>REF(CLOSE,1),3)=3))AND(COUNT("MACD.MACD"<REF("MACD.MACD",1),30)>18),'MACD反转--股价将可能反转向下。'),COLORGREEN; EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'MACD在0轴上2金叉;')COLORredCOLORred; EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'MACD在0轴上3金叉;'); EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'MACD在轴上4金叉;'); LC := REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100; RSI2:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100; EXPLAIN("RSI.RSI1"<15AND(BARSLAST("RSI.RSI1"<15)>=1),'RSI相对强弱指标超卖,属买入信号。'),COLORRED; EXPLAIN("RSI.RSI1">85AND(BARSLAST("RSI.RSI1">85)>=1),'RSI相对强弱指标超买,属卖出信号。'),COLORGREEN; EXPLAIN((((LLV(L,20)=L)AND(NOT(LLV("RSI.RSI1",20)="RSI.RSI1")))OR(COUNT(C<REF(C,1),30)>18AND(COUNT("RSI.RSI1">REF("RSI.RSI1",1),30)>18)))AND("RSI.RSI1"<20),'RSI相对强弱指标底背离,股价在低位时属买入信号。'),COLORRED; EXPLAIN((((HHV(H,20)=H)AND(NOT(HHV("RSI.RSI1",20)="RSI.RSI1")))OR(COUNT(C>REF(C,1),30)>18AND(COUNT("RSI.RSI1"<REF("RSI.RSI1",1),30)>18)))AND("RSI.RSI1">80),'RSI相对强弱指标顶背离,股价在高位时属卖出信号。'),COLORGREEN; EXPLAIN(CROSS("RSI.RSI1","RSI.RSI2")AND("RSI.RSI1"<50),'RSI相对强弱指标金叉属买入信号。'),COLORRED; EXPLAIN(CROSS("RSI.RSI2","RSI.RSI1")AND("RSI.RSI1">50),'RSI相对强弱指标死叉,属卖出信号。'),COLORGREEN; EXPLAIN("RSI.RSI1"<5,'RSI相对强弱指标极低位,强烈买入信号。'),COLORRED; EXPLAIN("RSI.RSI1">93,'RSI相对强弱指标极高位,强烈卖出信号。'),COLORGREEN; EXPLAIN(RSI1<35,'RSI顶背离提示买入;'),COLORRED; EXPLAIN(CROSS(74,RSI1),'RSI顶背离提示卖出;')COLORGREEN; EXPLAIN(("KDJ.K"<=20 AND "KDJ.D"<=20),'KD超卖指示买入;')COLORRED; EXPLAIN(("KDJ.K">=80 AND "KDJ.D">=80),'KD超买逢高卖出;')COLORGREEN; EXPLAIN(CROSS("KDJ.K","KDJ.D") AND (COUNT(VOL>REF(VOL,1),30)>3 AND (VOL/CAPITAL<=(10/100))) AND (("KDJ.K"<=20 AND "KDJ.D"<=20)),'KD金叉买入,低市值或成交清淡个股应忽略此信号。')COLORRED; EXPLAIN(CROSS("KDJ.D","KDJ.K") AND ("KDJ.K">=60 AND "KDJ.D">=60) AND (BARSLAST(CROSS("KDJ.D","KDJ.K")AND("KDJ.K">=60 AND "KDJ.D">=60))>=1) AND (BARSLAST(CROSS("KDJ.D","KDJ.K") AND ("KDJ.K">=60 AND "KDJ.D">=60))<=7),'KD二次死叉提示卖出;')COLORGREEN; EXPLAIN(("KDJ.J"<0),'KDJ异常逢低买入')COLORRED; EXPLAIN(((HHV(HIGH,20)=HIGH) AND (NOT(HHV("KDJ.K",20)="KDJ.K" OR (HHV("KDJ.D",20)="KDJ.D")))) OR (COUNT(CLOSE>REF(CLOSE,1),30)>18 AND (COUNT("KDJ.K"<REF("KDJ.K",1),30)>18 OR (COUNT("KDJ.D"<REF("KDJ.D",1),30)>18))),'KD顶背离提示卖出;')COLORGREEN; EXPLAIN(((LLV(LOW,20)=LOW) AND (NOT(LLV("KDJ.K",20)="KDJ.K" OR (LLV("KDJ.D",20)="KDJ.D")))) OR (COUNT(CLOSE<REF(CLOSE,1),30)>18 AND (COUNT("KDJ.K">REF("KDJ.K",1),30)>18 OR (COUNT("KDJ.D">REF("KDJ.D",1),30)>18))),'KD底背离提示买入;')COLORRED; 日K:="KDJ.K#DAY"(20,5,5); 日D:="KDJ.D#DAY"(20,5,5); 周K:="KDJ.K#WEEK"(9,3,3); 周D:="KDJ.D#WEEK"(9,3,3); EXPLAIN((CROSS(日K,日D)),'日KD金叉且底背离买入;')COLORRED; EXPLAIN((CROSS(日D,日K)),'日KD死叉且顶背离必须卖出;')COLORGREEN; EXPLAIN((CROSS(周K,周D)),'周KD金叉且底背离买入;')COLORRED; EXPLAIN((CROSS(周D,周K)),'周KD死叉且顶背离必须卖出;')COLORGREEN; BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; UPR:=BBI+3*STD(BBI,10); DWN:=BBI-3*STD(BBI,10); var55:=(UPR-DWN)/UPR<0.03; var56:=(UPR-DWN)/UPR>0.18; var57:=(MA(CLOSE,60)-MA(CLOSE,5))/MA(CLOSE,60)>0.15; var58:=(MA(CLOSE,5)-MA(CLOSE,60))/MA(CLOSE,5)>0.15; EXPLAIN(var55,'布林线收窄可能变盘;')COLORMAGENTA; EXPLAIN(var57 and var56 and CLOSE>OPEN ,'布林上下乖离太大可能反弹;')COLORFF00FF; EXPLAIN(var58 and var56 and CLOSE<OPEN ,'布林上下乖离太大可能回落;')COLORGREEN; EXPLAIN(CROSS(CLOSE,"SAR") AND (ABS(CLOSE-"SAR")/CLOSE>=0.01),'SAR向上突破提示买入;')COLORRED; EXPLAIN(CROSS("SAR",CLOSE) AND (ABS(CLOSE-"SAR")/CLOSE>=0.01),'SAR向下突破提示卖出;')COLORGREEN; TYP := (HIGH + LOW + CLOSE)/3; cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)); EXPLAIN(cci<-100,'CCI指标底位,买入机会。'),COLORRED; EXPLAIN(cci>100,'CCI指标高位,卖出机会。'),COLORGREEN; explain((vol/CAPITAl)>0.075,'换手过大,小心主力出逃,短期头部。'),COLORYELLOW; wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)); explain(wr>-20,'W&R超买,即将见顶,应及时卖出。'),COLORGREEN; explain(wr<-80,'W&R超卖,即将见底,应伺机买进。'),COLORRED; MTM := CLOSE-REF(CLOSE,6); MTMMA := MA(MTM,6); EXPLAIN(CROSS(MTM,MTMMA),'MTM从下向上突破MTMMA,买入信号。'),COLORRED; EXPLAIN(CROSS(MTMMA,MTM),'MTM从上向下跌破MTMMA,卖出信号。'),COLORGREEN; EXPLAIN("ARBR.AR"<50,'ARBR人气指标超卖,属买入信号。'),COLORRED; EXPLAIN("ARBR.AR">200,'ARBR人气指标超买,属卖出信号。'),COLORGREEN; EXPLAIN(((HHV("ARBR.AR",10)-"ARBR.AR")/HHV("ARBR.AR",10))>=0.5,'ARBR人气指标异常,若股价从高价下跌,属买入信号。'),COLORRED; EXPLAIN((("ARBR.AR"-LLV("ARBR.AR",10))/LLV("ARBR.AR",10))>=0.5,'ARBR人气指标异常,若股价从低价上升,属卖出信号。'),COLORGREEN; EXPLAIN("ARBR.BR"<50,'ARBR意愿指标显示股价随时反弹考虑买入。'),COLORRED; EXPLAIN("ARBR.BR">300,'ARBR意愿指标显示股价随时下挫考虑卖出。'),COLORFF00FF; EXPLAIN(CROSS("ARBR.AR","ARBR.BR")AND("ARBR.AR"<50OR"ARBR.BR"<50),'ARBR人气意愿指标金叉,属买入信号。'),COLORRED; EXPLAIN(CROSS("ARBR.BR","ARBR.AR")AND("ARBR.AR">180OR"ARBR.BR">300),'ARBR人气意愿指标死叉,属卖出信号。'),COLORGREEN; EXPLAIN((COUNT(C<REF(C,1),30)>18AND(COUNT(C<REF(C,1),3)=3))AND((COUNT("OBV.OBV">REF("OBV.OBV",1),30)>18)AND(COUNT("OBV.OBV">REF("OBV.OBV",1),3)=3))AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100))),'OBV能量潮显示买盘较强属买入信号。'),COLORRED; EXPLAIN((COUNT(C>REF(C,1),30)>18AND(COUNT(C>REF(C,1),3)=3))AND((COUNT("OBV.OBV">REF("OBV.OBV",1),30)>18)AND(COUNT("OBV.OBV">REF("OBV.OBV",1),3)=3))AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100))),'OBV能量潮显示买盘逐渐加强属买入信号。'),COLORRED; EXPLAIN((COUNT(C>REF(C,1),30)>18AND(COUNT(C>REF(C,1),3)=3))AND((COUNT("OBV.OBV"<REF("OBV.OBV",1),30)>18)OR(COUNT("OBV.OBV"<REF("OBV.OBV",1),3)=3)),'OBV能量潮显示买盘无力属卖出信号。'),COLORGREEN; EXPLAIN(CROSS("OBV.OBV",0)AND(COUNT((REF("OBV.OBV",1)<0),3)=3),'OBV能量潮由负转正属买入信号。'),COLORRED; EXPLAIN(CROSS(0,"OBV.OBV")AND(COUNT((REF("OBV.OBV",1)>0),3)=3),'OBV能量潮由正转负属卖出信号。'),COLORGREEN; EXPLAIN((HHV(H,20)=H)AND(NOT(HHV("OBV.OBV",20)="OBV.OBV")),'OBV能量潮顶背离属卖出信号。')COLORGREEN; EXPLAIN((LLV(L,20)=L)AND(NOT(LLV("OBV.OBV",20)="OBV.OBV")),'OBV能量潮底背离属买入信号。'),COLORRED; EXPLAIN((ABS("OBV.OBV"-REF("OBV.OBV",1))/ABS(MA("OBV.OBV",5))>0.07)AND("OBV.OBV">REF("OBV.OBV",1)),'OBV能量潮异常。若股价在高位属卖出信号，若OBV能量线在低位长时间横向整理后出现,属买入信号。'),COLORFF00FF; EXPLAIN("CR.CR"<40,'CR能量指标超卖,提示股价形成底部,属买入信号。'),COLORRED; EXPLAIN("CR.CR"<=400AND"CR.CR">=300,'CR能量指标超买,属卖出信号。'),COLORGREEN; EXPLAIN((LLV(L,20)=L)AND(NOT(LLV("CR.CR",20)="CR.CR")),'CR能量指标底背离,属买入信号。'),COLORRED; EXPLAIN((HHV(H,20)=H)AND(NOT(HHV("CR.CR",20)="CR.CR")),'CR能量指标顶背离,属卖出信号。'),COLORGREEN; EXPLAIN(((ABS("CR.MA1"-"CR.MA2")<5)AND(ABS("CR.MA1"-"CR.MA3")<5)AND(ABS("CR.MA2"-"CR.MA3")<5))OR(((ABS("CR.MA1"-"CR.CR")<5)AND(ABS("CR.MA1"-"CR.MA3")<5)AND(ABS("CR.CR"-"CR.MA3")<5))),'CR能量指标异常,一波或长或短的上升或下跌行情即将展开。'),COLORFF00FF; EXPLAIN("PSY"<10,'PSY心理线指标低位超卖区,属买入信号。'),COLORRED; EXPLAIN(BETWEEN("PSY","PSY">10,"PSY"<25),'PSY心理线指标超卖,属买入信号。'),COLORRED; EXPLAIN("PSY">75,'PSY心理线指标超买,属卖出信号。'),COLORGREEN; EXPLAIN(CROSS("ROC.ROC",0),'ROC变动速率指标向上突破,属买入信号。'),COLORRED; EXPLAIN(CROSS(0,"ROC.ROC"),'ROC变动速率指标向下突破,属卖出信号。'),COLORGREEN; EXPLAIN((LLV(L,20)=L)AND(NOT(COUNT("ROC.ROC"<REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC"<REF("ROC.ROC",1),3)=3))),'ROC变动速率指标,显示下跌动力减弱,属买入信号。'),COLORRED; EXPLAIN((HHV(H,20)=H)AND(NOT(COUNT("ROC.ROC">REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC">REF("ROC.ROC",1),3)=3))),'ROC变动速率指标,显示上涨动力减弱,属卖出信号。'),COLORGREEN; EXPLAIN((COUNT(C>REF(C,1),30)>18AND(COUNT(C>REF(C,1),3)=3))AND(COUNT("ROC.ROC">REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC">REF("ROC.ROC",1),3)=3)),'ROC变动速率指标显示短期反弹有望,属买入信号。'),COLORRED; EXPLAIN((COUNT(C<REF(C,1),30)>18AND(COUNT(C<REF(C,1),3)=3))AND(COUNT("ROC.ROC"<REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC"<REF("ROC.ROC",1),3)=3)),'ROC变动速率指标显示短期警惕回落,属卖出信号。'),COLORGREEN; EXPLAIN("VR"<20,'VR容量比率指标显示股价即将涨升,建议积极买入。'),COLORRED; EXPLAIN("VR">400,'VR容量比率指标显示后续资金枯竭,股价将可能高位下跌,属卖出信号。'),COLORGREEN; EXPLAIN((("VR"/REF("VR",1)>=2)OR("VR"/REF("VR",2)>=2))AND(COUNT(C<=REF(C,1),5)>=3),'VR容量比率指标异常,显示股价即将涨升,属买入信号。'),COLORRED; EXPLAIN("VR">300AND(COUNT("VR"<REF("VR",1),5)>=3)AND(COUNT(C>REF(C,1),5)>=3),'VR容量比率指标显示涨势耗尽,建议卖出。'),COLORGREEN; VV6:=(2*C+H+L)/4; VV7:=LLV(L,27); VV8:=HHV(H,27); 攀:=EMA((VV6-VV7)/(VV8-VV7)*100,13)-50; 金:=EMA(0.618*REF(攀,1)+0.382*攀,3); 起攀:=cross(攀,金) and c>o; EXPLAIN(cross(攀,金) and c>o,'起攀指标发出起攀买入信号。'),COLORRED; EXPLAIN(1=1,' 【均线系统分析】'),COLORYELLOW; MA5:=MA(C,5); MA10:=MA(C,10); MA30:=MA(C,30); MA60:=MA(C,60); MA125:=MA(C,125); MA250:=MA(C,250); EXPLAIN((MA5>MA10 and MA10>MA30 and MA5>MA30),'短期均线多头排列;'),COLORRED; EXPLAIN((MA5<MA10 and MA10<MA30 and MA5<MA30),'短期均线空头排列;'),COLORGREEN; EXPLAIN((MA30>MA60 and MA30>MA125 and MA60>MA125),'中期均线多头排列;'),COLORRED; EXPLAIN((MA30<MA60 and MA30<MA125 and MA60<MA125),'中期均线空头列排;'),COLORGREEN; EXPLAIN((MA60>MA125 and MA125>MA250 and MA60>MA250),'长期均线多头排列;'),COLORRED; EXPLAIN((MA60<MA125 and MA125<MA250 and MA60<MA250),'长期均线空头排列;'),COLORGREEN; EXPLAIN((CROSS(MA5,MA10)),'短期5日10日均线金叉;'),COLORRED; EXPLAIN((CROSS(MA10,MA5)),'短期5日10日均线死叉;'),COLORGREEN; EXPLAIN((CROSS(C,MA125)),'今日股价上穿半年线;'),COLORFF00FF; EXPLAIN((CROSS(MA125,C)),'今日股价跌破半年线;'),COLORGREEN; EXPLAIN((CROSS(C,MA250)),'今日股价上穿一年线;'),COLORFF00FF; EXPLAIN((CROSS(MA250,C)),'今日股价跌破一年线;'),COLORGREEN; EXPLAIN((CROSS(C,MA60) and CROSS(C,MA125) and CROSS(C,MA250)),'股价一阳穿三线;'),COLORRED; EXPLAIN((MA30>REF(MA30,1)),'30日均线趋势向上;'),COLORRED; EXPLAIN((MA30>REF(MA30,1) AND MA30<REF(MA30,1)*1.001),'30日均线趋势走平;'),COLORFFCC66; EXPLAIN((MA30<REF(MA30,1)),'30日均线趋势向下;'),COLORGREEN; EXPLAIN((MA5>REF(MA5,1)*1.015),'5日均线强劲向上;'),COLORRED; EXPLAIN((MA5>REF(MA5,1) AND MA5<REF(MA5,1)*1.005),'5日均线方向不明;'),COLORYELLOW; EXPLAIN((MA5<REF(MA5,1)*0.985),'5日均线快速向下;'),COLORGREEN; EXPLAIN(1=1,' 【形态分析】'),COLORYELLOW; 早晨之星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2); 黄昏之星:=REF(CLOSE,2)/REF(OPEN,2) > 1.03 AND REF(OPEN,1) > REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2); 长十字:=CLOSE=OPEN AND HIGH/LOW >1.03; 垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH; 早晨十字星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2); 黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2) > 1.05 AND REF(OPEN,1) > REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2); 射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5); 倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5); 锤头:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5); 吊颈:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5); 穿头破脚:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1)) OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1)); 乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1); 曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1); 身怀六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1)); 十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND CLOSE=OPEN AND CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE > MIN(REF(CLOSE,1),REF(OPEN,1)); 平顶:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001; 平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001); 大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018; 三个白武士:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1); 双飞乌鸦:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98; 孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100 AND REF(OPEN,1)>=REF(CLOSE,1) AND (REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100; 多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN; 出水芙蓉:=(OPEN<EMA(C,20) OR OPEN<EMA(C,40) OR OPEN<EMA(C,60)) AND (C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60)))) AND (V/MA(V,30)>1.2 AND C/REF(C,1)>1.049); 上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4); 下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,4); 跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1); 三只乌鸦:=REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1); 光脚阴线:=LOW=CLOSE AND HIGH<>LOW; 光头阳线:=HIGH=CLOSE AND HIGH<>LOW; 分离:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0; 长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667; 长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667; 十字星:=CLOSE=OPEN AND HIGH<>LOW; 大阴烛:=OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018; 好友反攻:=(REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002); 倾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O>REF(O,1) AND C<REF(O,1); EXPLAIN(倾盆大雨,'倾盆大雨,见顶信号;'),COLORCYAN; EXPLAIN(大阴烛,'大阴烛,后市向淡,发生逆转;'),COLORCYAN; EXPLAIN(好友反攻,'好友反攻,跌势已尽,要展开一段反弹行情;'),COLORRED; EXPLAIN(跳空缺口,'跳空缺口,突破长期盘整,向上跳空,上涨行情开始;向下跳空,下跌行情开始;'),COLORWHITE; EXPLAIN(光脚阴线,'光脚阴线,下跌信号;'),COLORCYAN; EXPLAIN(光头阳线,'光头阳线,多方积极上攻态势,后市看涨;'),COLORRED; EXPLAIN(三只乌鸦,'三只乌鸦站枝头,可能见顶回落;'),COLORCYAN; EXPLAIN(分离,'分离,注意看涨分离和看跌分离;'),COLORWHITE; EXPLAIN(长下影,'长下影,持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意;'),COLORRED; EXPLAIN(长上影,'长上影,表明行情上档压力沉重,升势受阻;'),COLORCYAN; EXPLAIN(下跌三部曲,'下跌三部曲,下跌信号;'),COLORRED; EXPLAIN(上升三部曲,'上升三部曲,上涨信号;'),COLORCYAN; EXPLAIN(早晨之星,'早晨之星,见底回升;'),COLORRED; EXPLAIN(黄昏之星,'黄昏之星,见顶回落;'),COLORCYAN; EXPLAIN(十字星,'十字星,重要的警告信号,原趋势停顿或反转;'),COLORWHITE; EXPLAIN(长十字,'长十字,重要的警告信号,原趋势停顿或反转;'),COLORWHITE; EXPLAIN(垂死十字,'垂死十字,下跌信号；'),COLORCYAN; EXPLAIN(早晨十字星,'早晨十字星,上涨信号,见底回升；'),COLORRED; EXPLAIN(黄昏十字星,'黄昏十字星,趋势停顿或反转,下跌信号,见顶回落;'),COLORCYAN; EXPLAIN(射击之星,'射击之星,出现在短期的上升趋势,表明市场顶部就在眼前,可能见顶回落,可靠性低;'),COLORCYAN; EXPLAIN(倒转锤头,'倒转锤头构成一个看涨信号,可能见底回升;'),COLORRED; EXPLAIN(锤头,'锤头,可能见底回升,如有量配合,信号强烈;'),COLORRED; EXPLAIN(吊颈,'吊颈,上升行情中见顶回落,顶部出现,见顶信号;'),COLORCYAN; EXPLAIN(平顶,'平顶,意味行情摸高见顶,股价行将反转。但反转下跌力度较小;'),COLORCYAN; EXPLAIN(穿头破脚,'穿头破脚,顶部出现,见顶回落信号;'),COLORCYAN; EXPLAIN(乌云盖顶,'乌云盖顶,见顶回落信号;'),COLORCYAN; EXPLAIN(曙光初现,'曙光初现,行情将演化为V型反转或止跌横盘趋势。后市见底回升;'),COLORRED; EXPLAIN(身怀六甲,'身怀六甲,出现在底部,是见底回升信号;出现在顶部,是见顶回落信号;'),COLORRED; EXPLAIN(十字胎,'十字胎;'),COLORRED; EXPLAIN(平底,'平底,行情探低见底,股价行将反转上升,但力度较小;'),COLORRED; EXPLAIN(大阳烛,'大阳烛,在上升行情中出现,则意味着行情剧烈地向上攀升。在下跌行情中出现,则意味着行情剧烈地向上反弹;'),COLORRED; EXPLAIN(三个白武士,'三个白武士,每日收盘价上移,表示可能见底回升;'),COLORRED; EXPLAIN(双飞乌鸦,'双飞乌鸦,行情开始疲软将见顶回落;'),COLORCYAN; EXPLAIN(孕育线,'孕育线,注意股价位置；'),COLORWHITE; EXPLAIN(多方炮,'多方炮,在底部出现有上涨可能,在中间出现有可能是上涨中继,顶部出现是复合见顶信号;'),COLORRED; EXPLAIN(出水芙蓉,'出水芙蓉,阳线穿过20、40、60日季均线,上攻势头初现;'),COLORRED; EXPLAIN(1=1,' 【资金面分析】'),COLORYELLOW; Var11:=ma((v/(h-l)),4); Var33:=abs(c-o);Var44:=v/(h-l); EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'资金无入场意愿,萎缩中;'),COLORGREEN; EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'场内资金运作行为;'),COLORFFCC66; EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空双方激烈争夺中;'),COLORFF00FF; EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'场外资金介入(或出局)意愿强烈;'),COLORRED; EXPLAINEX(1=1,'该股五日换手%=',sum(v/capital*100,5),2,0); EXPLAINEX(1=1,'十日换手%=',sum(v/capital*100,10),2,0); EXPLAINEX(1=1,'二十日换手%=',sum(v/capital*100,20),2,0); EXPLAINEX(1=1,'百日换手%=',sum(v/capital*100,100),2,0); EXPLAINEX(1=1,'获利盘比例=',WINNER(c)*100,2,0); EXPLAINEX(1=1,'套牢盘比例=',100-WINNER(c)*100,2,0); [ Last edited by 炒着玩 on 2005-4-5 at 11:08 ]股票论坛 www.55188.com |
|
|
