study_memo
2013年9月9日 星期一
2013年5月16日 星期四
分享 古人的智慧
簡體字
在電腦上看 可以google "chrome 簡轉繁" 或 "firefox 簡轉繁"
分享
--------------
跑姿
http://www.sportsnote.com.tw/ running/view_article.aspx?id= 9e6000f1-554c-4e56-b50c- 39058ee42ef6
經典古文 pdf
http://iask.sina.com.cn/u/ 1948618260/ish (知識人)
老子他說 (南懷瑾)
http://www.quanxue.cn/CT_ NanHuaiJin/LaoZiIndex.html (勸學網)
易經雜說
http://big5.dushu.com/ showbook/101145/ (讀書網)
中庸白話
http://www.dfg.cn/big5/chtwh/ ssjz/2-zhongyongjinghua.htm (大方廣)
人體使用手冊
http://su5118.myweb.hinet.net/ Handbook.htm
崔介忱
床上保健功
http://www.youtube.com/watch? v=5Z4caCs3lj0
健康兩點靈
http://www.youtube.com/watch? v=FoEZcgVF65U
google "原始點"
----------------
在電腦上看 可以google "chrome 簡轉繁" 或 "firefox 簡轉繁"
分享
--------------
跑姿
http://www.sportsnote.com.tw/
經典古文 pdf
http://iask.sina.com.cn/u/
老子他說 (南懷瑾)
http://www.quanxue.cn/CT_
易經雜說
http://big5.dushu.com/
中庸白話
http://www.dfg.cn/big5/chtwh/
人體使用手冊
http://su5118.myweb.hinet.net/
崔介忱
床上保健功
http://www.youtube.com/watch?
健康兩點靈
http://www.youtube.com/watch?
google "原始點"
----------------
2012年12月13日 星期四
cluster compiler 注意事項
gcc -O3 -lm -o 3d_ladder randistrs.c mtwist.c 3d_ladder.c
--
all:
gcc -lm -O3 -o sse_unconvention mtwist.c randistrs.c sse_unconvention.c
gcc -lm -O3 -o sse_unconvention mtwist.c randistrs.c sse_unconvention.c
run:
./sse_unconvention 20.0 1.0 10 10 1 10000 200000 50 A B C D E F
---
./sse_unconvention 20.0 1.0 10 10 1 10000 200000 50 A B C D E F
---
!NOTE
若make 出現 error 直接使用上述指令
make
make: Warning: File `Makefile' has modification time 1.1e+03 s in the future
gcc -lm -O3 -o 3d_ladder mtwist.c randistrs.c 3d_ladder.c
make: warning: Clock skew detected. Your build may be incomplete.
2012年12月10日 星期一
透過 putty 使用 X11 轉遠端畫面到本機顯示
Xming
步驟 :
安裝 Xming
執行 XLaunch
下一步到底
右下角會出現黑色X
執行 putty
Connection → SSH → Enable X11 forwarding 打勾 → 底下輸入 localhost:0
正常連入 SSH
輸入指令 ex.firefox
搞定
ref
http://jakson.idv.tw/joomla/index.php?option=com_content&view=article&id=183:-putty-x11-&catid=63:linux-program&Itemid=121
2012年11月22日 星期四
mathematica 陣列 放入 自訂變數函數
被括號搞死{ }
c1[{Lx_, Ly_, Lz_, beta1_, beta2_}] := (Lx*Ly*Lz)^(1/3)/beta1
c2[{Lx_, Ly_, Lz_, beta1_, beta2_}] := (Lx*Ly*Lz)^(1/3)/beta2
J3ab = {32, 32, 44, 15.25, 15.342};
J3c = {32, 32, 44, 15.25, 15.45};
J325 = {24, 24, 32, 11.35, 11.45};
J35 = {34, 34, 46, 15.95, 16.05};
J375 = {22, 22, 30, 10.22, 10.32};
J4 = {32, 32, 44, 14.48, 15.18};
c1[{Lx_, Ly_, Lz_, beta1_, beta2_}] := (Lx*Ly*Lz)^(1/3)/beta1
c2[{Lx_, Ly_, Lz_, beta1_, beta2_}] := (Lx*Ly*Lz)^(1/3)/beta2
J3ab = {32, 32, 44, 15.25, 15.342};
J3c = {32, 32, 44, 15.25, 15.45};
J325 = {24, 24, 32, 11.35, 11.45};
J35 = {34, 34, 46, 15.95, 16.05};
J375 = {22, 22, 30, 10.22, 10.32};
J4 = {32, 32, 44, 14.48, 15.18};
c1[J3ab] 收工
但應該有更聰明的辦法
2012年11月19日 星期一
fortran & random_seed
program test_seed
implicit none
real x
integer jj
call init_random_seed()
do jj=1,10
call random_number(x) ! initial 之後 再call 即為 random ~~@@
write(*,*) x
enddo
end program
subroutine init_random_seed()
INTEGER :: i, n, clock
INTEGER, ALLOCATABLE :: seed(:)
CALL RANDOM_SEED(size = n)
ALLOCATE(seed(n))
CALL SYSTEM_CLOCK(COUNT=clock)
seed = clock - 2047 * (/ (i - 1, i = 1, n) /)
seed = seed * 1103515245 + 2531011
CALL RANDOM_SEED(PUT = seed)
DEALLOCATE(seed)
end subroutine
----------------------------------------
program random_test
implicit none
real*8 :: x(10)
! call random_seed()
call init_random_seed() !<- this line is for GFortran
call random_number(x)
write(*,'(F21.18)') x
end program
2012年11月16日 星期五
訂閱:
文章 (Atom)