到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 求助
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
a588
資深會員

註冊日期: Nov 2006
來　　自: 台北市
文章數量: 101
求助

請問：
我想依據「天羅地網V1.3版」指標，如何寫出「收盤價格上穿控盤線」的條件選股公式？

STICKLINE(kks2,fo,fc+fofc*3/4,8,0),COLORFFCC00;

{天羅地網公式}
STDS:=STD(CLOSE,N);
MID := MA(CLOSE,N);
天: MID + P*STDS;
羅: MID + (P/2)*STDS;
中: MID;
地: MID - (P/2)*STDS;
網: MID - P*STDS;
{天羅地網方向標記公式}
DRAWICON(ISLASTBAR AND 天 > REF(天,1),天,4),SHIFT1;
DRAWICON(ISLASTBAR AND 天 < REF(天,1),天,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 天 = REF(天,1),天,'='),SHIFT1,COLORBLUE;
DRAWICON(ISLASTBAR AND 中 > REF(中,1),中,4),SHIFT1;
DRAWICON(ISLASTBAR AND 中 < REF(中,1),中,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 中 = REF(中,1),中,'='),SHIFT1,COLORBLUE;
DRAWICON(ISLASTBAR AND 網 > REF(網,1),網,4),SHIFT1;
DRAWICON(ISLASTBAR AND 網 < REF(網,1),網,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 網 = REF(網,1),網,'='),SHIFT1,COLORBLUE;
{趨勢解盤公式}
多 := KK>0 AND REF(KK,1)>0;
空 := KK<=0 AND REF(KK,1)<=0;
多翻空 := KK<=0 AND REF(KK,1)>00;
空翻多 := KK>0 AND REF(KK,1)<=0;
EXPLAIN(多,'趨勢：多'),COLORRED;
EXPLAIN(空,'趨勢：空'),COLORGREEN;
EXPLAIN(多翻空,'趨勢：多\n(有多翻空反轉訊號)'),COLORCYAN;
EXPLAIN(空翻多,'趨勢：空\n(有空翻多反轉訊號)'),COLORCYAN;
{格局解盤公式}
漲 := (多 AND 天 > REF(天,1) AND 中 > REF(中,1) AND C >= 中) OR (空翻多 AND 天 > REF(天,1) AND 中 > REF(中,1) AND C >= 中);
跌 := (空 AND 中 < REF(中,1) AND 網 < REF(網,1) AND C < 中) OR (多翻空 AND 中 < REF(中,1) AND 網 < REF(網,1) AND C < 中);
EXPLAIN(漲,'格局：漲勢'),COLORRED;
EXPLAIN(跌,'格局：跌勢'),COLORGREEN;
EXPLAIN(漲=0 AND 跌=0,'格局：盤整'),COLORCYAN;
{線型強弱解盤公式}
EXPLAIN(C >= 中,'線型：強'),COLORRED;
EXPLAIN(C <= 中,'線型：弱'),COLORGREEN;
{晴雨表公式}
EXPLAINICON(漲,4);
EXPLAINICON(漲=0 AND 跌=0 AND C>=中,3);
EXPLAINICON(漲=0 AND 跌=0 AND C<中,2);
EXPLAINICON(跌,1);
{轉折價公式}
明:=(fo+fc)/2;
今轉:=IF(KK=1,MIN(fc,fo),IF(KK=-1,MAX(fc,fo),IF(REF(KK,1)=1,MIN(fc,fo),IF(REF(KK,1)=-1,MAX(fc,fo),(fc+fo)/2)))),linethick0;
DRAWNUMBER(ISLASTbar,明,明,2),shift2;
EXPLAINEX(1,'今日轉折價：',REF(明,1),2,0),COLORMAGENTA;
EXPLAINEX(1,'明日轉折價：',明,2,0),COLORCYAN;
EXPLAINEX(KK=1 AND fh>fc,'明日進場點：',H,2,0),COLORMAGENTA;
EXPLAINEX(KK=1 AND fl<fo,'明日出場點：',L,2,0),COLORCYAN;
EXPLAINEX(KK=-1 AND fh>fo,'明日進場點：',H,2,0),COLORMAGENTA;
EXPLAINEX(KK=-1 AND fl<fo,'明日出場點：',L,2,0),COLORCYAN;
EXPLAINEX(KK=0 AND fh>fo,'明日進場點：',H,2,0),COLORMAGENTA;
EXPLAINEX(KK=0 AND fl<fo,'明日出場點：',L,2,0),COLORCYAN;
{裁縫線叫進叫出點}
DRAWICON(KK=1 AND REF(KK,1)=1 AND C>=REF(H,1),fl,8),ALIGN5;
DRAWICON(KK<=0 AND REF(KK,1)<=0 AND C<REF(L,1),fh,9),ALIGN4;
{資金控管解盤公式}
EXPLAIN(1,'資金控管'),COLORYELLOW;
EXPLAIN(漲,'做多上限：75%\n做空上限：5%'),COLORRED;
EXPLAIN(跌,'做多上限：5%\n做空上限：75%'),COLORGREEN;
EXPLAIN(漲=0 AND 跌=0 AND C>=中,'做多上限：20%\n做空上限：5%'),COLORCYAN;
EXPLAIN(漲=0 AND 跌=0 AND C<中,'做多上限：5%\n做空上限：20%'),COLORCYAN;
//控盤線
hl:=ema(h,5);
ll:=ema(l,5);
ch:=cross(c,hl);
cl:=-cross(ll,c);
tf:=if(ch,ch,if(cross(ll,c),cl,0));
ud:=ref(tf,BARSLAST(tf));
控盤線:=if(ud>0,ll,hl);
PARTLINE(1,控盤線),COLORYELLOW,LINETHICK2;
PARTLINE(ud=1 and ref(ud,1)=1,ll),COLORMAGENTA,LINETHICK2;
PARTLINE(ud=-1 and ref(ud,1)=-1,hl),COLORGREEN,LINETHICK2;
DRAWICON(ISLASTBAR AND ud=-1,控盤線,5),SHIFT1;
DRAWICON(ISLASTBAR AND ud=1,控盤線,4),SHIFT1;
DRAWNUMBER(ISLASTBAR,控盤線,控盤線,2),COLORGREEN,SHIFT2;
{解盤}
EXPLAIN(CROSS(C,控盤線),'空翻多\n(多空易位)'),COLORYELLOW;
EXPLAIN(CROSS(控盤線,C),'多翻空\n(多空易位)'),COLORYELLOW;

