相關標簽:

?

?

源碼：
MA6賦值:收盤價的6日簡單移動平均 MA18賦值:收盤價的18日簡單移動平均 輸出空:(3)*(MA18) - (2)*(MA6),線寬為3,畫青色 輸出多:(3)*(MA6) - (2)*(MA18),線寬為3,COLOR0000C0 輸出超買:收盤價的10日簡單移動平均*如果當前流通股本(手)=0,返回1.04,否則返回1.1,DOTLINE,畫綠色,線寬為1 輸出超賣:收盤價的10日簡單移動平均*如果當前流通股本(手)=0,返回0.95,否則返回0.9,DOTLINE,畫黃色,線寬為1 輸出【生命線】:成交量(手)*(開盤價+收盤價)/2的88日累和/成交量(手)的88日累和,COLOR0000FF,線寬為1 輸出【持股線】:2日內收盤價的18日簡單移動平均的最高值,畫黃色 輸出【分離線】:如果收盤價的18日簡單移動平均<【持股線】,返回(收盤價的18日簡單移動平均-(【持股線】-收盤價的18日簡單移動平均)),否則返回【持股線】,畫青色,線寬為1 輸出MA18:收盤價的18日簡單移動平均,線寬為1,畫白色 輸出角度:(MA18/1日前的MA18-1)*100的反正切*180/3.14159,線寬為0 一賦值:獲利盤為10%的成本分布/獲利盤為1%的成本分布 二賦值:獲利盤為20%的成本分布/獲利盤為10%的成本分布 三賦值:獲利盤為30%的成本分布/獲利盤為20%的成本分布 四賦值:獲利盤為40%的成本分布/獲利盤為30%的成本分布 五賦值:獲利盤為50%的成本分布/獲利盤為40%的成本分布 密賦值:一<二 AND 一<三 AND 一<四 AND 一<五 密二賦值:二<三 AND 二<四 AND 二<五 密三賦值:三<二 AND 三<四 AND 三<五 密四賦值:四<二 AND 四<三 AND 四<五 密五賦值:五<二 AND 五<三 AND 五<四 當滿足條件收盤價>=開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為9,1不為0則畫空心柱.,畫紅色 當滿足條件收盤價>=開盤價時,在最低價和開盤價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,畫紅色 當滿足條件收盤價>=開盤價時,在收盤價和最高價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,畫紅色 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為9,0不為0則畫空心柱.,COLORFFFF00 當滿足條件收陰線時,在最高價和最低價位置之間畫柱狀線,寬度為0.1,0不為0則畫空心柱.,COLORFFFF00 輸出X11:POLYLINE(密二>0,獲利盤為11%的成本分布),COLOR008800 輸出X21:POLYLINE(密二>0,獲利盤為12%的成本分布),COLOR008800 輸出X31:POLYLINE(密二>0,獲利盤為13%的成本分布),COLOR008800 輸出X41:POLYLINE(密二>0,獲利盤為14%的成本分布),COLOR008800 輸出X51:POLYLINE(密二>0,獲利盤為15%的成本分布),COLOR008800 輸出X61:POLYLINE(密二>0,獲利盤為16%的成本分布),COLOR008800 輸出X71:POLYLINE(密二>0,獲利盤為17%的成本分布),COLOR008800 輸出X81:POLYLINE(密二>0,獲利盤為18%的成本分布),COLOR008800 輸出X91:POLYLINE(密二>0,獲利盤為19%的成本分布),COLOR008800 輸出X12:POLYLINE(密三>0,獲利盤為21%的成本分布),COLORFF9933 輸出X22:POLYLINE(密三>0,獲利盤為22%的成本分布),COLORFF9933 輸出X32:POLYLINE(密三>0,獲利盤為23%的成本分布),COLORFF9933 輸出X42:POLYLINE(密三>0,獲利盤為24%的成本分布),COLORFF9933 輸出X52:POLYLINE(密三>0,獲利盤為25%的成本分布),COLORFF9933 輸出X62:POLYLINE(密三>0,獲利盤為26%的成本分布),COLORFF9933 輸出X72:POLYLINE(密三>0,獲利盤為27%的成本分布),COLORFF9933 輸出X82:POLYLINE(密三>0,獲利盤為28%的成本分布),COLORFF9933 輸出X92:POLYLINE(密三>0,獲利盤為29%的成本分布),COLORFF9933 輸出X13:POLYLINE(密四>0,獲利盤為31%的成本分布),COLOR008800 輸出X23:POLYLINE(密四>0,獲利盤為32%的成本分布),COLOR008800 輸出X33:POLYLINE(密四>0,獲利盤為33%的成本分布),COLOR008800 輸出X43:POLYLINE(密四>0,獲利盤為34%的成本分布),COLOR008800 輸出X53:POLYLINE(密四>0,獲利盤為35%的成本分布),COLOR008800 輸出X63:POLYLINE(密四>0,獲利盤為36%的成本分布),COLOR008800 輸出X73:POLYLINE(密四>0,獲利盤為37%的成本分布),COLOR008800 輸出X83:POLYLINE(密四>0,獲利盤為38%的成本分布),COLOR008800 輸出X93:POLYLINE(密四>0,獲利盤為39%的成本分布),COLOR008800 輸出X14:POLYLINE(密五>0,獲利盤為41%的成本分布),COLOR33CC00 輸出X24:POLYLINE(密五>0,獲利盤為42%的成本分布),COLOR33CC00 輸出X34:POLYLINE(密五>0,獲利盤為43%的成本分布),COLOR33CC00 輸出X44:POLYLINE(密五>0,獲利盤為44%的成本分布),COLOR33CC00 輸出X54:POLYLINE(密五>0,獲利盤為45%的成本分布),COLOR33CC00 輸出X64:POLYLINE(密五>0,獲利盤為46%的成本分布),COLOR33CC00 輸出X74:POLYLINE(密五>0,獲利盤為47%的成本分布),COLOR33CC00 輸出X84:POLYLINE(密五>0,獲利盤為48%的成本分布),COLOR33CC00 輸出X94:POLYLINE(密五>0,獲利盤為49%的成本分布),COLOR33CC00 當滿足條件密>0ANDC<獲利盤為50%的成本分布時,在獲利盤為10%的成本分布和獲利盤為2%的成本分布位置之間畫柱狀線,寬度為2,1不為0則畫空心柱.,畫綠色 當滿足條件密二>0ANDC<獲利盤為50%的成本分布時,在獲利盤為10%的成本分布和獲利盤為20%的成本分布位置之間畫柱狀線,寬度為0.8,1不為0則畫空心柱.,畫黃色 當滿足條件密二>0ANDC<獲利盤為50%的成本分布時,在獲利盤為20%的成本分布/1.0017和獲利盤為20%的成本分布位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,畫黃色 當滿足條件密三>0ANDC<獲利盤為50%的成本分布時,在獲利盤為20%的成本分布和獲利盤為30%的成本分布位置之間畫柱狀線,寬度為1,1不為0則畫空心柱.,畫黃色 當滿足條件密三>0ANDC<獲利盤為50%的成本分布時,在獲利盤為30%的成本分布/1.0017和獲利盤為30%的成本分布位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,畫黃色 當滿足條件密四>0ANDC<獲利盤為50%的成本分布時,在獲利盤為30%的成本分布和獲利盤為40%的成本分布位置之間畫柱狀線,寬度為0.8,1不為0則畫空心柱.,畫黃色 當滿足條件密四>0ANDC<獲利盤為50%的成本分布時,在獲利盤為40%的成本分布/1.0017和獲利盤為40%的成本分布位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,畫黃色 當滿足條件密五>0ANDC<獲利盤為50%的成本分布時,在獲利盤為40%的成本分布和獲利盤為50%的成本分布位置之間畫柱狀線,寬度為1,1不為0則畫空心柱.,畫黃色 當滿足條件密五>0ANDC<獲利盤為50%的成本分布時,在獲利盤為50%的成本分布/1.0017和獲利盤為50%的成本分布位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,畫黃色 AA賦值:如果收盤價>=3日前的收盤價,返回1,否則返回0 BB賦值:如果收盤價>=5日前的收盤價,返回1,否則返回0 CC賦值:如果收盤價>=7日前的收盤價,返回1,否則返回0 DD賦值:如果收盤價>=8日前的收盤價,返回1,否則返回0 EE賦值:如果收盤價>=13日前的收盤價,返回1,否則返回0 FF賦值:如果收盤價>=21日前的收盤價,返回1,否則返回0 GZ2賦值:AA+BB+CC+DD+EE+FF KK賦值:0 4DOKK賦值:KK+I日前的GZ2 KKK賦值:KK/4 當滿足條件KKK=0ANDGZ2>0ANDC>1日前的收盤價時,在最低價*0.994位置書寫文字,畫黃色,線寬為3 當滿足條件KKK=6ANDGZ2<6時,在最高價*1.025位置書寫文字,畫白色,ALIGN2,線寬為3 A賦值:成交量(手)累加至當前流通股本(手)*1的天數 A1賦值:獲利盤為10%的成本分布的A日累和/A A2賦值:獲利盤為20%的成本分布的A日累和/A A3賦值:獲利盤為30%的成本分布的A日累和/A A4賦值:獲利盤為40%的成本分布的A日累和/A A5賦值:獲利盤為50%的成本分布的A日累和/A 輸出莊家成本線:(5*A1+4*A2+3*A3+2*A4+A5)/15,COLOR98FF00,線寬為1 VAR21賦值:最高價-成交額(元)/成交量(手)/100的絕對值和成交額(元)/成交量(手)/100-最低價的絕對值的較大值 VAR3賦值:(開盤價+收盤價)/2-成交額(元)/成交量(手)/100的絕對值 MV賦值:(VAR21+VAR3)/成交額(元)*成交量(手)*100*50 當滿足條件MV>6ANDL<=10日內最低價的最低值時,在最低價*0.98位置書寫文字,畫青色 VARCQ賦值:1日前的收盤價=4日內收盤價的最低值 AND 收盤價>=2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最低值 AND 1日前的收盤價<=3日前的收盤價 AND 2日前的收盤價<4日前的收盤價 AND 收盤價>=1日前的收盤價 VAR9Q賦值:收盤價= 4日內收盤價的最高值AND (1日前的收盤價>=2日前的收盤價 OR 1日前的收盤價>=3日前的收盤價) OR 1日前的收盤價=4日內收盤價的最高值 AND 收盤價>=2日前的收盤價 OR 2日前的收盤價=4日內收盤價的最高值 AND 3日前的收盤價=4日內收盤價的最低值 AND 收盤價>=1日前的收盤價 OR 3日前的收盤價=4日內收盤價的最高值 AND 收盤價>=1日前的收盤價 AND 收盤價>=2日前的收盤價 VARDQ賦值:1日前的收盤價=4日內收盤價的最高值 AND 收盤價<2日前的收盤價 OR (2日前的收盤價=4日內收盤價的最高值 AND 1日前的收盤價>3日前的收盤價 OR 3日前的收盤價=4日內收盤價的最高值 AND 1日前的收盤價>2日前的收盤價) AND 2日前的收盤價>=4日前的收盤價 AND 收盤價<1日前的收盤價 輸出注:當滿足條件VARCQANDVAR9QANDVARCQ=1ANDC>開盤價時,在最低價*0.998位置書寫文字,畫黃色,線寬為1 輸出警:當滿足條件VARDQ時,在最高價*1.01位置書寫文字,畫綠色,線寬為1 ED1賦值:(-2*2日前的收盤價+1日前的收盤價+2*收盤價) ED2賦值:(-0.4*4日前的收盤價-0.4*3日前的收盤價-1.1*2日前的收盤價+0.9*1日前的收盤價+2*收盤價) ED3賦值:(-0.8*4日前的收盤價-0.8*3日前的收盤價-0.2*2日前的收盤價+0.8*1日前的收盤價+2*收盤價) JF1賦值:ED1的3日[1日權重]移動平均的3日[1日權重]移動平均 JF2賦值:ED2的4日[1日權重]移動平均的3日[1日權重]移動平均 JF3賦值:ED3的4日[1日權重]移動平均的4日[1日權重]移動平均 當滿足條件ED1上穿JF1+ED2上穿JF2+ED3上穿JF3的1日累和>1時,在最低價/1.001位置畫1號圖標 當滿足條件JF1上穿ED1+JF2上穿ED2+JF3上穿ED3的1日累和>1時,在最高價*1.051位置畫2號圖標 DIFF賦值:收盤價的12日指數移動平均 - 收盤價的26日指數移動平均 DEA賦值:DIFF的8日指數移動平均 A1賦值:上次1日前的DIFF上穿DEA距今天數 B1賦值:A1+1日前的收盤價>收盤價 AND A1+1日前的DIFF<DIFF AND DIFF上穿DEA 當滿足條件如果B1>0,返回1,否則返回0時,在最低價-0.1位置書寫文字,畫綠色 RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 A2賦值:上次1日前的K上穿D距今天數 B2賦值:A2+1日前的收盤價>收盤價 AND A2+1日前的K<K AND K上穿D 當滿足條件如果B2>0,返回1,否則返回0時,在最低價-0.25位置書寫文字,畫黃色 LC賦值:1日前的收盤價 RSI1賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 RSI2賦值:收盤價-LC和0的較大值的12日[1日權重]移動平均/收盤價-LC的絕對值的12日[1日權重]移動平均*100 A3賦值:上次1日前的RSI1上穿RSI2距今天數 B3賦值:A3+1日前的收盤價>收盤價 AND A3+1日前的RSI1<RSI1 AND RSI1上穿RSI2 當滿足條件如果B3>0,返回1,否則返回0時,在最低價-0.1位置書寫文字,畫青色 C1賦值:上次1日前的DEA上穿DIFF距今天數 D1賦值:C1+1日前的收盤價<收盤價 AND C1+1日前的DIFF>DIFF AND DEA上穿DIFF 當滿足條件如果D1>0,返回1,否則返回0時,在最高價+0.05位置書寫文字,畫白色 C2賦值:上次1日前的D上穿K距今天數 D2賦值:C2+1日前的收盤價<收盤價 AND C2+1日前的K>K AND D上穿K 當滿足條件如果D2>0,返回1,否則返回0時,在最高價+0.20位置書寫文字,畫白色 C3賦值:上次1日前的RSI2上穿RSI1距今天數 D3賦值:C3+1日前的收盤價<收盤價 AND C3+1日前的RSI1>RSI1 AND RSI2上穿RSI1 當滿足條件如果D3>0,返回1,否則返回0時,在最高價+0.2位置書寫文字,畫白色 當滿足條件收盤價8%的之字轉向上穿1日前的收盤價8%的之字轉向時,在最低價*1.06位置書寫文字 ,線寬為3,畫黃色 當滿足條件1日前的收盤價10%的之字轉向上穿收盤價10%的之字轉向時,在最高價*1.03位置書寫文字,畫青色,線寬為2 GJ賦值:如果收盤價=大盤的收盤價,返回(大盤的收盤價+大盤的最高價+大盤的最低價+大盤的開盤價)/4,否則返回成交額(元)/(成交量(手)+0.01)/100 明日阻力賦值:最低價+(GJ-最低價)+(收盤價-最低價) 明日支撐賦值:最低價+(收盤價-GJ) 明日阻力賦值:最低價+(GJ-最低價)+(收盤價-最低價) 明日支撐賦值:最低價+(收盤價-GJ) 今日阻力賦值:1日前的明日阻力 今日支撐賦值:1日前的明日支撐 當滿足條件DISPSTATUS=2ANDC>=今日阻力時,在今日阻力和今日阻力位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLOR0000FF 當滿足條件DISPSTATUS=2ANDC<今日阻力時,在今日阻力和今日阻力位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLOR00FF00 當滿足條件DISPSTATUS=2ANDC>=今日支撐時,在今日支撐和今日支撐位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLORFF00FF 當滿足條件DISPSTATUS=2ANDC<今日支撐時,在今日支撐和今日支撐位置之間畫柱狀線,寬度為30,0不為0則畫空心柱.,COLORFF0000 DRAWTEXTREL(10,10,'------------------------------------'),COLORFFFFFF 條件判斷 數據位置狀態=2 AND 收盤價>=今日支撐 THENDRAWTEXTREL(10,50,'今日支撐：'+NUMTOSTRN(今日支撐 ,2 )),COLORFF00FF 條件判斷 數據位置狀態=2 AND 收盤價<今日支撐 THENDRAWTEXTREL(10,50,'今日支撐：'+NUMTOSTRN(今日支撐 ,2 )),COLORFFFFFF 條件判斷 數據位置狀態=2 AND 收盤價>=今日阻力 THENDRAWTEXTREL(10,120,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),COLOR0000FF 條件判斷 數據位置狀態=2 AND 收盤價<今日阻力 THENDRAWTEXTREL(10,120,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),COLOR00FF00 條件判斷 數據位置狀態=2 AND 收盤價>=明日支撐 THENDRAWTEXTREL(100,50,'明日支撐：'+NUMTOSTRN(明日支撐 ,2 )),COLOR00FFFF 條件判斷 數據位置狀態=2 AND 收盤價<明日阻力 THENDRAWTEXTREL(100,120,'明日阻力：'+NUMTOSTRN(明日阻力 ,2 )),COLOR00FFFF DRAWTEXTREL(10,160,'------------------------------------'),COLORFFFFFF

