- 博客(21)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 Fortran 动态分配数组
program main integer a(3,3) integer ,allocatable :: arr_out(:,:) data a /1,2,0,3,4,0,0,0,0/ integer src_size, desc_size write(*,*) 'src_arr', a src_size=3 desc_size=2 all
2016-03-31 16:12:50
7687
原创 Fortran 续行符
固定格式是在第6列,用任意非0字符表示是续行,行末没有标志。自由格式是在行尾用&表示下一行是续行, 续行的行首没有标志。
2016-03-31 16:09:01
19654
1
原创 Fortran 当数组大小不一样时，会出现什么情况。
如果 数组 arr 是2*2的，如 1,3 2,4调用子程序 fun()但是子程序里面的数组的长度和外面的数组不匹配时， 就会可能不是你想要的结果。这里分成两种情况，情况1， 函数里面比外面的小。 如 将 2*2 的数组，传入 3*3的数组。 2*2是这样的： 1,3 2,4那么 3*3就会变成 1，4，0 2，0，0 3，0，0这是因为数组中数据的存放导致的。情况2，将大数组
2016-03-31 11:32:59
1697
原创 Fortran 自定义类型 KIND
integer areal tmptmp = real(a)a = int(tmp)通过函数 INT（） ,将数据转换成整数。F90 自定义数据类型。相当于 struct 或者class type :: person integer :: age integer:: heightend type person声明的时候，type(person) :: mewrite(,)
2016-03-30 17:35:15
7511
原创 Python 十进制到六进制
def ten_to_6(x): output = "" ret = x/6 leave = x%6 if ret == 0: return str(leave) xxx = ten_to_6(ret) output = xxx + str(leave) return outputprint ten_to_6(265)
2016-03-30 17:04:46
1627
1
原创 Fortran 子程序
subroutine 如果子程序中的数组，明确声明了数字的大小 ，那么 ，就按照 声明的大小来处理。问题来了， 子程序可不可以，不指定大小，让数组从外面传递进来呢？
2016-03-30 15:33:36
1652
1
原创 Fortran 声明的注意事项
implicit none 让每个变量必须显示声明。parameter 常数声明 常数声明的两种方法 program parameter implicit none real a real , parameter :: b = 3.15 parameter(a=3.14) write(*, '(3x, f5.2)') a write(*, '(3x,
2016-03-30 14:20:10
4527
2
原创 Fortran 判断数组的 维度。
Fortran 判断数组的 维度。program main integer h(3,4,5) write(*,*) 'h' , size(h) write(*,*) 'h dim1' , size(h,dim=1) write(*,*) 'h dim2' , size(h,dim=2) write(*,*) 'h dim3' , size(h,dim=3)end
2016-03-29 16:19:05
13790
原创 Fortran 输入输出
Fortran 必须以 end结尾。Fortran 居然能够输出中文write(,) “居然能够输出中文” 第一个* 表示 默认的输出位置 第二个* 表示 不限定输出格式 完成的写法是 write(unit=, fmt=) “居然能够输出中文”因为屏幕的输出 unit=6， 所以 unit=*时，表示的就是 unit=6，每次执行write后，会自动换到下一行来准备做下一次输出。 因为双
2016-03-28 18:19:17
6720
4
原创 Fortran 固定格式
固定格式 以 .f 或者 .for结尾 自由格式 以 .f90结尾。书面格式固定格式很非常需要数以书写。 第一个字符，如果是c或者*，说明这一行会被当作注释。 第1-5个字符，如果是数字，就是给这一行的程序，取一个代号。 否则 只能是空格。 第6个字符， 如果不是0， 表示这一行会接续上一行 第7-72个字符， 代码编写区 第73个字符以后， 会被忽略特别说明，上面说的是字符，而不是t
2016-03-28 11:03:15
7597
原创 Python 安装MySQL模块出错
http://san-yun.iteye.com/blog/2106336google找到答案（http://stackoverflow.com/questions/13044201/install-mysql-python-return-error-in-centos），需要先安装mysql-devel.x86_64，通过 sudo yum install mysql-devel.x86_64
2016-03-26 17:07:02
488
原创 shell 脚本 检测文件夹
01 测试，目录下是不是存在 文件 packages if ! test ./packages ; then echo "not exist packages"fi02 测试，目录下是不是存在 目录 packages ,注意参数 -d if ! test -d ./packages ; then echo "not exist packages"fi
2016-03-14 15:07:37
743
原创 算法
速度极慢的程序和 不正确的程序一样无用但不成熟的优化是所有罪恶之源头在编程领域，第一个常见的错误是 过于关注程序的性能。 在编程领域，第二个常见的错误是 完全忽略了程序的性能。在处理大规模的问题时， 除了寻找更好的算法之外 ，别无选择。高效和优雅是我们一贯的目标大O是一种几法。无穷大渐近 http://baike.baidu.com/view/2141720.htm大O简化了对增长数量级的上限的
2016-03-14 08:04:35
328
原创 技术驱动的公司
什么公司是技术驱动的？ 我目前所在的公司就不是技术驱动的。 她是销售驱动的，或者是运营驱动的。银行业需要互联网技术，但不能说银行是互联网公司。 用技术，和技术驱动是两码事。一个技术开发，如果不在技术驱动的公司， 那么，你的技术就是不熟重视的。就像去吃火锅，你的技术只是麻酱。另一点，这样的公司，也没有什么技术可言。细数我待过的几家公司 华三是技术驱动的，他自己有一定的技术。而且视若珍宝。总害
2016-03-11 09:49:10
623
原创 Java 反射小用
//一条记录的 n 个字段 , 都写入对象Document中 Class question_class=question.getClass(); for (int j = 0; j < newColumn.size(); j++) { net.sf.json.JSONObject obj = newColumn.getJ
2016-03-10 16:10:19
336
原创 Python 字典中包含中文的输出
#!coding=utf8import jsontmp = {1:123, 2:345, 4: '汉字'}tmp_json_1 = json.dumps(tmp)tmp_json_2 = json.dumps(tmp, ensure_ascii=False)print tmpprint tmp_json_1print tmp_json_2输出结果是：{1: 123, 2: 345, 4: '
2016-03-03 19:11:54
6009
原创 二叉树前序 非递归
package bigo;import java.util.Stack;class Node{ int data; Node left; Node right; Node(int x) { data = x;}}public class midOrder { public static void iterativePreOrder(Node root){
2016-03-03 14:24:52
447
原创 二叉树遍历 ，前序，中序，后序， 递归版本
Java实现。package bigo;class Node{ int data; Node left; Node right; Node(int x) { data = x;}}public class midOrder { public static void midOrder(Node root){ if (root != null){
2016-03-03 10:35:49
367
原创 单链表排序
https://leetcode.com/problems/sort-list/ http://www.acmerblog.com/leetcode-sort-list-5982.html归并排序package bigo;class ListNode{ int val; ListNode next; ListNode(int x) { val = x; }}public
2016-03-02 17:09:28
341
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人