相關標簽:黃金買點主圖源碼貼圖 、 大智慧 黃金分割線 、 黃金坑指標源碼主圖 、 黃金分割主圖指標源碼 、 同花順黃金分割線主圖 、 經典黃金分割線源碼 、 通達信黃金分割線源碼 、 黃金分割線劃線源碼 、 同花順黃金分割線源碼 、 黃金分割線買賣源碼 、 黃金分割指標公式源碼 、 黃金坑指標公式源碼 、 現貨主圖指標公式源碼 、 通達信黃金分割線指標 、 最好的黃金分割線指標 、

大智慧黃金分割線主圖指標 源碼 貼圖{立體K線}{紅K}

原理解析：
當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR000038 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR000048 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR000058 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR000068 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR000078 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR000088 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR000098 當滿足條件收陽線時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR0000A8 當滿足條件收陽線時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR0008A8 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR003800 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR004800 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR005800 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR006800 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR007800 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR008800 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR009800 當滿足條件收陰線時,在收盤價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLOR00A800 當滿足條件收陰線時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR00A800 C3賦值:1日前的收盤價 漲停賦值:如果(收盤價-C3)*100/C3>=(10-0.01*100/C3),返回1,否則返回0 OR ((字符串比較=0 OR 字符串比較=0) AND 收盤價>=1日前的收盤價*1.05*100+0.5的整數部分/100) 當滿足條件漲停時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.0,0不為0則畫空心柱.,COLOR00D8D8 跌停賦值:如果(C3-收盤價)*100/C3>=(10-0.01*100/C3),返回1,否則返回0 OR ((字符串比較=0 OR 字符串比較=0) AND (C3-收盤價)*100/C3>=1日前的收盤價*1.05*100+0.5的整數部分/100) 當滿足條件跌停時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.0,0不為0則畫空心柱.,COLOR00EE00 C3賦值:1日前的收盤價 漲停賦值:如果(收盤價-C3)*100/C3>=(10-0.01*100/C3),返回1,否則返回0 OR ((字符串比較=0 OR 字符串比較=0) AND 收盤價>=1日前的收盤價*1.05*100+0.5的整數部分/100) 當滿足條件漲停時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.0,0不為0則畫空心柱.,COLOR00D8D8 跌停賦值:如果(C3-收盤價)*100/C3>=(10-0.01*100/C3),返回1,否則返回0 OR ((字符串比較=0 OR 字符串比較=0) AND (C3-收盤價)*100/C3>=1日前的收盤價*1.05*100+0.5的整數部分/100) 當滿足條件跌停時,在開盤價和收盤價位置之間畫柱狀線,寬度為2.0,0不為0則畫空心柱.,COLOR00EE00 當滿足條件平盤時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,COLOR888888 當滿足條件平盤時,在最高價和最低價位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR888888 LHNH賦值:上次DISPSTATUS=1距今天數+1 NNL賦值:DISPSTATUS=2 AL賦值:若NNL則將最近LHNH日內最高價距今天數+1周期置為1 BL賦值:AL>1日前的AL AL2賦值:若NNL則將最近LHNH日內最低價距今天數+1周期置為1 BL2賦值:AL2>1日前的AL2 輸出前高:上次BL距今天數日前的最高價,PRECIS2,COLOR00A800,線寬為1 當滿足條件NNL時,在前高*0.995位置書寫文字,ALIGN2,COLOR00A800,PRECIS2 輸出前低:上次BL2距今天數日前的最低價,PRECIS2,COLOR580058,線寬為1 當滿足條件NNL時,在前低*1.010位置書寫文字,ALIGN2,COLOR380088,PRECIS2 輸出FL1:((前高-前低)*0.191)+前低,DOTLINE,COLOR282828,線寬為1,PRECIS2 當滿足條件NNL時,在FL1位置書寫文字,ALIGN2,COLOR282828 輸出FL2:((前高-前低)*0.236)+前低,DOTLINE,COLOR282828,線寬為1,PRECIS2 當滿足條件NNL時,在FL2位置書寫文字,ALIGN2,COLOR383838 輸出FL3:((前高-前低)*0.382)+前低,DOTLINE,COLOR003838,線寬為1,PRECIS2 當滿足條件NNL時,在FL3位置書寫文字,ALIGN2,COLOR003838 輸出FL4:((前高-前低)*0.5)+前低,DOTLINE,COLOR383800,線寬為1,PRECIS2 當滿足條件NNL時,在FL4位置書寫文字,ALIGN2,COLOR000058 輸出FL5:((前高-前低)*0.618)+前低,DOTLINE,COLOR003838,線寬為1,PRECIS2 當滿足條件NNL時,在FL5位置書寫文字,ALIGN2,COLOR003838 輸出FL6:((前高-前低)*0.764)+前低,DOTLINE,COLOR282828,線寬為1,PRECIS2 當滿足條件NNL時,在FL6位置書寫文字,ALIGN2,COLOR383838 輸出FL7:((前高-前低)*0.809)+前低,DOTLINE,COLOR282828,線寬為1,PRECIS2 當滿足條件NNL時,在FL7位置書寫文字,ALIGN2,COLOR282828 A賦值:上次DISPSTATUS=1距今天數+1 HH賦值:A日內最高價的最高值 LL賦值:A日內最低價的最低值 上漲賦值:首次若DISPSTATUS=2則將最近上次最低價=LL距今天數+1周期置為1距今天數 ↑空間％賦值:(收盤價/上漲日前的最低價-1)*100 最高％賦值:(HHVALL(HH)/上漲日前的最低價-1)*100 下跌賦值:首次若DISPSTATUS=2則將最近上次最高價=HH距今天數+1周期置為1距今天數 ↓空間％賦值:(收盤價/下跌日前的最高價-1)*100 最低％賦值:(LLVALL(LL)/下跌日前的最高價-1)*100 W賦值:上次DISPSTATUS=1距今天數 低漲賦值:(最高價/W日內最低價的最低值-1)*100 高跌賦值:(最低價/W日內最高價的最高值-1)*100 天日賦值:上次最低價=W日內最低價的最低值距今天數 天賦值:上次最高價=W日內最高價的最高值距今天數 輸出DRAWTEXTREL(280,15,'▲低點至今日高點上漲:'+NUMTOSTRN(低漲,2)+'％ '+NUMTOSTRN(天日,0)+'天'),COLOR000088,線寬為1 輸出DRAWTEXTREL(128,15,'▼高點至今日低點下跌:'+NUMTOSTRN(高跌,2)+'％ '+NUMTOSTRN(天,0)+'天'),COLOR005800,線寬為1 輸出DRAWTEXTREL(018,15,'目前可見K線數:'+NUMTOSTRN(W+1,0)+'根'),COLOR585858,線寬為1 VERTLINE(上漲=0,2),COLOR380088,LAYER7 VERTLINE(下跌=0,2),COLOR005800,LAYER7 當滿足條件上漲=0AND最高％>10時,在LL*1.1位置書寫文字,COLOR008888 當滿足條件上漲=0AND最高％>20時,在LL*1.2位置書寫文字,COLOR005800 當滿足條件上漲=0AND最高％>30時,在LL*1.3位置書寫文字,COLOR380088 當滿足條件上漲=0AND最高％>40時,在LL*1.4位置書寫文字,COLOR585858 當滿足條件上漲=0AND最高％>50時,在LL*1.5位置書寫文字,COLOR580058 當滿足條件上漲=0AND最高％>60時,在LL*1.6位置書寫文字,COLOR585800 當滿足條件上漲=0AND最高％>70時,在LL*1.7位置書寫文字,COLOR005800 當滿足條件上漲=0AND最高％>80時,在LL*1.8位置書寫文字,COLOR005858 當滿足條件上漲=0AND最高％>90時,在LL*1.9位置書寫文字,COLOR000058 當滿足條件上漲=0AND最高％>100時,在LL*2位置書寫文字,COLOR380088 當滿足條件上漲=0AND最高％>100時,在LL*2.25位置書寫文字,COLOR383800 當滿足條件上漲=0AND最高％>150時,在LL*2.5位置書寫文字,COLOR585858 當滿足條件上漲=0AND最高％>200時,在LL*3.0位置書寫文字,COLOR580058 當滿足條件上漲=0AND最高％>250時,在LL*3.5位置書寫文字,COLOR585800 當滿足條件下跌=0AND最低％<-10時,在HH*0.9位置書寫文字,COLOR00A800 當滿足條件下跌=0AND最低％<-20時,在HH*0.8位置書寫文字,COLORA83800 當滿足條件下跌=0AND最低％<-30時,在HH*0.7位置書寫文字,COLOR008800 當滿足條件下跌=0AND最低％<-40時,在HH*0.6位置書寫文字,COLOR380088 當滿足條件下跌=0AND最低％<-50時,在HH*0.5位置書寫文字,COLOR005858 當滿足條件下跌=0AND最低％<-60時,在HH*0.4位置書寫文字,COLOR580058 當滿足條件下跌=0AND最低％<-70時,在HH*0.3位置書寫文字,COLOR008800 當滿足條件下跌=0AND最低％<-80時,在HH*0.2位置書寫文字,COLORA83800 當滿足條件下跌=0AND最低％<-90時,在HH*0.1位置書寫文字,COLOR000088 CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1)) 輸出WARNING('HTTP://www.kzuj.com.cn',CURRENTTIME>180000 AND (CXH=1 OR CXH=6)) DRAWTEXTREL(10 ,10 ,'指標公式')