?

?來源:程序化99（ www.kzuj.com.cn ）

原理解析：

?

?

?

{籌碼分析【主圖】}
MA6:=MA(CLOSE,6);
MA18:=MA(CLOSE,18);
空:(3)*(MA18) - (2)*(MA6),LINETHICK3,COLORCYAN;
多:(3)*(MA6) - (2)*(MA18),LINETHICK3,COLOR0000C0;
超買:MA(C,10)*IF(CAPITAL=0,1.04,1.1),DOTLINE,COLORGREEN,LINETHICK1;
超賣:MA(C,10)*IF(CAPITAL=0,0.95,0.9),DOTLINE,COLORYELLOW,LINETHICK1;
【生命線】:sum(vol*(o+c)/2,88)/sum(vol,88),COLOR0000FF,linethick1;
【持股線】:hhv(ma(C,18),2),COLORYELLOW;{http://cxh99.com}
【分離線】:if(ma(C,18)<【持股線】,(ma(C,18)-(【持股線】-ma(C,18))),【持股線】),COLORCYAN,linethick1;
MA18:ma(C,18),linethick1,COLORWHITE;
角度:ATAN((MA18/REF(MA18,1)-1)*100)*180/3.14159,LINETHICK0;{http://www.kzuj.com.cn}
一:=COST(10)/COST(1);
二:=COST(20)/COST(10);
三:=COST(30)/COST(20);
四:=COST(40)/COST(30);
五:=COST(50)/COST(40);
密:=一<二 AND 一<三 AND 一<四 AND 一<五 ;
密二:=二<三 AND 二<四 AND 二<五 ;
密三:=三<二 AND 三<四 AND 三<五 ;
密四:=四<二 AND 四<三 AND 四<五 ;
密五:=五<二 AND 五<三 AND 五<四 ;
STICKLINE(c>=o,c,o,9,1),colorred;
STICKLINE(c>=o,l,o,0.1,0),colorred;
STICKLINE(c>=o,c,h,0.1,0),colorred;
STICKLINE(c<o,c,o,9,0),colorffff00;
STICKLINE(c<o,h,l,0.1,0),colorffff00;
x11:POLYLINE(密二>0,COST(11)),COLOR008800;
x21:POLYLINE(密二>0,COST(12)),COLOR008800;
x31:POLYLINE(密二>0,COST(13)),COLOR008800;
x41:POLYLINE(密二>0,COST(14)),COLOR008800;
x51:POLYLINE(密二>0,COST(15)),COLOR008800;
x61:POLYLINE(密二>0,COST(16)),COLOR008800;
x71:POLYLINE(密二>0,COST(17)),COLOR008800;
x81:POLYLINE(密二>0,COST(18)),COLOR008800;
x91:POLYLINE(密二>0,COST(19)),COLOR008800;
x12:POLYLINE(密三>0,COST(21)),COLORff9933;
x22:POLYLINE(密三>0,COST(22)),COLORff9933;
x32:POLYLINE(密三>0,COST(23)),COLORff9933;
x42:POLYLINE(密三>0,COST(24)),COLORff9933;
x52:POLYLINE(密三>0,COST(25)),COLORff9933;
x62:POLYLINE(密三>0,COST(26)),COLORff9933;
x72:POLYLINE(密三>0,COST(27)),COLORff9933;
x82:POLYLINE(密三>0,COST(28)),COLORff9933;
x92:POLYLINE(密三>0,COST(29)),COLORff9933;
x13:POLYLINE(密四>0,COST(31)),COLOR008800;
x23:POLYLINE(密四>0,COST(32)),COLOR008800;
x33:POLYLINE(密四>0,COST(33)),COLOR008800;
x43:POLYLINE(密四>0,COST(34)),COLOR008800;
x53:POLYLINE(密四>0,COST(35)),COLOR008800;
x63:POLYLINE(密四>0,COST(36)),COLOR008800;
x73:POLYLINE(密四>0,COST(37)),COLOR008800;
x83:POLYLINE(密四>0,COST(38)),COLOR008800;
x93:POLYLINE(密四>0,COST(39)),COLOR008800;
x14:POLYLINE(密五>0,COST(41)),COLOR33cc00;
x24:POLYLINE(密五>0,COST(42)),COLOR33cc00;
x34:POLYLINE(密五>0,COST(43)),COLOR33cc00;
x44:POLYLINE(密五>0,COST(44)),COLOR33cc00;
x54:POLYLINE(密五>0,COST(45)),COLOR33cc00;
x64:POLYLINE(密五>0,COST(46)),COLOR33cc00;
x74:POLYLINE(密五>0,COST(47)),COLOR33cc00;
x84:POLYLINE(密五>0,COST(48)),COLOR33cc00;
x94:POLYLINE(密五>0,COST(49)),COLOR33cc00;
stickline(密>0 AND c<COST(50),COST(10),COST(2),2,1),COLORGREEN;{http://www.kzuj.com.cn}
stickline(密二>0 AND c<COST(50),COST(10),COST(20),0.8,1),COLORYELLOW;{http://cxh99.com}
stickline(密二>0 AND c<COST(50),COST(20)/1.0017,COST(20),4,1),COLORYELLOW;{http://cxh99.com}
stickline(密三>0 AND c<COST(50),COST(20),COST(30),1,1),COLORYELLOW;{http://cxh99.com}
stickline(密三>0 AND c<COST(50),COST(30)/1.0017,COST(30),4,1),COLORYELLOW;{http://cxh99.com}
stickline(密四>0 AND c<COST(50),COST(30),COST(40),0.8,1),COLORYELLOW;{http://cxh99.com}
stickline(密四>0 AND c<COST(50),COST(40)/1.0017,COST(40),4,1),COLORYELLOW;{http://cxh99.com}
stickline(密五>0 AND c<COST(50),COST(40),COST(50),1,1),COLORYELLOW;{http://cxh99.com}
stickline(密五>0 AND c<COST(50),COST(50)/1.0017,COST(50),4,1),COLORYELLOW;{http://cxh99.com}
aa:=if(c>=ref(c,3),1,0);
bb:=if(c>=ref(c,5),1,0);
cc:=if(c>=ref(c,7),1,0);
dd:=if(c>=ref(c,8),1,0);
ee:=if(c>=ref(c,13),1,0);
ff:=if(c>=ref(c,21),1,0);
gz2:=aa+bb+cc+dd+ee+ff;
kk:=0;
for i=1 TO 4DO
kk:=kk+REF(gz2,i);
kkk:=kk/4;
DRAWTEXT(kkk=0 and gz2>0 and c>REF(c,1),L*0.994,'買'),COLORYELLOW,linethick3;
DRAWTEXT(kkk=6 and gz2<6 ,H*1.025,'賣'),COLORWHITE,ALIGN2,linethick3;
A:=SUMBARS(V,CAPITAL*1);
A1:=SUM(COST(10),A)/A;
A2:=SUM(COST(20),A)/A;
A3:=SUM(COST(30),A)/A;
A4:=SUM(COST(40),A)/A;
A5:=SUM(COST(50),A)/A;
莊家成本線:(5*A1+4*A2+3*A3+2*A4+A5)/15,Color98FF00,linethick1;
Var21:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));
Var3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);
MV:=(Var21+Var3)/AMOUNT*VOL*100*50;
DRAWTEXT(MV>6 and l<=llv(l,10),l*0.98,'←異動'),colorcyan;
varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);
var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<ref(c,1);
注:drawtext(varcQ and var9Q and varcq=1 and c>o,low*0.998,'▲關注'),coloryellow,linethick1;
警:drawtext(vardQ,high*1.01,'▼警示'),COLORGREEN,linethick1;
ED1:=(-2*REF(C,2)+REF(C,1)+2*C);
ED2:=(-0.4*REF(C,4)-0.4*REF(C,3)-1.1*REF(C,2)+0.9*REF(C,1)+2*C);
ED3:=(-0.8*REF(C,4)-0.8*REF(C,3)-0.2*REF(C,2)+0.8*REF(C,1)+2*C);
JF1:=SMA(SMA(ED1,3,1),3,1);
JF2:=SMA(SMA(ED2,4,1),3,1);
JF3:=SMA(SMA(ED3,4,1),4,1);
DRAWICON(sum(CROSS(ED1,JF1) + CROSS(ED2,JF2) + CROSS(ED3,JF3),1)>1,L/1.001,1);
DRAWICON(sum(CROSS(JF1,ED1) + CROSS(JF2,ED2) + CROSS(JF3,ED3),1)>1,H*1.051,2);
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(IF(B1>0,1,0),L-0.1,'MACD底背'),COLORGREEN;{http://www.kzuj.com.cn}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
DRAWTEXT(IF(B2>0,1,0),L-0.25,'KDJ底背'),COLORYELLOW;{http://cxh99.com}
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
DRAWTEXT(IF(B3>0,1,0),L-0.1,'RSI底背'),COLORCYAN;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(IF(D1>0,1,0),H+0.05,'MACD頂背'),COLORWHITE;
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT(IF(D2>0,1,0),H+0.20,'KDJ頂背'),COLORWHITE;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(IF(D3>0,1,0),H+0.2,'RSI頂背'),COLORWHITE;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*1.06,'【絕佳】') ,LINETHICK3,COLORYELLOW;{http://cxh99.com}
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.03,'賣'),COLORCYAN,LINETHICK2;
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撐:=l+(c-gj);
明日阻力:=l+(gj-l)+(c-l);
明日支撐:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撐:=REF(明日支撐 , 1);
STICKLINE(DISPSTATUS=2and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2and c>=今日支撐,今日支撐,今日支撐,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2and c<今日支撐,今日支撐,今日支撐,30,0),ColorFF0000;
DRAWTEXTREL(10,10,'------------------------------------'),ColorFFFFFF;
IF BARSTATUS=2 and c>=今日支撐 THEN
DRAWTEXTREL(10,50,'今日支撐：'+NUMTOSTRN(今日支撐 ,2 )),ColorFF00FF;
IF BARSTATUS=2 and c<今日支撐 THEN
DRAWTEXTREL(10,50,'今日支撐：'+NUMTOSTRN(今日支撐 ,2 )),ColorFFFFFF;
IF BARSTATUS=2 and c>=今日阻力 THEN
DRAWTEXTREL(10,120,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),Color0000FF;
IF BARSTATUS=2 and c<今日阻力 THEN
DRAWTEXTREL(10,120,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),Color00FF00;
IF BARSTATUS=2 and c>=明日支撐 THEN
DRAWTEXTREL(100,50,'明日支撐：'+NUMTOSTRN(明日支撐 ,2 )),Color00FFFF;
IF BARSTATUS=2 and c<明日阻力 THEN
DRAWTEXTREL(100,120,'明日阻力：'+NUMTOSTRN(明日阻力 ,2 )),Color00FFFF;
DRAWTEXTREL(10,160,'------------------------------------'),ColorFFFFFF;

?

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

?