EXPLAINEX(UD=-1,'空方防守價：',控盤線,2,0),COLORGREEN;
EXPLAINEX(UD=1,'多方防守價：',控盤線,2,0),COLORMAGENTA;
RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K1:=SMA(RSV1,3,1),COLORRED,LINETHICK0;
D1:=SMA(K1,3,1),COLORGREEN,LINETHICK0;
CKUD:=cross(K1,D1);
DRAWICON(CKUD,L,8) pxdn10,COLORwhite;
DRAWICON(CKUD,L,8) pxdn20,COLORwhite;
DRAWICON(CKUD,L,8) pxdn30,COLORwhite;
CKDN:=cross(D1,K1);
DRAWICON(CKDN,H,9) pxup20,COLORwhite;
DRAWICON(CKDN,H,9) pxup30,COLORwhite;
DRAWICON(CKDN,H,9) pxup40,COLORwhite;
收盤價格:CLOSE , Linethick0 , Precision2

如何寫出「收盤價格上穿控盤線」的條件選股公式？

向版主報告此篇 | 查IP位址
Old Post 2025-01-07 22:07
a588 現在離線 點選這裡查看 a588 的個人資料 查找更多關於 a588 的文章 增加 a588 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18121
回覆: 求助

引用:
最初由 a588 發表
請問：
我想依據「天羅地網V1.3版」指標，如何寫出「收盤價格上穿控盤線」的條件選股公式？