源碼：

STICKLINE(C>O,C,O,8,0),COLOR000038;STICKLINE(C>O,C,O,7,0),COLOR000048;STICKLINE(C>O,C,O,6,0),COLOR000058;STICKLINE(C>O,C,O,5,0),COLOR000068;STICKLINE(C>O,C,O,4,0),COLOR000078;STICKLINE(C>O,C,O,3,0),COLOR000088;STICKLINE(C>O,C,O,2,0),COLOR000098;STICKLINE(C>O,C,O,1,0),COLOR0000A8;STICKLINE(C>O,H,L,0,0),COLOR0008A8;{綠K}STICKLINE(C<O,C,O,8,0),COLOR003800;STICKLINE(C<O,C,O,7,0),COLOR004800;STICKLINE(C<O,C,O,6,0),COLOR005800;STICKLINE(C<O,C,O,5,0),COLOR006800;STICKLINE(C<O,C,O,4,0),COLOR007800;STICKLINE(C<O,C,O,3,0),COLOR008800;STICKLINE(C<O,C,O,2,0),COLOR009800;STICKLINE(C<O,C,O,1,0),COLOR00A800;STICKLINE(C<O,H,L,0,0),COLOR00A800;{漲停跌停標示}C3:=REF(C,1);漲停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and c>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);STICKLINE(漲停,OPEN,CLOSE,2.0,0),color00D8D8;跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and (C3-C)*100/C3>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);STICKLINE(跌停,OPEN,CLOSE,2.0,0),COLOR00EE00;{漲停跌停標示}C3:=REF(C,1);漲停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and c>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);STICKLINE(漲停,OPEN,CLOSE,2.0,0),color00D8D8;跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and (C3-C)*100/C3>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);STICKLINE(跌停,OPEN,CLOSE,2.0,0),COLOR00EE00;{星}STICKLINE(C=O,C,O,8,0),COLOR888888;STICKLINE(C=O,H,L,0,0),COLOR888888;{---------------------------不喜歡立體K線及漲停標識的，以上內容可刪除----------------------------------------}{說明：公式借用理想論壇一品茶緣等老師編寫源碼而優化，在此表示感謝！！！{黃金分割線}lhnh:=BARSLAST(DISPSTATUS=1)+1;nnl:=DISPSTATUS=2;Al:=BACKSET(nnl,hhvBARS(h,lhnh)+1);Bl:=Al>REF(Al,1);Al2:=BACKSET(nnl,LLVBARS(L,lhnh)+1);Bl2:=Al2>REF(Al2,1);前高:REF(H,BARSLAST(bl)),PRECIS2,COLOR00A800,LINETHICK1;DRAWTEXT(nnl,前高*0.995,'前高:'+NUMTOSTRN(前高,2)),ALIGN2,COLOR00A800,PRECIS2;前低:REF(L,BARSLAST(Bl2)),PRECIS2,COLOR580058,LINETHICK1;DRAWTEXT(nnl,前低*1.010,'前低： '+NUMTOSTRN(前低,2)),ALIGN2,COLOR380088,PRECIS2;Fl1:((前高-前低)*0.191)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;DRAWTEXT(nnl,Fl1,'191(809)： '+NUMTOSTRN(Fl1,2)),ALIGN2,Color282828;Fl2:((前高-前低)*0.236)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;DRAWTEXT(nnl,Fl2,'236(764)： '+NUMTOSTRN(Fl2,2)),ALIGN2,Color383838;Fl3:((前高-前低)*0.382)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2;DRAWTEXT(nnl,Fl3,'382(618)： '+NUMTOSTRN(Fl3,2)),ALIGN2,COLOR003838;Fl4:((前高-前低)*0.5)+前低,DOTLINE,COLOR383800,LINETHICK1,PRECIS2;DRAWTEXT(nnl,Fl4,'0.50： '+NUMTOSTRN(Fl4,2)),ALIGN2,Color000058;Fl5:((前高-前低)*0.618)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2;DRAWTEXT(nnl,Fl5,'618(382)： '+NUMTOSTRN(Fl5,2)),ALIGN2,COLOR003838;Fl6:((前高-前低)*0.764)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;DRAWTEXT(nnl,Fl6,'764(236)： '+NUMTOSTRN(Fl6,2)),ALIGN2,COLOR383838;Fl7:((前高-前低)*0.809)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;DRAWTEXT(nnl,Fl7,'809(191)： '+NUMTOSTRN(Fl7,2)),ALIGN2,COLOR282828;A:=BARSLAST(DISPSTATUS=1)+1;HH:=HHV(H,A);LL:=LLV(L,A);上漲:=BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(L=LL)+1));↑空間％:=(C/REF(L,上漲)-1)*100;最高％:=(HHVALL(HH)/REF(L,上漲)-1)*100;下跌:=BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(H=HH)+1));↓空間％:=(C/REF(H,下跌)-1)*100;最低％:=(LLVALL(LL)/REF(H,下跌)-1)*100;W:=BARSLAST(DISPSTATUS=1);低漲:=(H/LLV(LOW,W)-1)*100;高跌:=(L/HHV(HIGH,W)-1)*100;天日:=BARSLAST(L=LLV(LOW,W));天:=BARSLAST(H=HHV(HIGH,W));{以下設置提示文字部分}DRAWTEXTREL(280,15,'▲低點至今日高點上漲:'+NUMTOSTRN(低漲,2)+'％ '+NUMTOSTRN(天日,0)+'天'),COLOR000088,linethick1;DRAWTEXTREL(128,15,'▼高點至今日低點下跌:'+NUMTOSTRN(高跌,2)+'％ '+NUMTOSTRN(天,0)+'天'),COLOR005800,linethick1;DRAWTEXTREL(018,15,'目前可見K線數:'+NUMTOSTRN(W+1,0)+'根'),COLOR585858,linethick1;VERTLINE(上漲=0,2),COLOR380088,LAYER7;VERTLINE(下跌=0,2),COLOR005800,LAYER7;{DRAWTEXT(上漲=0,LLVALL(HH)*0.99,'-最高'),COLOR0000D8;DRAWTEXT(下跌=0,LLVALL(LL)*1.01,'-最低'),COLORD85800;}DRAWTEXT(上漲=0 AND 最高％>10,LL*1.1,'-10% '+NUMTOSTRN(LL*1.1,2)),COLOR008888;DRAWTEXT(上漲=0 AND 最高％>20,LL*1.2,'-20% '+NUMTOSTRN(LL*1.2,2)),COLOR005800;DRAWTEXT(上漲=0 AND 最高％>30,LL*1.3,'-30% '+NUMTOSTRN(LL*1.3,2)),COLOR380088;DRAWTEXT(上漲=0 AND 最高％>40,LL*1.4,'-40% '+NUMTOSTRN(LL*1.4,2)),COLOR585858;DRAWTEXT(上漲=0 AND 最高％>50,LL*1.5,'-50% '+NUMTOSTRN(LL*1.5,2)),COLOR580058;DRAWTEXT(上漲=0 AND 最高％>60,LL*1.6,'-60% '+NUMTOSTRN(LL*1.6,2)),COLOR585800;DRAWTEXT(上漲=0 AND 最高％>70,LL*1.7,'-70% '+NUMTOSTRN(LL*1.7,2)),COLOR005800;DRAWTEXT(上漲=0 AND 最高％>80,LL*1.8,'-80% '+NUMTOSTRN(LL*1.8,2)),COLOR005858;DRAWTEXT(上漲=0 AND 最高％>90,LL*1.9,'-90% '+NUMTOSTRN(LL*1.9,2)),COLOR000058;DRAWTEXT(上漲=0 AND 最高％>100,LL*2,'-100% '+NUMTOSTRN(LL*2.0,2)),COLOR380088;DRAWTEXT(上漲=0 AND 最高％>100,LL*2.25,'-125% '+NUMTOSTRN(LL*2.25,2)),COLOR383800;DRAWTEXT(上漲=0 AND 最高％>150,LL*2.5,'-150% '+NUMTOSTRN(LL*2.5,2)),COLOR585858;DRAWTEXT(上漲=0 AND 最高％>200,LL*3.0,'-200% '+NUMTOSTRN(LL*3.0,2)),COLOR580058;DRAWTEXT(上漲=0 AND 最高％>250,LL*3.5,'-250% '+NUMTOSTRN(LL*3.5,2)),COLOR585800;DRAWTEXT(下跌=0 AND 最低％<-10,HH*0.9,'-10% '+NUMTOSTRN(HH*0.9,2)),COLOR00A800;DRAWTEXT(下跌=0 AND 最低％<-20,HH*0.8,'-20% '+NUMTOSTRN(HH*0.8,2)),COLORA83800;DRAWTEXT(下跌=0 AND 最低％<-30,HH*0.7,'-30% '+NUMTOSTRN(HH*0.7,2)),COLOR008800;DRAWTEXT(下跌=0 AND 最低％<-40,HH*0.6,'-40% '+NUMTOSTRN(HH*0.6,2)),COLOR380088;DRAWTEXT(下跌=0 AND 最低％<-50,HH*0.5,'-50% '+NUMTOSTRN(HH*0.5,2)),COLOR005858;DRAWTEXT(下跌=0 AND 最低％<-60,HH*0.4,'-60% '+NUMTOSTRN(HH*0.4,2)),COLOR580058;DRAWTEXT(下跌=0 AND 最低％<-70,HH*0.3,'-70% '+NUMTOSTRN(HH*0.3,2)),COLOR008800;DRAWTEXT(下跌=0 AND 最低％<-80,HH*0.2,'-80% '+NUMTOSTRN(HH*0.2,2)),COLORA83800;DRAWTEXT(下跌=0 AND 最低％<-90,HH*0.1,'-90% '+NUMTOSTRN(HH*0.1,2)),COLOR000088;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

 

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