2010年2月17日 星期三

輸出訊號

http://www.yassersoft.com/?menu=CFORUM_VIEW_ARTICLE&fid=2&sid=2185


Wealth-Lab 產生指令檔程式碼範例

在主程式的 for 迴圈當中,加上
if (Bar = BarCount-1) then
 begin
  var sFile : String;
  sFile := IntToStr(GetYear(Bar)) + '/' + IntToStr(GetMOnth(Bar)) + '/' + IntToStr(GetDay(Bar))+ ' ' + IntToStr(GetHour(Bar))+':'+IntToStr(GetMinute(Bar))+' '+IntToStr(marketposition)+' '+FloatToStr(PriceClose(Bar))+Chr(13)+Chr(10);
  FileWrite(FileCreate('C:\cur_cmd.txt'),sFile);
 end

其中PriceClose(Bar)回傳的值不是精準的整數,晚點想辦法。

2010年2月11日 星期四

分線中取日線資料

//先宣告一個陣列
Array:MyArray[84](-1)
VALUE2=HighOfDay(1,MyArray)//這就是昨天的日線高點
VALUE5=LowOfDay(1,MyArray)//這就是昨天的日線低點

2010年2月9日 星期二

欠缺得幸福

欠缺得幸福。
沒錯,不是欠缺幸福。
曾經窮困潦倒,曾經什麼都沒有的人,當有天得到他要的不管什麼,那種幸福感是筆墨難以形容的。

現代人有些不幸,生長在物資豐沛的年頭,許多長輩又捨得節縮自己,成全子女的需求,晚輩的生命歷程中,少了欠缺的對比,自然;那天賜幸福的泉源就枯竭了。

2010年2月6日 星期六

六度萬行

佛家說的六度萬行,我們到底是要度別人或度自己呢?

有人說: 當然是要度自己啊。

我說: 要度別人啦。因為我們認為的自己,其實只是別人。

除非; 您已經知道自己是誰,而我, 是還不知道啊!

2010年2月4日 星期四

因果

許多人並不信三世因果輪迴之說,其實; 怎可不信呢?

它不都呈現在世人眼前了嗎?

你曾聽人說: 呼叫他養的寵物為妹妹、乖兒子、…… 的吧。

即使向別人打招呼時,也會使喚他的寵物對他人: 跟姨說Bye-Bye、跟伯伯親一個、……

這世界怎麼了? 就是這樣啊! 六道輪迴啊,恐怖得很ㄋㄟ,快修行啊!

2010年2月2日 星期二

造物主快失業了

如果這個宇宙是由一個最高的造物主所創造和主宰,

那麼; 現代人真的搶了太多造物主的工作,例如:

試管嬰兒、同株多類稼接的水果、人造雨/雪、……

再下去,失業的就不只是人了。

2010年1月29日 星期五

限定交易次數

if Barssinceentry(0)=0 and MarketPosition !=0 then

 Value1 = Value1 + 1
end if

if 你自己的交易條件 adn Value1<=2 then
 buy…
 sell…
end if

if time[1]=134500 then
 Value1=0
end if

2010年1月25日 星期一

停損在 this bar

有個指令可以讓你使用停損在 this bar,那就是 BarsSinceEntry,

0為進場點,進場點為第一根,大於零表示從進場後第二根起算。

例子:
IF Close < EntryPrice(0)-10 AND BarsSinceEntry(0) > 0 THEN
 ExitLong this bar at market
END IF

正確的停損(HTS版)

If marketposition = 1 then

 exitlong at XXX stop
end if
if marketposition = -1 then
 exitshort at XXX stop
end if

有夠假

據書上說;

人因為迷失了本性而認假為真,把意識思惟、言行舉止當作我(在這裡已經假了一回),

卻還常為 SOCIAL 的緣故而說場面話,聽在旁人耳中,真的有夠假。

粉飾

許多人都知道黑金剛花生好吃以後,你就會很容易買到它;
不是產量突然多了,而是有人動了手腳,以染色代替栽植! XO*XX!$O......

2010年1月24日 星期日

漲跌停出場

vars: CloseOfD1[0]
array: CofD1[84](-1)
CloseOfD1 = CloseOfD(1, CofD1)
// 0.93 -> 0.935,1.07 -> 1.065
if MarketPosition <> 0 and (close < CloseOfD1 * 0.93 or close > CloseOfD1 * 1.07) then
 exitlong this bar at market
 existshort this bar at market
endif