N:=9;
M1:=3;
M2:=3;
MA5:MA(C,5),PRECIS2;
MA10:MA(C,10),PRECIS2;
MA20:=MA(C,20);
MA40:MA(C,40),PRECIS2;
MA60:MA(C,60),PRECIS2;
MA125:MA(C,125),PRECIS2;
MA250:MA(C,250),PRECIS2;
BIAS:=(C-MA20)/MA20*100;
SHOPEN:=OPEN;
SHHIGH:=HIGH;
SHLOW:=LOW;
SHCLOSE:=CLOSE;
SHAMOUNT:=AMOUNT;
SHVOL:=VOL;
J12:=(HIGH – ((HIGH – LOW) / 3));
J23:=(LOW + ((HIGH – LOW) / 3));
t1:=(((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1);
t2:=((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12));
t3:=((CLOSE >= J12) AND (OPEN <= J23));
t4:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12));
t5:=(((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t6:=((CLOSE <= J23) AND (OPEN >= J12));
t7:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23));
t8:=(((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t9:=(((SHAMOUNT / SHVOL) / 100) > REF(HIGH,1));
t10:=(((SHAMOUNT / SHVOL) / 100) < REF(LOW,1));
if DISPSTATUS=2 then begin;
var1000:=’.’;
if t1>0 then var1000:=var1000+’☆極端行情,在未來的幾日內(nèi)有85%的機(jī)會(huì)變更方向。’;
if t2>0 then var1000:=var1000+’☆中性行情,多空雙方都未能取得當(dāng)日行情主動(dòng)性的控制權(quán)’;
if t3>0 then var1000:=var1000+’☆爬升行情,整個(gè)交易期間都有買方主導(dǎo)。’;
if t4>0 then var1000:=var1000+’☆爬升行情,信息較少,但收盤期間是買方主導(dǎo),其他未知。’;
if t5>0 then var1000:=var1000+’☆爬升行情,買方把收盤價(jià)拉升到開盤價(jià)之上,賣方卻也主導(dǎo)一段行情,但不知道是誰主導(dǎo)最后的行情。’;
if t6>0 then var1000:=var1000+’☆漂流行情,整個(gè)交易期間都有賣方主導(dǎo)。’;
if t7>0 then var1000:=var1000+’☆漂流行情,信息最少,但收盤期間是賣方主導(dǎo),其他未知。’;
if t8>0 then var1000:=var1000+’☆漂流行情,賣方把收盤價(jià)壓至到開盤價(jià)之下,買方卻也主導(dǎo)一段行情,但不知道是誰主導(dǎo)最后的行情。’;
if t9>0 then var1000:=var1000+’☆上漲趨勢。’;
if t10>0 then var1000:=var1000+’☆下跌趨勢。’;
if MA20>=MA60 AND CROSS(MA40,MA60) then var1000:=var1000+’☆形成季托，待股價(jià)回落到20天均線或40天均線時(shí)介入，20天均價(jià)為:’+MA20+’ 。’;
if BIAS>9.5 AND (C-REF(C,1))/REF(C,1)*100<9.8 then var1000:=var1000+'☆短線漲幅過大，有整理要求。';
if MA20>=MA60 AND H>=MA20 AND L<=MIN(MA40,MA60) AND C>O AND C>REF(C,1) then var1000:=var1000+’☆芙蓉出水，趨勢向好。’;
if BIAS<-18 AND (C-REF(C,1))/REF(C,1)*100>-9.8 then var1000:=var1000+’☆股價(jià)嚴(yán)重超跌，有爆發(fā)要求。’;
if BIAS<-7 AND ALL(CLOSE if ABS(HIGH-REF(HIGH,1))/HIGH<0.001 then var1000:=var1000+'☆平頂，-該高點(diǎn)有一定阻力。';
if ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.00 then var1000:=var1000+'☆平底，該低點(diǎn)有一定支撐。';
if CLOSE=OPEN AND HIGH<>close and low<>close and HIGH/LOW > 1.03 then var1000:=var1000+’☆ 長十字，多空激爭 前途未明。’;
if OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 then var1000:=var1000+'☆ 大陰燭，今日空方有絕對(duì)優(yōu)勢。';
if REF(CLOSE,1) if (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 then var1000:=var1000+’☆長下影，下檔支撐強(qiáng)或空方試探進(jìn)攻。’;
if (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 then var1000:=var1000+’☆長上影，上檔阻力大或多方試探進(jìn)攻。’;
if CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH then var1000:=var1000+’☆垂死十字，在頂部時(shí)重要 表強(qiáng)力多頭開始疲軟。’;
if HIGH=CLOSE AND HIGH<>LOW then var1000:=var1000+’☆光頭陽線，今日尾盤多方氣盛，行情可能延續(xù)到明天。’;
if (HIGHREF(HIGH,1)) then var1000:=var1000+’☆跳空缺口，當(dāng)日未補(bǔ)，有與跳空同向進(jìn)行，上漲欲望強(qiáng)烈，三日內(nèi)為回補(bǔ)觀察期。’;
if LOW=CLOSE AND HIGH<>LOW then var1000:=var1000+’☆赤腳陰線，尾盤空方勝。 注意股價(jià)下跌延續(xù)至次日。’;
if CLOSE=OPEN AND HIGH<>close and low<>close and high <>close then var1000:=var1000+’☆十字星，警告信號(hào)。原趨勢停頓或反轉(zhuǎn)，依上下影線長度判后市。’;
if CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 then var1000:=var1000+'☆大陽燭，上升行情中意味行情劇烈向上攀升；下跌行情中意味行情劇烈向上反彈。';
IF 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) THEN
var1000:=var1000+’☆早晨十字，如同晨星。 從看空平衡到看漲轉(zhuǎn)強(qiáng)；左右跳空曰棄嬰 。’;
IF REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)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) THEN var1000:=var1000+’☆上升三部曲，空方賣壓被吸納。 趨勢易順勢走漲。’;
IF (ref(high,2) -ref(o,2))/ref(high,2)<=0.0003 AND (c-low)/o<=0.0003 AND ref(c,2)ref(o,1) AND ref(c,1)>o AND ref(c,1)0 AND ref(low,1)-ref(c,1)<0 AND high-o>0 AND ref(c,2)-ref(low,2)>0 THEN var1000:=var1000+’☆三胎烏鴉，多頭走勢被扭轉(zhuǎn)。黑K價(jià)愈深量愈大，跳空愈大，反轉(zhuǎn)信號(hào)愈強(qiáng)。’;
IF ((REF(CLOSE,1)OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE var1000:=var1000+’☆友好反攻，陰(陽)線結(jié)合，極線多方跳低(高)后反彈有企穩(wěn)跡象 。’;
IF close<>open and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN
var1000:=var1000+’☆射擊之星，如伴大量上遇阻力，有短期見頂可能，股價(jià)轉(zhuǎn)疲。’;
IF REF(CLOSE,1)-REF(OPEN,1)<0 AND CLOSE-OPEN>0 AND OPEN-REF(CLOSE,1)<0 AND CLOSEREF(CLOSE,1) AND CLOSE>(REF(CLOSE,1)+REF(OPEN,1))/2 THEN
var1000:=var1000+’☆貫穿線，多頭力道的反撲或是空單回補(bǔ)力道。長黑之后開低收在前天1/2之上，為多頭反轉(zhuǎn)信號(hào)。’;
IF 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)) THEN
var1000:=var1000+’☆身懷六甲，陰(陽)懷陽(陰)，怪異的走勢，顯示該股行情可能轉(zhuǎn)向。 若量由大轉(zhuǎn)縮，下跌趨勢更明確。’;
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c>ref(o,1) AND o var1000:=var1000+’☆多頭陽線吞噬，紅包黑。反轉(zhuǎn)趨勢需量能配合量。 ‘;
IF ((ref(c,2)-ref(o,2)>0 AND (ABS(ref(c,2)-ref(o,2)))/(ABS(ref(c,3)-ref(o,3)))>2.4 AND ABS(c-o)>3 AND ABS(ref(c,2)-ref(o,2))>(ABS(ref(c,1)-ref(o,1))) AND ref(c,1)-ref(o,1)>0 AND c-o<0 AND ref(o,1) >ref(c,2) AND oref(o,2)) OR (ref(c,2)-ref(o,2)>0 AND (ABS(ref(c,2)-ref(o,2)))/(ABS(ref(c,3)-ref(o,3)))>2.4 AND ABS(c-o)>3 AND (ABS(ref(c,2)-ref(o,2)))>(ABS(ref(c,1)-ref(o,1))) AND ref(c,1)-ref(o,1)<0 AND c-o<0 AND ref(c,1) >ref(c,2) AND cref(o,2) AND o var1000:=var1000+’☆夜星，從看多平衡到看空轉(zhuǎn)弱，轉(zhuǎn)空。 ‘;
IF 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)) THEN
var1000:=var1000+’☆十字胎，似身懷六甲，轉(zhuǎn)向可能性更大，量縮觀望為宜 。’;
IF ref(c,1)0 AND c>ref(H,1) AND oref(max(O,C),2) and ref(C,1)>ref(min(O,C),2) and ref(max(O,C),2)>ref(max(O,C),3) THEN
var1000:=var1000+’☆ 雙人殉情 ，在上升趨勢中最后之空頭吞噬，也就是所謂的不見長紅不回頭。 ‘;
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND cref(c,1)) THEN
var1000:=var1000+’☆陰線吞噬，黑包紅，向空反轉(zhuǎn)。 ‘;
IF REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPENREF(CLOSE,1) THEN var1000:=var1000+’☆曙光，與烏云蓋頂相反，行情將演化為V型反轉(zhuǎn)或止跌橫盤趨勢 。’;
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND cref(c,1)) THEN
var1000:=var1000+’☆多頭孕育線，陰育陽。多頭反轉(zhuǎn)可能。’;
IF (ref(c,1)-ref(o,1)>0 AND (ABS(ref(c,1)-ref(o,1)))/(ABS(ref(c,2)-ref(o,2)))>2.4 AND c-o<0 AND c>ref(o,1) AND ref(c,1)-o>2) THEN
var1000:=var1000+’☆空頭孕育線，陽育陰?？纯?。’;
IF (ref(c,1)-ref(o,1)<0 AND c-o<0 AND c>ref(c,1) AND o var1000:=var1000+’☆空頭孕育線，陰育陰。看空。’;
IF REF(CLOSE,2) var1000:=var1000+’☆三只烏鴉，強(qiáng)烈轉(zhuǎn)空趨勢。三黑K價(jià)越深量越大越易下跌。’;
IF 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(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND CLOSE var1000:=var1000+’☆下跌三部曲，多方弱勢不堪一擊，趨勢易順勢走跌。’;
IF REF(CLOSE,4)/REF(OPEN,4)>1.02 AND REF(CLOSE,3)=REF(open,4) AND REF(high,1)REF(open,4) AND CLOSE/OPEN>1.01 AND open>=REF(open,1) AND CLOSE>=REF(HIGH,3) THEN
var1000:=var1000+’☆連續(xù)型態(tài)之執(zhí)墊，比上升三法更具多頭意義。’;
IF ref(O,1)/ref(C,1) > 1.05 AND ref(H,1)/ref(L,1) < ref(O,1)/ref(C,1)+0.018 and C>O and O var1000:=var1000+’☆頸上線，下降趨勢。若第二天大量，維持原趨勢可能星大增。’;
IF (ref(c,1)-ref(o,1)>0 AND (ABS(ref(c,1)-ref(o,1)))/(ABS(ref(c,2)-ref(o,2)))>2.5 AND c-o<0 AND c>ref(o,1) AND c<(REF(CLOSE,1)+REF(OPEN,1))/2 AND o>ref(c,1)) THEN
var1000:=var1000+’☆烏云罩頂，上漲遇重大阻力?？疹^聚力。’;
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND cref(c,1)) THEN
var1000:=var1000+’☆最后吞噬，在下降趨勢中為一黑一紅組合；多頭吞噬，在上升趨勢中為一紅一黑組合，空頭吞噬。’;
IF ref(open,1)<>ref(close,1) and 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) THEN
var1000:=var1000+’☆晨星，多方勢盛 變盤信號(hào)’;
IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) THEN var1000:=var1000+'☆ 倒轉(zhuǎn)槌頭 -高位拋壓 低位多空爭執(zhí)';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) THEN var1000:=var1000+'☆槌頭，下影線有多頭意義。在下降趨勢之后看漲。注意反彈賣壓 。';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) THEN var1000:=var1000+’☆吊頸線，高檔看跌。’;
IF ((REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSEREF(CLOSE,1)) OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN var1000:=var1000+’☆ 穿頭破腳 -若第一根K為陰(陽) 表強(qiáng)勁上漲(下跌)力量。’;
IF ref(open,1)<>ref(close,1) and 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 var1000:=var1000+’☆黃昏之星，空方勢盛。反轉(zhuǎn)信號(hào)，跳空成棄嬰。’;
IF 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 THEN var1000:=var1000+'☆二陽夾一陰，必須從后續(xù)的走勢來研判。';
IF OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0 THEN
var1000:=var1000+’☆ 分離 -兩日開盤相同 一陰一陽 變盤前徹底整理。’;
IF ((O>C and open>MA(C,5) and Open>MA(C,10) and O>MA(C,20) and CloseMA(C,5) and Close>MA(C,10) and Close>MA(C,20))) THEN var1000:=var1000+’☆斷頭鍘刀(出水芙蓉) -一根大陰(陽)線切斷了三根均線 如果改變了其后均線的排列為空頭(多頭)排列 后勢看空(多) 。’;
end;
TIPTEXT(DISPSTATUS=2,0,var1000);
{可調(diào)節(jié)KDJ：壓力支撐線參數(shù) n=1 100 9,m1=1 100 3,m2=1 100 3}
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
壓力位:IF(CROSS(j24,j),H,REF(H,BARSLAST(CROSS(j24,j)))),PRECIS2,coloryellow,LINETHICK1,pointdot;
支撐位:IF(CROSS(j,j24),L,REF(L,BARSLAST(CROSS(j,j24)))),PRECIS2,COLOR77AAFF,LINETHICK1,pointdot;