STICKLINE(kks2,fo,fc+fofc*3/4,8,0),COLORFFCC00;

{天羅地網公式}
STDS:=STD(CLOSE,N);
MID := MA(CLOSE,N);
天: MID + P*STDS;
羅: MID + (P/2)*STDS;
中: MID;
地: MID - (P/2)*STDS;
網: MID - P*STDS;
{天羅地網方向標記公式}
DRAWICON(ISLASTBAR AND 天 > REF(天,1),天,4),SHIFT1;
DRAWICON(ISLASTBAR AND 天 < REF(天,1),天,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 天 = REF(天,1),天,'='),SHIFT1,COLORBLUE;
DRAWICON(ISLASTBAR AND 中 > REF(中,1),中,4),SHIFT1;
DRAWICON(ISLASTBAR AND 中 < REF(中,1),中,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 中 = REF(中,1),中,'='),SHIFT1,COLORBLUE;
DRAWICON(ISLASTBAR AND 網 > REF(網,1),網,4),SHIFT1;
DRAWICON(ISLASTBAR AND 網 < REF(網,1),網,5),SHIFT1;
DRAWTEXT(ISLASTBAR AND 網 = REF(網,1),網,'='),SHIFT1,COLORBLUE;
{趨勢解盤公式}
多 := KK>0 AND REF(KK,1)>0;
空 := KK<=0 AND REF(KK,1)<=0;
多翻空 := KK<=0 AND REF(KK,1)>00;
空翻多 := KK>0 AND REF(KK,1)<=0;
EXPLAIN(多,'趨勢：多'),COLORRED;
EXPLAIN(空,'趨勢：空'),COLORGREEN;
EXPLAIN(多翻空,'趨勢：多\n(有多翻空反轉訊號)'),COLORCYAN;
EXPLAIN(空翻多,'趨勢：空\n(有空翻多反轉訊號)'),COLORCYAN;
{格局解盤公式}
漲 := (多 AND 天 > REF(天,1) AND 中 > REF(中,1) AND C >= 中) OR (空翻多 AND 天 > REF(天,1) AND 中 > REF(中,1) AND C >= 中);
跌 := (空 AND 中 < REF(中,1) AND 網 < REF(網,1) AND C < 中) OR (多翻空 AND 中 < REF(中,1) AND 網 < REF(網,1) AND C < 中);
EXPLAIN(漲,'格局：漲勢'),COLORRED;
EXPLAIN(跌,'格局：跌勢'),COLORGREEN;
EXPLAIN(漲=0 AND 跌=0,'格局：盤整'),COLORCYAN;
{線型強弱解盤公式}
EXPLAIN(C >= 中,'線型：強'),COLORRED;
EXPLAIN(C <= 中,'線型：弱'),COLORGREEN;
{晴雨表公式}
EXPLAINICON(漲,4);
EXPLAINICON(漲=0 AND 跌=0 AND C>=中,3);
EXPLAINICON(漲=0 AND 跌=0 AND C<中,2);
EXPLAINICON(跌,1);
{轉折價公式}
明:=(fo+fc)/2;
今轉:=IF(KK=1,MIN(fc,fo),IF(KK=-1,MAX(fc,fo),IF(REF(KK,1)=1,MIN(fc,fo),IF(REF(KK,1)=-1,MAX(fc,fo),(fc+fo)/2)))),linethick0;
DRAWNUMBER(ISLASTbar,明,明,2),shift2;
EXPLAINEX(1,'今日轉折價：',REF(明,1),2,0),COLORMAGENTA;
EXPLAINEX(1,'明日轉折價：',明,2,0),COLORCYAN;
EXPLAINEX(KK=1 AND fh>fc,'明日進場點：',H,2,0),COLORMAGENTA;
EXPLAINEX(KK=1 AND fl<fo,'明日出場點：',L,2,0),COLORCYAN;
EXPLAINEX(KK=-1 AND fh>fo,'明日進場點：',H,2,0),COLORMAGENTA;
EXPLAINEX(KK=-1 AND fl<fo,'明日出場點：',L,2,0),COLORCYAN;
EXPLAINEX(KK=0 AND fh>fo,'明日進場點：',H,2,0),COLORMAGENTA;
EXPLAINEX(KK=0 AND fl<fo,'明日出場點：',L,2,0),COLORCYAN;
{裁縫線叫進叫出點}
DRAWICON(KK=1 AND REF(KK,1)=1 AND C>=REF(H,1),fl,8),ALIGN5;
DRAWICON(KK<=0 AND REF(KK,1)<=0 AND C<REF(L,1),fh,9),ALIGN4;
{資金控管解盤公式}
EXPLAIN(1,'資金控管'),COLORYELLOW;
EXPLAIN(漲,'做多上限：75%\n做空上限：5%'),COLORRED;
EXPLAIN(跌,'做多上限：5%\n做空上限：75%'),COLORGREEN;
EXPLAIN(漲=0 AND 跌=0 AND C>=中,'做多上限：20%\n做空上限：5%'),COLORCYAN;
EXPLAIN(漲=0 AND 跌=0 AND C<中,'做多上限：5%\n做空上限：20%'),COLORCYAN;
//控盤線
hl:=ema(h,5);
ll:=ema(l,5);
ch:=cross(c,hl);
cl:=-cross(ll,c);
tf:=if(ch,ch,if(cross(ll,c),cl,0));
ud:=ref(tf,BARSLAST(tf));
控盤線:=if(ud>0,ll,hl);
PARTLINE(1,控盤線),COLORYELLOW,LINETHICK2;
PARTLINE(ud=1 and ref(ud,1)=1,ll),COLORMAGENTA,LINETHICK2;
PARTLINE(ud=-1 and ref(ud,1)=-1,hl),COLORGREEN,LINETHICK2;
DRAWICON(ISLASTBAR AND ud=-1,控盤線,5),SHIFT1;
DRAWICON(ISLASTBAR AND ud=1,控盤線,4),SHIFT1;
DRAWNUMBER(ISLASTBAR,控盤線,控盤線,2),COLORGREEN,SHIFT2;
{解盤}
EXPLAIN(CROSS(C,控盤線),'空翻多\n(多空易位)'),COLORYELLOW;
EXPLAIN(CROSS(控盤線,C),'多翻空\n(多空易位)'),COLORYELLOW;

