股市週期網 StockCycle

股市週期網 StockCycle

技術一線天

發表回覆

注意：回覆文章之前必須先註冊成會員。註冊請按註冊會員。註冊是完全免費的！

用戶名稱： 註冊會員？

安全密碼： 忘記密碼？

發表模式：

  字體：   字級：   顏色：

文章內容：

* HTML 語法關閉
* CODE 語法關閉
* FLASH 語法關閉
* MEDIA 語法關閉
* RealPlay 語法關閉
* UBB 語法開啟
* 隱藏文章語法關閉

進階編輯器：『股市週期網 HTML 編輯器』、『 ASCII字型產生器』、『取代文字』。
選擇模式： 幫助完全基本　　>> 複製到剪貼簿｜查詢文章字數 <<

   點選表情圖示即可在文章中加入相應的表情。　>> 更多表情符號 <<

附加選項：    是否顯示您的簽名？
   有新回覆時使用郵件通知您？

文　章　主　題：HTS當沖七關價(改良CDP&三關價)

world5168 2006/01/30 23:18:53

888888888888888
這篇文章最後由 world5168 在 2006/08/13 10:46:32 重新編輯。

karst 2008/12/28 18:20:08

Parameter:顯示偏移(30),劃線(0)
Variables:PT(0),CDP(0),H1(0),H2(0),H3(0),L1(0),L2(0),L3(0)
Array:  OoD[84](-1), HoD[84](-1), LoD[84](-1), CoD[84](-1)
Value91= OpenOfD (2, OoD)
Value92= HighOfD (2, HoD)
Value93= LowOfD (2, LoD)
Value94= CloseOfD(2, CoD)
//自動偵測前日高低
if CoD[2]>LoD[1] then
value1=HoD[1]
value2=LoD[1]
else
//向上跳空缺口
value1=HoD[1]
value2=CoD[2]
end if
if CoD[2] value1=HoD[1]
value2=LoD[1]
else
//向下跳空缺口
value1=CoD[2]
value2=LoD[1]
end if
//（收盤價+高+低為基準修正三關價＆CDP )
PT =value1-value2
CDP=(value1+value2+CoD[1])/3
H3=(CDP-value2)*2+value1
H2=CDP + PT
H1=CDP*2-value2
L1=CDP*2-value1
L2=CDP-PT
L3=(CDP-value1)*2+value2
//**********今七關***********************
Draw1(H3 ,"H3" , RED,1,2)
Draw2(H2 ,"H2" , MAGENTA,1,1)
Draw3(H1 ,"H1" , BLUE,1,1)
Draw4(CDP,"CDP", DARKGray,1,2)
Draw5(L1 ,"L1" , BLUE,1,1)
Draw6(L2 ,"L2" , MAGENTA,1,1)
Draw7(L3 ,"L3" , GREEN,1,2)

IF LastBarOnChart THEN
Value99=TXT_New( Date,Time,H3,space(顯示偏移)+NumToStr(H3,1)+" H3")
TXT_SetColor( Value99,RED)
VALUE99=TXT_New( Date,Time,H2,space(顯示偏移)+NumToStr(H2,1)+" H2")
TXT_SetColor( Value99,MAGENTA)
VALUE99=TXT_New( Date,Time,H1,space(顯示偏移)+NumToStr(H1,1)+" H1")
TXT_SetColor( Value99,BLUE)
VALUE99=TXT_New( Date,Time,CDP,space(顯示偏移)+NumToStr(CDP,1)+" CDP")
TXT_SetColor( Value99,DARKGray)
VALUE99=TXT_New( Date,Time,L1,space(顯示偏移)+NumToStr(L1,1)+" L1")
TXT_SetColor( Value99,BLUE)
VALUE99=TXT_New( Date,Time,L2,space(顯示偏移)+NumToStr(L2,1)+" L2")
TXT_SetColor( Value99,MAGENTA)
VALUE99=TXT_New( Date,Time,L3,space(顯示偏移)+NumToStr(L3,1)+" L3")
TXT_SetColor( Value99,GREEN)
end if
//*********明七關*******************
PT =HoD[0]-LoD[0]
CDP=(HoD[0]+LoD[0]+CoD[1])/3
H3=(CDP-LoD[0])*2+HoD[0]
H2=CDP + PT
H1=CDP*2-LoD[0]
L1=CDP*2-HoD[0]
L2=CDP-PT
L3=(CDP-HoD[0])*2+LoD[0]
IF LastBarOnChart THEN
TXT_New( Date,Time,H3 ,space(顯示偏移+20)+NumToStr(H3,1) +" H3")
TXT_New( Date,Time,H2 ,space(顯示偏移+20)+NumToStr(H2,1) +" H2")
TXT_New( Date,Time,H1 ,space(顯示偏移+20)+NumToStr(H1,1) +" H1")
TXT_New( Date,Time,CDP,space(顯示偏移+20)+NumToStr(CDP,1) +"明*CDP")
TXT_New( Date,Time,L1 ,space(顯示偏移+20)+NumToStr(L1,1) +" L1")
TXT_New( Date,Time,L2 ,space(顯示偏移+20)+NumToStr(L2,1) +" L2")
TXT_New( Date,Time,L3 ,space(顯示偏移+20)+NumToStr(L3,1) +" L3")
end if
//------------若..劃線=0 不顯示價位線
if 劃線=0 Then
For value20 = 1 to 7
NoDraw(value20)
End for
end if
有問題不知道是怎裡出了錯
有人可以指導一下嗎

karst 2008/12/28 16:09:53

謝謝大大無私分享小弟是剛入手hts

本網站訊息內容著作權及責任歸作者所有,不作為投資決策依據,版權所有禁止未經授權轉貼節錄。
本網站發表言論純屬發表者個人意見，與 股市週期網 StockCycle 立場無關。
本網站所有的標籤與註冊商標由原創作者所有，本站僅提供連結，不代表擁有版權，如有侵權，請通知【站長】移除。