奇狐社區論壇 - 支持原碼--分享原碼

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- 支持原碼--分享原碼 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=1572)

由 fugoal 在 2004-09-12 09:42 發表:

支持原碼--分享原碼

支持原碼--分享原碼

威廉K箱形 & KDJ

W 1,1,300
M 36,1,300

{
上: HHV(H ,W),COLORred ;
強:(HHV(H ,W)-LLV(L ,W))*0.8+LLV(L ,W) LINETHICK1 ;
中:(HHV(H ,W)+LLV(L ,W))/2 LINETHICK1 ;
弱:(HHV(H ,W)-LLV(L ,W))*0.2+LLV(L ,W) LINETHICK1 ;
下: LLV(L ,W),COLORGREEN ;

R上: HHV(REF( H , 1 ) ,W),COLORred;
R強:(HHV(REF( H , 1 ) ,W)-LLV(REF( L , 1 ) ,W))*0.8+LLV(REF( L , 1 ) ,W) LINETHICK1;
R中:(HHV(REF( H , 1 ) ,W)+LLV(REF( L , 1 ) ,W))/2 LINETHICK1;
R弱:(HHV(REF( H , 1 ) ,W)-LLV(REF( L , 1 ) ,W))*0.2+LLV(REF( L , 1 ) ,W) LINETHICK1 ;
R下: LLV(REF( L , 1 ) ,W),COLORGREEN;

R上H:R強+(R強-R中);
R下L:R弱-(R中-R弱);

ER強:EMA(R強,W);
ER中:EMA(R中,W);
ER弱:EMA(R弱,W);
}
{上段引用週期}
{----------------------------------------------------}

RM上:="WR-K線.R上#MONTH" COLORBLUE POINTDOT LINETHICK5;
RM強:="WR-K線.R強#MONTH" COLORBLUE POINTDOT LINETHICK5;
RM中:="WR-K線.R中#MONTH" COLORGRAY POINTDOT LINETHICK4;
RM弱:="WR-K線.R弱#MONTH" COLOR009933 POINTDOT LINETHICK5;
RM下:="WR-K線.R下#MONTH" COLORBLUE POINTDOT LINETHICK5;

FILLRGN(RM中,RM中,RM強)COLOR444000;
FILLRGN(RM中,RM中,RM弱)COLOR333333;

FILLRGN(RM中,RM下,RM弱)COLOR222233;
FILLRGN(RM中,RM上,RM強)COLOR333333;

