|
對老師們提供的源碼進(jìn)行了一下校正，測試可用，但不知道是否和老師們想表達(dá)的一致。僅供參考，謹(jǐn)慎使用。不對的地方，還請老師們糾正。 [淘股吧] ----------------------源碼-------------------------------- N:=10; M:=9; X1:=DRAWLINE(HIGH=HHV(HIGH,N),HIGH,LOW=LLV(LOW,M),LOW,0); X2:=DRAWLINE(LOW=LLV(LOW,M),LOW,HIGH=HHV(HIGH,N),HIGH,0); YDD1:=LOW=LLV(LOW,M) AND X1=X2; DDTS:=BARSLAST(YDD1); YGD1:=HIGH=HHV(HIGH,N) AND X1=X2; GDTS:=BARSLAST(YGD1); QDDD:=LOW=LLV(LOW,M) AND LOW=LLV(LOW,GDTS) AND GDTS＞1; QDGD:=HIGH=HHV(HIGH,N) AND HIGH=HHV(HIGH,DDTS) AND DDTS＞1; X3:=DRAWLINE(QDGD,HIGH,QDDD,LOW,0),COLORLIGRAY,LINETHICK3; X4:=DRAWLINE(QDDD,LOW,QDGD,HIGH,0),COLORLIGRAY,LINETHICK3; YGD:=HIGH=HHV(HIGH,N) AND X3=X4; YDD:=LOW=LLV(LOW,M) AND X3=X4; {DRAW ICON (YGD,H,23);} {根據(jù)相鄰階段高點之間的漲跌差值確定目標(biāo)高點：大于前高５或小于前高５個點取高點} M1:=5; M2:=3;{漲跌差值}; 預(yù)前高值:=IF(YGD=1,REF(H,REF(BARSLAST(YGD),1)+1),REF(H,BARSLAST(YGD))),NODRAW;{返回上次高點的值} 預(yù)下高TS:=REFX(BARSNEXT(YGD),1)+1; 預(yù)下高值:=REFX(H,REFX(BARSNEXT(YGD),1)+1); 下預(yù)下高TS:=REFX(預(yù)下高TS,預(yù)下高TS)=DRAWNULL; XH0:=(YGD AND H＞預(yù)前高值 AND (H-預(yù)前高值)/預(yù)前高值*100＞=M1 AND 預(yù)下高TS=DRAWNULL); XH1:=(YGD AND H＞預(yù)前高值 AND 預(yù)下高值＞0 AND 下預(yù)下高TS=1)OR(YGD AND H＞0 AND 下預(yù)下高TS=1); XH2:=(YGD AND H＞預(yù)前高值 AND H＞預(yù)下高值); XH3:=(YGD AND H＞預(yù)前高值 AND H=M1); XH4:=YGD AND H＞預(yù)下高值 AND (1-H/預(yù)前高值)*100 =M2; XH5:=YGD AND H=M2{ AND(預(yù)下高值-H)/H*100 =M1}; GD:=XH0 OR XH1 OR XH2 OR XH3 OR XH4 OR XH5; {本次高點,高點值,本次高點周期內(nèi)到最后交易日天數(shù)} BCGDTS:=BARSLAST(GD);{返回本次高點到當(dāng)前天數(shù)} BCGDDZHTS:=IF(GD,CURRBARSCOUNT,0);{本次高點到最后交易日天數(shù)} 高點值:=IF(BCGDTS,REF(H,BCGDTS),H);{本次高點值} TS:=IF(BCGDTS,REF(BCGDDZHTS,BCGDTS),BCGDDZHTS);{本次高點周期內(nèi)到最后交易日天數(shù)等于本次高點到最后交易日天數(shù)} GDCL:=CONST(TS);{取本次高點到最后交易日天數(shù)的最后一個值為常量} {類推上一次高點,高點值,本次高點周期內(nèi)到最后交易日天數(shù)} 高點值1:=REF(高點值,BCGDTS+1);{上一高點值} TS1:=REF(TS,BCGDTS+1);{上一高點期間到最后交易日的天數(shù)} GDCL1:=CONST(TS1); {類推上上一次高點,高點值,本次高點周期內(nèi)到最后交易日天數(shù)} 高點值2:=REF(高點值1,BCGDTS+1);{上上一高點值} TS2:=REF(TS1,BCGDTS+1);{上一高點期間到最后交易日的天數(shù)} GDCL2:=CONST(TS2); {類推上N高點,高點值,本次高點周期內(nèi)到最后交易日天數(shù)} 高點值3:=REF(高點值2,BCGDTS+1); TS3:=REF(TS2,BCGDTS+1); GDCL3:=CONST(TS3); 高點值4:=REF(高點值3,BCGDTS+1); TS4:=REF(TS3,BCGDTS+1); GDCL4:=CONST(TS4); 高點值5:=REF(高點值4,BCGDTS+1); TS5:=REF(TS4,BCGDTS+1); GDCL5:=CONST(TS5); 高點值6:=REF(高點值5,BCGDTS+1); TS6:=REF(TS5,BCGDTS+1); GDCL6:=CONST(TS6); 高點值7:=REF(高點值6,BCGDTS+1); TS7:=REF(TS6,BCGDTS+1); GDCL7:=CONST(TS7); 高點值8:=REF(高點值7,BCGDTS+1); TS8:=REF(TS7,BCGDTS+1); GDCL8:=CONST(TS8); 壓力:DRAWLINE(CURRBARSCOUNT=GDCL,H,ISLASTBAR,REF(H,GDCL-1),1),COLORGREEN,LINETHICK2; 壓力1:DRAWLINE(CURRBARSCOUNT=GDCL1,H,ISLASTBAR,REF(H,GDCL1-1),1),COLORMAGENTA,LINETHICK2; 壓力2:DRAWLINE(CURRBARSCOUNT=GDCL2,H,ISLASTBAR,REF(H,GDCL2-1),1),COLORYELLOW,LINETHICK2; 壓力3:DRAWLINE(CURRBARSCOUNT=GDCL3,H,ISLASTBAR,REF(H,GDCL3-1),1),COLORWHITE,LINETHICK2; {壓力4:DRAWLINE(CURRBARSCOUNT=GDCL4,H,ISLASTBAR,REF(H,GDCL4-1),1),COLORBROWN,LINETHICK2; 壓力5:DRAWLINE(CURRBARSCOUNT=GDCL5,H,ISLASTBAR,REF(H,GDCL5-1),1),COLORGRAY,LINETHICK2; 壓力6:DRAWLINE(CURRBARSCOUNT=GDCL6,H,ISLASTBAR,REF(H,GDCL6-1),1),COLORBROWN,LINETHICK2; 壓力7:DRAWLINE(CURRBARSCOUNT=GDCL7,H,ISLASTBAR,REF(H,GDCL7-1),1),COLORYELLOW,LINETHICK2; 壓力8:DRAWLINE(CURRBARSCOUNT=GDCL8,H,ISLASTBAR,REF(H,GDCL8-1),1),COLORYELLOW,LINETHICK2;}; |
|
|