EXPLAINEX(UD=-1,'空方防守價：',控盤線,2,0),COLORGREEN;
EXPLAINEX(UD=1,'多方防守價：',控盤線,2,0),COLORMAGENTA;
RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K1:=SMA(RSV1,3,1),COLORRED,LINETHICK0;
D1:=SMA(K1,3,1),COLORGREEN,LINETHICK0;
CKUD:=cross(K1,D1);
DRAWICON(CKUD,L,8) pxdn10,COLORwhite;
DRAWICON(CKUD,L,8) pxdn20,COLORwhite;
DRAWICON(CKUD,L,8) pxdn30,COLORwhite;
CKDN:=cross(D1,K1);
DRAWICON(CKDN,H,9) pxup20,COLORwhite;
DRAWICON(CKDN,H,9) pxup30,COLORwhite;
DRAWICON(CKDN,H,9) pxup40,COLORwhite;
收盤價格:CLOSE , Linethick0 , Precision2

如何寫出「收盤價格上穿控盤線」的條件選股公式？


//控盤線
hl:=ema(h,5);
ll:=ema(l,5);
ch:=cross(c,hl);
cl:=-cross(ll,c);
tf:=if(ch,ch,if(cross(ll,c),cl,0));
ud:=ref(tf,BARSLAST(tf));
控盤線:=if(ud>0,ll,hl);
選中:cross(C,控盤線);

向版主報告此篇 | 查IP位址
Old Post 2025-01-08 09:58
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為20:12 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們