View mod_fft.f90
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function fftfreq(st, block) | |
implicit none | |
real*8, intent(in) :: st(:) ! sample time | |
integer, intent(in) :: block | |
real*8 :: fftfreq(size(st)) | |
integer*4 :: n, i | |
real*8 :: t |
View mod_io.f90
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
subroutine load_txt_data_1d_d(d, f) | |
implicit none | |
real*8, intent(out) :: d(:) ! array of text data | |
character(*), intent(in) :: f ! chanel file name | |
open(51, file=trim(f), status='old', action='read') | |
read(51, *) d | |
close(51) | |
endsubroutine |
View mod_io.f90
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
subroutine load_bin_data_1d_r(d, f) | |
implicit none | |
real*4, intent(out) :: d(:) ! array of binary data | |
character(*), intent(in) :: f ! chanel file name | |
integer*4 :: n | |
n = size(d) | |
open(51, file=trim(f), status='old', form='unformatted', & |
View pressure.m
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
% Plot chanel 9 of config [5 6] | |
loglog(freqt(1:block/2), permute(x(1:block/2,9,[5 6]), [1,3,2])); | |
% Plot chanel [8 9 10] of config 6 | |
loglog(freqt(1:block/2), x(1:block/2,[8 9 10],6)); |
View pressure.m
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
% Hanning Windows | |
window = (0:block-1)'; %' Mwhaa Sublime :)) | |
window = 0.5*(1-cos(2*pi*window/(block-1))); |
View .vimrc
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
" LaTeXForwadSearch {{{ | |
function! LaTeXForwadSearch() | |
silent! execute '!"C:\Applications\SumatraPDF\SumatraPDF.exe -reuse-instance ' \ | |
. expand('%:p:r') . '.pdf -forward-search ' . expand('%:p') . ' ' . line('.') . '"' | |
" This line is reverse search for SumatraPDF | |
"C:\Users\Link\Dropbox\Applications\Vim\gvim.exe" --remote-silent +"%l|norm zz" "%f" | |
endfunction | |
" }}} |
View gfortran_compiler_make.vim
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
set efm=%-Ggfortran%.%#,%A%f:%l:,%A%f:%l.%c:,%A%f:%l:,%C,%C%p%*[0123456789^],%Z%trror:\ %m,,%Z%tarning:\ %m,%C%.%#,%-Gmake%.%# |
View subr
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
wget -O /usr/local/bin/subr https://raw.githubusercontent.com/aurora/rmate/master/rmate | |
chmod +x /usr/local/bin/subr | |
if ! which subl 2>&1 > /dev/null; then | |
ln -s /usr/local/bin/subr /usr/local/bin/subl | |
fi |
View hackerWeb.js
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
javascript:(function hackerWeb (len) { | |
if (window.location.href.match('https://news.ycombinator.com')) { | |
window.location.href = window.location.href.replace('https://news.ycombinator.com/item?id=', 'http://cheeaun.github.io/hackerweb/#/item/'); | |
} else { | |
var a = document.querySelectorAll('a'); | |
if (len != a.length) { | |
Array.prototype.forEach.call(a, function(e) { | |
var href = e.getAttribute('href'); | |
href && e.setAttribute('href', href.replace('https://news.ycombinator.com/item?id=', 'http://cheeaun.github.io/hackerweb/#/item/')); | |
}); |
View gender.txt
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Emma Watson seems nervous at first, but I can see coherence in her speech. She starts with her own experience with her family, her school then her confession of a feminist with her male friend then to a bigger picture: Human rights, where people, men an women perceive the same rights, same opportunities in their life. | |
As she stated in her speech, no country at the moment achieves gender equality and it doesn't seem to change much from the talk of Hilary Clinton in 1997. She also mentions that it maybe due to the fact that there was too few men who participate the campaigns. | |
Having a look on the map of HeForShe, I found however, the more men's votes in US and Europe, the less votes on Africa. Is this the answer why do we have Angela Merkel as Chancellor of Germany or Marissa Mayer as CEO of Yahoo! when here are many women out there doing the job no men do in Jordan or even having no ID card in Guatemala? |
OlderNewer