StickLine( IsUp , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , OPEN , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsUp , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown , HIGH , LOW , 0.1 , 0 ) , Color009933 ;
StickLine( IsDown , CLOSE , OPEN , 8 , 0 ) , Color009933;
StickLine( IsEqual and C>=REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( IsEqual and C>=REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) , ColorRed ;
StickLine( IsEqual and C<REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , Color009933;
StickLine( IsEqual and C<REF( C , 1 ) , CLOSE , OPEN , 8 , 0 ) , Color009933;
XX:=Barscount( Close ) ; { 以下是描繪第一個交易日的K線 }
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , HIGH , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , LOW , 0.1 , 0 ) , ColorRed ;
StickLine( ( IsUp or IsEqual ) and ( XX = 1 ) , CLOSE , OPEN , 8 , 1 ) , ColorRed ;
StickLine( IsDown and XX = 1 , HIGH, LOW, 0.1, 0 ) , Colorgreen;
StickLine( IsDown and XX = 1 , CLOSE , OPEN , 8 , 0 ) , Colorgreen ;

XA:=IsLastBar ;
XB:=Backset( XA=1, M ) ;
Y:=BarsLast( XB=1 ) ;
X:=Y + 1 ;

R上:= HHV(REF( H , 1 ) ,W),COLORred;
R強:=(HHV(REF( H , 1 ) ,W)-LLV(REF( L , 1 ) ,W))*0.8+LLV(REF( L , 1 ) ,W) LINETHICK1;
R中:=(HHV(REF( H , 1 ) ,W)+LLV(REF( L , 1 ) ,W))/2 LINETHICK1;
R弱:=(HHV(REF( H , 1 ) ,W)-LLV(REF( L , 1 ) ,W))*0.2+LLV(REF( L , 1 ) ,W) LINETHICK1 ;
R下:= LLV(REF( L , 1 ) ,W),COLORGREEN;

中1:EMA(R中,5);
中2:EMA(R中,13);
中3:EMA(R中,26);
中4:EMA(R中,65);
中5:=EMA(R中,130);
中6:=EMA(R中,260);

日上:=X*"WR-K線.上#DAY" LINETHICK1 ;
日強:=X*"WR-K線.強#DAY" LINETHICK1 ;
日弱:=X*"WR-K線.弱#DAY" LINETHICK1 ;
日下:=X*"WR-K線.下#DAY" LINETHICK1 ;
日中:=X*"WR-K線.中#DAY" COLOR0088CC LINETHICK1 ;

R日上:=X*"WR-K線.R上#DAY" LINETHICK1;
R日強:=X*"WR-K線.R強#DAY" LINETHICK1;
R日弱:=X*"WR-K線.R弱#DAY" LINETHICK1;
R日下:=X*"WR-K線.R下#DAY" LINETHICK1;
R日中:="WR-K線.R中#DAY" COLOR0088CC LINETHICK1;

週上:="WR-K線.上#WEEK" COLORBLUE POINTDOT LINETHICK5;
週強:="WR-K線.強#WEEK" COLORBLUE POINTDOT LINETHICK5;
週弱:="WR-K線.弱#WEEK" COLOR009933 POINTDOT LINETHICK5;
週下:="WR-K線.下#WEEK" COLORBLUE POINTDOT LINETHICK5;
週中:="WR-K線.中#WEEK" COLORGRAY POINTDOT LINETHICK4;

R週上:="WR-K線.R上#WEEK" COLORBLUE POINTDOT LINETHICK5;
R週強:="WR-K線.R強#WEEK" COLORBLUE POINTDOT LINETHICK5;
R週弱:="WR-K線.R弱#WEEK" COLOR009933 POINTDOT LINETHICK5;
R週下:="WR-K線.R下#WEEK" COLORBLUE POINTDOT LINETHICK5;
R週中:="WR-K線.R中#WEEK" COLORGRAY POINTDOT LINETHICK4;

月上:="WR-K線.上#MONTH" COLORCYAN CROSSDOT LINETHICK1;
月強:="WR-K線.強#MONTH" COLORCYAN CROSSDOT LINETHICK1;
月弱:="WR-K線.弱#MONTH" CROSSDOT LINETHICK1;
月下:="WR-K線.下#MONTH" CROSSDOT LINETHICK1;
月中:="WR-K線.中#MONTH" LINETHICK2;

R月上:="WR-K線.R上#MONTH" COLORCYAN CROSSDOT LINETHICK1;
R月強:="WR-K線.R強#MONTH" COLORCYAN CROSSDOT LINETHICK1;
R月弱:="WR-K線.R弱#MONTH" CROSSDOT LINETHICK1;
R月中:="WR-K線.R中#MONTH" LINETHICK2;
R月下:="WR-K線.R下#MONTH" CROSSDOT LINETHICK1;

STICKLINE("KD.K#DAY">80, O , C , 2 , 0 ) , COLORYELLOW ;
STICKLINE("KD.K#DAY"<20, O , C , 2 , 0 ) , COLORBLUE ;

AP:=DATAPERIOD;
E1:=BARSCOUNT(R日上); G1:=REF(R日上,BARSLAST(E1=1));
E2:=BARSCOUNT(R日強); G2:=REF(R日強,BARSLAST(E2=1));
E3:=BARSCOUNT(R日弱); G3:=REF(R日弱,BARSLAST(E3=1));
E4:=BARSCOUNT(R日下); G4:=REF(R日下,BARSLAST(E4=1));
E5:=BARSCOUNT(R日中); G5:=REF(R日中,BARSLAST(E5=1));

E6:=BARSCOUNT(中1); G6:=REF(中1,BARSLAST(E6=1));
E7:=BARSCOUNT(中2); G7:=REF(中2,BARSLAST(E7=1));
E8:=BARSCOUNT(中3); G8:=REF(中3,BARSLAST(E8=1));
E9:=BARSCOUNT(中4); G9:=REF(中4,BARSLAST(E9=1));

X1:=IF(AP=2,1,IF(AP=3,1,IF(AP=4,1,IF(AP=5,1,IF(AP=10, 6,0)))));
X2:=IF(AP=6,1,IF(AP=7,1,IF(AP=8,1,IF(AP=10, 6,0))));
X3:=IF(AP=2,1,IF(AP=3,1,IF(AP=4,1,IF(AP=5,1,IF(AP=6,1,IF(AP=10, 6,0))))));

Z1:=MA(R日上,X1); F1:=(SUM(R日上,0)+(X1-E1)*G1)/X1; SR日上:=IF(E1<X1,F1,Z1);
Z2:=MA(R日強,X1); F2:=(SUM(R日強,0)+(X1-E2)*G2)/X1; SR日強:=IF(E2<X1,F2,Z2) COLORGRAY LINETHICK2;
Z3:=MA(R日弱,X1); F3:=(SUM(R日弱,0)+(X1-E3)*G3)/X1; SR日弱:=IF(E3<X1,F3,Z3) COLORGRAY;
Z4:=MA(R日下,X1); F4:=(SUM(R日下,0)+(X1-E4)*G4)/X1; SR日下:=IF(E4<X1,F4,Z4);
Z5:=MA(R日中,X1); F5:=(SUM(R日中,0)+(X1-E5)*G5)/X1; SR日中:=IF(E5<X1,F5,Z5);

Z6:=MA(中1,X1); F6:=(SUM(中1,0)+(X1-E6)*G6)/X1; E中1:=IF(E6<X1,F6,Z6);
Z7:=MA(中2,X1); F7:=(SUM(中2,0)+(X1-E7)*G7)/X1; E中2:=IF(E7<X1,F7,Z7);
Z8:=MA(中3,X1); F8:=(SUM(中3,0)+(X1-E8)*G8)/X1; E中3:=IF(E8<X1,F8,Z8);
Z9:=MA(中4,X1); F9:=(SUM(中4,0)+(X1-E9)*G9)/X1; E中4:=IF(E9<X1,F9,Z9);

DRAWLINE(日強,日強,ISLASTBAR,日強,0),LINETHICK2 SHIFT2;
DRAWLINE(日弱,日弱,ISLASTBAR,日弱,0),LINETHICK2 SHIFT2;
DRAWLINE(日中,日中,ISLASTBAR,日中,0),LINETHICK2 SHIFT2;

{
DRAWLINE(週強,週強,ISLASTBAR,週強,0),LINETHICK2 SHIFT2;
DRAWLINE(週弱,週弱,ISLASTBAR,週弱,0),LINETHICK2 SHIFT2;
DRAWLINE(週中,週中,ISLASTBAR,週中,0),LINETHICK2 SHIFT2;
}
{
DRAWLINE(月強,月強,ISLASTBAR,月強,0),LINETHICK2 SHIFT2;
DRAWLINE(月弱,月弱,ISLASTBAR,月弱,0),LINETHICK2 SHIFT2;
DRAWLINE(月中,月中,ISLASTBAR,月中,0),LINETHICK2 SHIFT2;
}
{
PARTLINE(日強,日強) COLOR0088CC ;
PARTLINE(日中,日中) COLOR0088FF LINETHICK2 ;
PARTLINE(日弱,日弱) COLOR0088CC ;
PARTLINE(日上,日上) COLORCYAN POINTDOT ;
PARTLINE(日下,日下) COLORGREEN POINTDOT ;
}

PARTLINE(SR日強,SR日強) COLOR0088CC ;
PARTLINE(SR日弱,SR日弱) COLOR0088CC ;
PARTLINE(SR日上,SR日上) COLORCYAN POINTDOT;
PARTLINE(SR日下,SR日下) COLORGREEN POINTDOT;
PARTLINE(SR日中,SR日中) COLOR0088FF LINETHICK2;

PARTLINE(R週強,R週強) COLORGRAY POINTDOT;
PARTLINE(R週中,R週中) COLORGRAY LINETHICK1;
PARTLINE(R週弱,R週弱) COLORGRAY POINTDOT;

{
PARTLINE(R月上,R月上) COLORBLUE POINTDOT;
PARTLINE(R月強,R月強) COLORCYAN POINTDOT;
PARTLINE(R月弱,R月弱) COLORGREEN POINTDOT;
PARTLINE(R月下,R月下) COLOR009933 POINTDOT;
}
PARTLINE(R月中,R月中) COLORYELLOW LINETHICK1;

PARTLINE("KD.K#MIN15"<50,E中1) COLORGREEN;
PARTLINE("KD.K#MIN30"<50,E中2) COLORCYAN;
PARTLINE("KD.K#MIN60"<50,E中3) COLOR009933;
PARTLINE("KD.K#DAY"<50,E中4) COLORBLUE LINETHICK1;

DRAWNUMBER(ISLASTBAR,E中4,"KD.K#DAY",0)SHIFT2 COLORMAGENTA ;

DRAWICON( CROSS("KD.K#MIN60","KD.D#MIN60") , L*0.996 , 4 );
DRAWICON( CROSS("KD.D#MIN60","KD.K#MIN60") , H*1.004 , 5 );
DRAWICON( CROSS("KD.K#DAY","KD.D#DAY") , L*0.996 , 1 );
DRAWICON( CROSS("KD.D#DAY","KD.K#DAY") , H*1.004 , 2 );

由 09280937 在 2004-09-12 11:04 發表:

支持原碼

DRAWICON( CROSS("KD.K#MIN60","KD.D#MIN60") , L*0.996 , 4 );
DRAWICON( CROSS("KD.D#MIN60","KD.K#MIN60") , H*1.004 , 5 );
DRAWICON( CROSS("KD.K#DAY","KD.D#DAY") , L*0.996 , 1 );
DRAWICON( CROSS("KD.D#DAY","KD.K#DAY") , H*1.004 , 2 );
以上出現問題了,不能用唷,出現(至少要有一個公式輸出表達式的信息)

由 fugoal 在 2004-09-12 11:24 發表:

回覆: 支持原碼

引用:
最初由 09280937 發表
DRAWICON( CROSS("KD.K#MIN60","KD.D#MIN60") , L*0.996 , 4 );
DRAWICON( CROSS("KD.D#MIN60","KD.K#MIN60") , H*1.004 , 5 );
DRAWICON( CROSS("KD.K#DAY","KD.D#DAY") , L*0.996 , 1 );
DRAWICON( CROSS("KD.D#DAY","KD.K#DAY") , H*1.004 , 2 );
以上出現問題了,不能用唷,出現(至少要有一個公式輸出表達式的信息)

{引用週期}

請先設立引用週期檔名: WR-K線

W 1,1,300
M 36,1,300

上: HHV(H ,W),COLORred ;
強HHV(H ,W)-LLV(L ,W))*0.8+LLV(L ,W) LINETHICK1 ;
中HHV(H ,W)+LLV(L ,W))/2 LINETHICK1 ;
弱HHV(H ,W)-LLV(L ,W))*0.2+LLV(L ,W) LINETHICK1 ;
下: LLV(L ,W),COLORGREEN ;
R上: HHV(REF( H , 1 ) ,W),COLORred;
R強HHV(REF( H , 1 ) ,W)-LLV(REF( L , 1 ) ,W))*0.8+LLV(REF( L , 1 ) ,W) LINETHICK1;
R中HHV(REF( H , 1 ) ,W)+LLV(REF( L , 1 ) ,W))/2 LINETHICK1;
R弱HHV(REF( H , 1 ) ,W)-LLV(REF( L , 1 ) ,W))*0.2+LLV(REF( L , 1 ) ,W) LINETHICK1 ;
R下: LLV(REF( L , 1 ) ,W),COLORGREEN;

