locked
可以幫我的忙嗎? RRS feed

  • 一般討論

  • 以下是用"心理線指標(psy)" 程式碼的寫法
    我事了很多方法改成"威廉指標(WMS%R)"
    都有錯誤反而讀不出來
    要怎麼用以下的寫法改呢
    (3500,5) 是固定的

    1. Sub PsyMacro() Dim k, k1, UpCount As Integer
    2. Dim Psy(3500, 5) As String 'Date, Return, U/D, PsyValue, Deci
    3. Dim CBuf(3500) As Variant
    4. k1 = 0
    5. k = 0
    6. For i = 1 To RecordNo
    7.     If Stock_D(i, 7) >= 0 Then CBuf(i) = 1 Else CBuf(i) = 0
    8.     If (Stock_D(i, 1) >= BeginD And i >= TP_P) And Stock_D(i, 1) <= EndD Then
    9.         k = k + 1
    10.         Psy(k, 1) = Stock_D(i, 1)
    11.         Psy(k, 2) = Stock_D(i, 7)
    12.         If Psy(k, 2) >= 0 Then Psy(k, 3) = "1" Else Psy(k, 3) = "0"
    13.         UpCount = 0
    14.         For j = 1 To TP_P
    15.             UpCount = UpCount + CBuf(i - j + 1)
    16.         Next j
    17.         Psy(k, 4) = UpCount / TP_P
    18.         If Psy(k, 4) <= LB_P Then
    19.             Psy(k, 5) = "1"
    20.         ElseIf Psy(k, 4) >= UB_P Then
    21.             Psy(k, 5) = "3"
    22.         Else
    23.             Psy(k, 5) = "2"
    24.         End If
    25.         If i >= F_R Then
    26.             k1 = k1 + 1
    27.             PTDeci(k1, 1, R_I + 3) = Psy(k, 5)
    28.         End If
    29.     End If
    30. Next i
    31. Open "C:\TestPSY" + StockI + ".csv" For Output As #1
    32. For i = 1 To k
    33.     Print #1, Psy(i, 1); ","; Psy(i, 2); ","; Psy(i, 3); ","; Psy(i, 4); ","; Psy(i, 5)
    34. Next i
    35. Close #1
    36. End Sub

    2012年6月10日 上午 11:17

