相關標簽:

?

股評input:N2(1,1,100),N1(8,2,100),N3(10,5,100),N(9,1,100),M1(3,1,100),M2(3,1,100);
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
MA125:=MA(C,125);
MA250:=MA(C,250);
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+'☆極端行情,在未來的幾日內有85%的機會變更方向。';
if t2>0 then var1000:=var1000+'☆中性行情,多空雙方都未能取得當日行情主動性的控制權';
if t3>0 then var1000:=var1000+'☆爬升行情,整個交易期間都有買方主導。';
if t4>0 then var1000:=var1000+'☆爬升行情,信息較少,但收盤期間是買方主導,其他未知。';
if t5>0 then var1000:=var1000+'☆爬升行情,買方把收盤價拉升到開盤價之上,賣方卻也主導一段行情,但不知道是誰主導最后的行情。';
if t6>0 then var1000:=var1000+'☆漂流行情,整個交易期間都有賣方主導。';
if t7>0 then var1000:=var1000+'☆漂流行情,信息最少,但收盤期間是賣方主導,其他未知。';
if t8>0 then var1000:=var1000+'☆漂流行情,賣方把收盤價壓至到開盤價之下,買方卻也主導一段行情,但不知道是誰主導最后的行情。';
if t9>0 then var1000:=var1000+'☆上漲趨勢。';
if t10>0 then var1000:=var1000+'☆下跌趨勢。';
if MA20>=MA60 AND CROSS(MA40,MA60) then var1000:=var1000+'☆形成季托，待股價回落到20天均線或40天均線時介入，20天均價為:'+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+'☆股價嚴重超跌，有爆發要求。';
if BIAS<-7 AND ALL(CLOSE<OPEN,5) then var1000:=var1000+'☆連收五陰，超跌有反彈要求。';
if ABS(HIGH-REF(HIGH,1))/HIGH<0.001 then var1000:=var1000+'☆平頂，-該高點有一定阻力。';
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+'☆平底，該低點有一定支撐。';
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+'☆ 大陰燭，今日空方有絕對優勢。';
if REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 then var1000:=var1000+'☆雙飛烏鴉，多頭力竭，行情走軟。';
if (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 then var1000:=var1000+'☆長下影，下檔支撐強或空方試探進攻。';
if (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 then var1000:=var1000+'☆長上影，上檔阻力大或多方試探進攻。';
if CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH then var1000:=var1000+'☆垂死十字，在頂部時重要 表強力多頭開始疲軟。';
if HIGH=CLOSE AND HIGH<>LOW then var1000:=var1000+'☆光頭陽線，今日尾盤多方氣盛，行情可能延續到明天。';
if (HIGH<REF(LOW,1) OR LOW>REF(HIGH,1)) then var1000:=var1000+'☆跳空缺口，當日未補，有與跳空同向進行，上漲欲望強烈，三日內為回補觀察期。';
if LOW=CLOSE AND HIGH<>LOW then var1000:=var1000+'☆赤腳陰線，尾盤空方勝。 注意股價下跌延續至次日。';
if CLOSE=OPEN AND HIGH<>close and low<>close and high <>close then var1000:=var1000+'☆十字星，警告信號。原趨勢停頓或反轉，依上下影線長度判后市。';
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+'☆早晨十字，如同晨星。 從看空平衡到看漲轉強；左右跳空曰棄嬰 。';
IF 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) 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,2) AND ref(c,2)>ref(o,1) AND ref(c,1)>o AND ref(c,1)<ref(o,1) AND ref(high,1)-ref(o,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+'☆三胎烏鴉，多頭走勢被扭轉。黑K價愈深量愈大，跳空愈大，反轉信號愈強。';
IF ((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)) THEN
var1000:=var1000+'☆友好反攻，陰(陽)線結合，極線多方跳低(高)后反彈有企穩跡象 。';
IF close<>open and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN
var1000:=var1000+'☆射擊之星，如伴大量上遇阻力，有短期見頂可能，股價轉疲。';
IF REF(CLOSE,1)-REF(OPEN,1)<0 AND CLOSE-OPEN>0 AND OPEN-REF(CLOSE,1)<0 AND CLOSE<REF(OPEN,1) AND CLOSE>REF(CLOSE,1) AND CLOSE>(REF(CLOSE,1)+REF(OPEN,1))/2 THEN
var1000:=var1000+'☆貫穿線，多頭力道的反撲或是空單回補力道。長黑之后開低收在前天1/2之上，為多頭反轉信號。';
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+'☆身懷六甲，陰(陽)懷陽(陰)，怪異的走勢，顯示該股行情可能轉向。 若量由大轉縮，下跌趨勢更明確。';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c>ref(o,1) AND o<ref(c,1)) THEN
var1000:=var1000+'☆多頭陽線吞噬，紅包黑。反轉趨勢需量能配合量。 ';
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 o<ref(o,1) AND c<ref(c,2) AND c>ref(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 c<ref(c,2) AND c>ref(o,2) AND o<ref(c,1))) THEN
var1000:=var1000+'☆夜星，從看多平衡到看空轉弱，轉空。 ';
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(

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?