- 博客(17)
- 资源 (1)
- 收藏
- 关注
RSS订阅转载 再牛逼的伟人，也有苦逼的青春
摘要: 1874年，某个十六岁的德国青年中学毕业，成绩在全班23人中也只排在第八，老师们对他的印象是该生除过人品好之外，实在看不出其他任何的才华和天赋，聊以自慰的是他和药家鑫同学一样都有一手保命的技能---弹钢琴。但是，青年却抛弃了键盘系这个很有前途的专业，毅然决然... 1874年，某个十六岁的德国青年中学毕业，成绩在全班23人中也只排在第八，老师们对他的印象是该生除过人品好之外
2011-11-24 11:08:34
444
转载 拖沓症
<br /> Procrastination is a complex psychological behavior that affects everyone to some degree or another. With some it can be a minor problem; with others it is a source of considerable stress and anxiety. Procrastination is only remotely related to time
2011-05-28 13:12:00
707
原创 有点乱，捋捋思路
<br />还有3周时间到6.20号<br />主要关注PSO & MOPSO, 优化到文献中描述的速度！！！shit<br />次要：Computational Physics(MATH)<br />收尾工作做好
2011-05-28 11:56:00
824
原创 亚当高斯消元法解线性方程组
<br />PROGRAM hw<br />IMPLICIT NONE<br />INTEGER,PARAMETER::DBL=SELECTED_REAL_KIND(p=13)<br />REAL(KIND=DBL),ALLOCATABLE,DIMENSION(:,:)::a<br />REAL(KIND=DBL),ALLOCATABLE,DIMENSION(:)::b<br />REAL(KIND=DBL),ALLOCATABLE,DIMENSION(:)::soln<br />INTEGER::IO_s
2011-05-26 23:29:00
3395
原创 两种排序算法 插入排序 和冒泡排序：插入排序要比冒泡快2倍以上
<br /><br />! Insertion sort<br />SUBROUTINE sortc(array,n)<br />IMPLICIT NONE<br />INTEGER,INTENT(IN)::n<br />CHARACTER(LEN=*),DIMENSION(n),INTENT(INOUT)::array<br />! local var<br />INTEGER::i, j, iptr<br />CHARACTER(LEN=LEN(array))::temp<br />! sort the
2011-05-26 13:21:00
1009
转载 何时在声明函数时使用EXTERNAL
<br /><br />EXTERNAL is neededin a variety of situations: <br />- If you pass asubroutine name to a subroutine and there is no explicit interface (as wasthe case in FORTRAN 77), EXTERNAL makes it clear to the compiler asubroutine is meant.<br />- I
2011-05-24 15:32:00
4160
原创 Fortran 从文件中读取数据放入数组中，然后对其进行bubble sort，使用了一些方法防止人为错误
PROGRAM hw_bubble_sortIMPLICIT NONEINTEGER,PARAMETER::SIZE=200INTEGER::IO_stateCHARACTER(LEN=128)::IO_msgCHARACTER(LEN=128)::format_str,temp_strREAL,DIMENSION(SIZE)::arrayINTEGER::loop_index,i,j,iptrCHARACTER(LEN=128)::file_nameREAL::temp
2011-05-23 16:46:00
3957
1
原创 Fortran 以表格形式输出数据
<br /><br />PROGRAM hw_table<br />IMPLICIT NONE<br />INTEGER::i<br />INTEGER::cube<br />INTEGER::square<br />REAL::square_root<br /> WRITE(*,100)<br /> 100 FORMAT(T3, 'Table of Square Roots, Squares, and Cubes')<br /> WRITE(*,110)<br /> 110 FOR
2011-05-22 18:00:00
2990
原创 Fortran 输出， 在运行时决定变量所占的位置
!使用字符串来描述格式PROGRAM hwIMPLICIT NONECHARACTER(LEN=128)::str_format !!!highlightINTEGER::num_i=21REAL::num_r=3.1415926 str_format='("The Result for iteration",I3," is",F8.5)' WRITE(*,str_format) num_i,num_r END PROGRAM
2011-05-22 10:59:00
908
原创 Fortran 提示用户输入，并检测用户输入是否正确
PROGRAM hwIMPLICIT NONEINTEGER::IO_stateCHARACTER(LEN=128)::IO_msgINTEGER::input_i WRITE(*,*) 'Input an integer:' IO_state=-1 IO_msg='' DO IF(IO_state==0) EXIT READ(*,*,IOSTAT=IO_state,IOMSG=IO_msg) input_i WRITE(*,*) TRIM(
2011-05-17 11:31:00
882
原创 如何调用MKL
1. 确定MKL 已经安装，并且找到mklvars32.sh 或者mklvars64.sh等 配置环境变量文件，也可以通过在.bashrc 文件中加入 .[空格]/opt/intel/Compiler//11.1/046/mkl/tools/environment/mklvars32.sh， 可以在启动终端时自动设置环境变量。2.
2011-03-29 17:40:00
3043
原创 Fortran 过程 杂记
1。 fortran 程序还可他的子程序之间用地址传递方案（pass by reference）来进行通信2。 应该在模块中使用SAVE属性来确保使用时不修改模块的内容3。 在module中使用过程可以不用写interface。。。只需要use关联， 因而，可以把相关的子过程放在一个module里
2011-03-18 17:38:00
430
原创 OpenMP 编译器
1 2 PROGRAM test_select_sort 3 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 4 ! Purpose: To test the subroutine or function select_sort ! 5 ! Record of revisions:
2011-03-18 16:13:00
550
原创 Fortran 数组
数组初始化3种方法1。 DO 循环2。 类型声明中初始化， 可以使用在声明时使用隐式DO循环 例如：INTEGER，DIMENSION（5）：：array1＝(/(loop_index,loop_index=1,5)/) 隐式DO循环还可以与常量嵌套和混合： INTEGER, DIMENSION(100)::array2=(/((0, i=1,4), 5*j, j=1,5)/)3。 使用READ语句初始化
2011-03-18 16:09:00
1122
原创 Fortran 组合逻辑运算符
1 .AND.2 .OR.3 .EQV. (l1 和 l2 同为真或者同为假时 值为真)4 .NEQV.5 .NOT.
2011-03-16 16:39:00
4296
原创 matlab 画图
aq=-pi:0.1:pi;w=abs(sin(.5*aq));p=plot(aq,w,'--s');xlim([-pi, pi]);set(gca,'XTick',-pi:pi/2:pi)set(gca,'XTickLabel',{'-pi','-pi/2','0','pi/2','pi'})xlabel('a*q')ylabel('w')set(p, 'color', 'red', 'Linewidth', 2)
2011-03-10 22:47:00
477
转载 Ruminations on C++ code snipets
#include #include using namespace std;class Expr_node;class Expr{ friend ostream& operator
2010-12-11 10:47:00
490
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人