打印本文
關閉窗口
?
?來源: www.weiqiv.net.cn
金字塔資深技術： 這么復雜，看著就眼花天道酬勤 發表于 2021-10-31 07:44
這么復雜，看著就眼花
?
開始:OPEN;VAR2:=EMA(CLOSE,120);VAR3:=(CLOSE-VAR2)*2/(120+1)+VAR2; 生命線:=VAR3,LINETHICK2,COLORRED; XCLOSE2:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3); //PARTLINE1((生命線>=XCLOSE2),生命線),LINETHICK2,COLORGREEN; //PARTLINE1((生命線<XCLOSE2),生命線),LINETHICK2,COLORRED; MA3:=MA(C,170); HH1:=IFELSE(H<REF(H,1) AND REF(H,1)<REF(H,2),REF(H,2),0); LL1:=IFELSE(L>REF(L,1) AND REF(L,1)>REF(L,2),REF(L,2),0); HH2:=VALUEWHEN(HH1>0,HH1); LL2:=VALUEWHEN(LL1>0,LL1); HH:=HHV(HIGH,1)/10+HHV(HIGH,2)/10+HHV(HIGH,2)/10+HHV(HIGH,4)/10+HHV(HIGH,4)/10+HHV(HIGH,8)/10+HHV(HIGH,8)/10+HHV(HIGH,13)/10+HHV(HIGH,40)/10+HHV(HIGH,20)/10; LL:=LLV(LOW,1)/10+LLV(LOW,2)/10+LLV(LOW,2)/10+LLV(LOW,4)/10+LLV(LOW,4)/10+LLV(LOW,8)/10+LLV(LOW,8)/10+LLV(LOW,13)/10+LLV(LOW,40)/10+LLV(LOW,20)/10; H1:=IFELSE(HH<REF(HH,1) AND LL<REF(LL,1) AND REF(OPEN,1)>CLOSE AND OPEN>CLOSE AND (HHV(OPEN,0)-CLOSE)>0,REF(HH,2),0); L1:=IFELSE(LL>REF(LL,1) AND HH>REF(HH,1) AND REF(OPEN,1)<CLOSE AND OPEN<CLOSE AND (CLOSE-LLV(OPEN,0))>0,REF(LL,2),0); X:=DATE; X0:=H1,LINETHICK2; X00:=L1; XXX0:=O,LINETHICK2; XXX00:=C; XXX000:=H; XXX0000:=L; H2:=VALUEWHEN(X0>0,X0),LINETHICK2; L2:=VALUEWHEN(X00>0,X00),LINETHICK2; K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0)); K2:=VALUEWHEN(K1<>0,K1); G:=IFELSE(K2=1,H2,L2); G1:=VALUEWHEN(ISLASTBAR,G); DRAWNUMBER(L>0,G1,G1,0,COLORCYAN); X000:=K2,LINETHICK2; TMP:=K2,LINETHICK2; W1:=X000,LINETHICK2; X0000:=OPEN-CLOSE,LINETHICK2; W2:=X0000,LINETHICK2; HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE),LINETHICK2; LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE),LINETHICK2; DRAWLINE(W1=1,XXX000,W1=1,HT,COLORCYAN);//青色上影線 DRAWLINE(W1=1,XXX0000,W1=1,LT,COLORCYAN);//青色下影線 DRAWLINE(W1=-3,XXX000,W1=-3,HT,COLORRED);//紅色上影線 DRAWLINE(W1=-3,XXX0000,W1=-3,LT,COLORRED);//紅色下影線 STICKLINE(W1>0,XXX0,XXX00,COLORCYAN,1);//青色空心K線 STICKLINE(W1<=0,XXX0,XXX00,COLORRED,1);//紅色空心K線 STICKLINE(W2>0 AND W1<=0,XXX0,XXX00,COLORRED,0);//紅色實心K線 STICKLINE(W2>0 AND W1>0,XXX0,XXX00,COLORCYAN,0);//青色實心K線 DRAWLINE(TMP=1 AND REF(TMP,1)=1,G,TMP=1 AND REF(TMP,1)=1,REF(G,1),COLORCYAN),DOT;//青色折豎線 DRAWLINE(TMP=-3 AND REF(TMP,1)=-3,G,TMP=-3 AND REF(TMP,1)=-3,REF(G,1),COLORRED),DOT;//紅色折豎線 DRAWSL(K2=1,G,0,1,0,COLORCYAN),DOT;//青色折橫線 DRAWSL(K2=-3,G,0,1,0,COLORRED),DOT;//紅色折橫線 DRAWTEXT(CROSS(TMP,0),HH,'空',COLORGREEN); DRAWTEXT(CROSS(0,TMP),LL,'多'); N3:=BARSLAST(CROSS(W1>0,0.5)),LINETHICK2; N4:=BARSLAST(CROSS(W1<=0,0.5)),LINETHICK2; HH3:=IF(W1<=0,REF(HHV(H,N4),N3+1),NULL),COLORYELLOW; LL3:=IF(W1>0,REF(LLV(L,N3),N4+1),NULL),COLORGREEN; B:=CROSS(C,HH3) AND C>HH3; S:=CROSS(LL3,C) AND C<LL3; LC:= REF(CLOSE,1),LINETHICK2; RSI:=SMA(MAX(CLOSE-LC, 0), 6, 1)/SMA(ABS(CLOSE-LC), 6, 1)*100,LINETHICK2; SPEAK(CROSS(TMP,0)=1 ,'A' ); SPEAK(CROSS(0,TMP)=1 ,'B' ); DRAWSL(ISLASTBAR,HHV(H,60),0,-59,0,COLORYELLOW); DRAWSL(ISLASTBAR,LLV(L,60),0,-59,0,COLORYELLOW); DRAWSL(ISLASTBAR,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,0,-59,0,COLORYELLOW); DRAWSL(ISLASTBAR,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,0,-59,0,COLORYELLOW); DRAWNUMBER(ISLASTBAR,HHV(H,60),HHV(H,60),0,COLORYELLOW); DRAWNUMBER(ISLASTBAR,LLV(L,60),LLV(L,60),0,COLORYELLOW); DRAWNUMBER(ISLASTBAR,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,HHV(H,60)-(HHV(H,60)-LLV(L,60))*0.168,0,COLORYELLOW); DRAWNUMBER(ISLASTBAR,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,LLV(L,60)+(HHV(H,60)-LLV(L,60))*0.168,0,COLORYELLOW);