所有回覆

  • 1. 程式碼你改寫的,當然應該你來解釋。

    2. 各類指標為專屬用途,應介紹計算法,如果等網友自己搜尋... 找人家麻煩的,不會有人理你的。

    3. 基本邏輯請說清楚。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2012年6月10日 下午 12:04
  • 你寫的程式, 然後要別人標示意思, 這只有兩種狀況:

    (1) 你是我們的老師, 出作業給我們寫

    (2) 你騙人, 這程式根本不是你寫的.


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2012年6月10日 下午 03:14
    版主
  • 你有仔細看我的訴求嗎?

    我一開始要的是用我寫的方式寫成"威廉指標"後註解

    又不是把上面的全部做註解~

    因為我已經說明了~我自己改完後根本讀不出來

    2012年6月10日 下午 03:45
  • 我仔細看了,不過

    那些是你寫的,哪些是你改的,完全看不出來。

    哪些是修改前,哪些是修改後,完全看不出來。


    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2012年6月10日 下午 05:12
  • Dim Psy(3500, 5) As String 'Date, Return, U/D, PsyValue, Deci

    這些數據 威廉無法直接使用 @@

    威廉指標(Williams Overbought/Oversold Index)

     

    威廉指標之定義

     

    由美國人賴利.威廉斯(Larry Williams)在1973年出版的"我如何賺到100萬(How I Made A Million Dollars)"一書中所發明,當時稱為威廉超買超賣指標(Williams Overbought/Oversold Index),簡稱威廉%R,是判斷個股在某一段時間內超買超賣狀況的有效指數。

     

    公式:


    %R= [ (收盤價-n日之最高價)/(n日內最高價-n日最低價) ] x 100

    常用參數:5日、8日、13日、21日及34日。(威廉指標可設定二或三條不同參數來同步觀察其變化)

    範圍:0至-100(請注意:本指標的極大值為0、極小值為-100,與其他的擺盪指標有很大的不同)。


     

    威廉指標之研判原則

     

    可判斷買賣超狀況、買賣訊號及多空趨勢。
    1.以%R所在的位置,來判斷買賣超狀況:
    (a) %R在-80以下為超賣區。
    (b) %R在-20以上為超買區。

    2.以%R突破(或跌破)超賣區(或超買區)的狀況,來判斷買賣訊號:
    (a) %R由超賣區突破-80為買進訊號,例如由-85變成-75時買進。
    (b) %R由超買區跌破-20為賣出訊號,例如由-15變成-25時賣出。

     

    3.利用%R及股價之背離現象作為買、賣訊號。

     


    Cmf.Net (C) 2011

    2012年6月11日 上午 12:43
  • 不好意思,老師,我不知道什麼是 "心理線指標(psy)"

    大家一齊探討、學習和研究,謝謝!
    MCSD, MCAD, MCSE+I, MCDBA, MCDST, MCSA, MCTS, MCITP, MCPD,
    MCT, Microsoft Community Star(TW & HK),
    Microsoft MVP for VB.NET since 2003
    My MSMVP Blog

    2012年6月11日 上午 02:03
  • 看來這位老師,是投資銀行的高手。

    大家一齊探討、學習和研究,謝謝!
    MCSD, MCAD, MCSE+I, MCDBA, MCDST, MCSA, MCTS, MCITP, MCPD,
    MCT, Microsoft Community Star(TW & HK),
    Microsoft MVP for VB.NET since 2003
    My MSMVP Blog

    2012年6月11日 上午 02:05
  • 小組PsyMacro()DIM K,K1,將作為整數UpCount
    昏暗的精神科3500,5)由於String的日期,返回U / D,PsyValue,決定
    為Variant的的暗淡CBuf(3500)
    K1 =0
    K = 0
    對於i =1至RecordNo
        如果Stock_D我,(7)> = 0然後CBuf(一)= 1的品CBuf(I)= 0
        如果(Stock_D(I,1)>= BeginD和I>= TP_P),而Stock_D(I,1)<= EndD然後
            K = K +1
            PSY(K,1)= Stock_D(I,1
            PSY(K,2)= Stock_D(一,7)
            如果psy(K,2)> = 0,然後精神科(K,3)=“1”,否則精神科(K,3)=“0
            UpCount=0
            J =1 TP_P
                UpCount= UpCountCBuf(I - J + 1
            下一步j
            PSY(K,4)= UpCountTP_P
            如果精神科K,(4)然後<LB_P
                PSY(K,5)=“1
            ELSEIF精神科K,(4)>= UB_P然後
                PSY(K,5)=“3
            其他
                PSY(K,5)=“2
            結束如果
            如果i>= F_R然後
                K1= K1 +1
                PTDeci R_I(K1,1+3)=精神科(K,5)
            結束如果
        結束如果
    接下來,我
    打開“C:\ TestPSY”輸出為#1+ StockI+“CSV
    對於i = 1到K
        打印#1,PSY(I,1);“,精神科(I,2;“,精神科(I,3);“,精神科(I,4);“,精神科(一,5)
    接下來,我
    關閉#1
    END SUB

    翻好了, 請給分.

    2012年6月11日 上午 02:34
  • 你有仔細看我的訴求嗎?

    我一開始要的是用我寫的方式寫成"威廉指標"後註解

    又不是把上面的全部做註解~

    因為我已經說明了~我自己改完後根本讀不出來

    解釋清楚邏輯是發問者的責任, 難不成你認為我們應該要懂這些啥指標的, 基本上, 我就完全不懂這兩個指標是在幹嘛的, 它們和我的專業也一點關係都沒有. 以你這樣的邏輯, 那如果有一天是學量子物理的人來問關於量子物理算式的程式, 我們不就得又要去學量子物理 ?

    如果你連發問都不會, 麻煩先看一下以下的文

    張貼文章應注意事項及應提供資訊


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2012年6月11日 上午 03:02
    版主
  • 以下是用"心理線指標(psy)" 程式碼的寫法
    我事了很多方法改成"威廉指標(WMS%R)"
    ....
    ....

    "我事了" 還是 "我試了"?


    大家一齊探討、學習和研究,謝謝!
    MCSD, MCAD, MCSE+I, MCDBA, MCDST, MCSA, MCTS, MCITP, MCPD,
    MCT, Microsoft Community Star(TW & HK),
    Microsoft MVP for VB.NET since 2003
    My MSMVP Blog

    2012年6月11日 上午 03:40
  • 為避免繼續引起爭議,

    請發問者先參考 

    說明清楚你的問題為何,這裡是Visual Basic程式技術討論區,

    並非每個人都學過或認識心理線指標或威廉指標等等,如有需要,也請提供相關的資料,
    例如心理線指標或威廉指標的公式為何,以及你說你是由心理線指標所改寫的,
    那也可以附上原本心理線指標的程式為何,以供大家參考,或許大家也可以從這些資訊中,
    幫助你尋找出你的疑問,或是問題為何。

    在此將文章鎖定,請發問者重新整理並張貼發問文章。


    Windows 7 技術支援中心 - 在這裡全部都找得到!

    2012年6月11日 下午 01:57
    版主