R上H:R強+(R強-R中);
R下L:R弱-(R中-R弱);

ER強:EMA(R強,W);
ER中:EMA(R中,W);
ER弱:EMA(R弱,W);

由 P0178 在 2004-09-12 12:25 發表:

謝謝分享

由 godhorse 在 2004-09-12 22:44 發表:

__________________
JOHN

由快刀手在 2004-09-13 22:11 發表:

謝謝

謝謝!!!!!

由 fugoal 在 2004-09-14 09:24 發表:

陰影改成周線;

陰影改成周線;

RW上:="WR-K線.R上#WEEK" COLORBLUE POINTDOT LINETHICK5;
RW強:="WR-K線.R強#WEEK" COLORBLUE POINTDOT LINETHICK5;
RW中:="WR-K線.R中#WEEK" COLORGRAY POINTDOT LINETHICK4;
RW弱:="WR-K線.R弱#WEEK" COLOR009933 POINTDOT LINETHICK5;
RW下:="WR-K線.R下#WEEK" COLORBLUE POINTDOT LINETHICK5;

FILLRGN(RW中,RW中,RW強)COLOR444000;
FILLRGN(RW中,RW中,RW弱)COLOR333333;

FILLRGN(RW中,RW下,RW弱)COLOR222233;
FILLRGN(RW中,RW上,RW強)COLOR333333;

再請用分時(15) 看盤 ,
--------------------------------------------
{WR-K線出自阿名網站;
X線出自冰河; AP: DATAPERIOD 出自MACD 論璮;}

由 09280937 在 2004-09-14 17:32 發表:

支持原碼

怎樣修改仍然無法使用,不好意思,可否請樓上大大再彙整一次呢?

由 fugoal 在 2004-09-14 19:41 發表:

回覆: 支持原碼

引用:
最初由 09280937 發表
怎樣修改仍然無法使用,不好意思,可否請樓上大大再彙整一次呢?

由 fugoal 在 2004-09-14 19:44 發表:

威廉K箱形周線的圖

上面滴這張士梭過ㄌ~
耳且是小水管~
所以開起來可能會曼依點~
下面低附件檔比較大張比較清楚~
別看他才幾KB~
解壓縮之後1MB多唷~

由 fugoal 在 2004-10-14 14:46 發表:

修正多週期威廉

修正多週期威廉

由 tonyhsu 在 2006-12-10 09:42 發表:

支持原碼

謝謝分享

由 bonofc 在 2011-01-13 18:06 發表:

感謝版大分享.

全部時間均為台灣時間, 現在時間為01:36

在這個頁面顯示本主題全部的 13 個文章