摘要：代码框架来自sicp 练习2.42。算是作业吧。 1 (define (enumerate-interval l r) 2 (if (= l r) 3 (list l) 4 (cons l (enumerate-interval (+ l 1) r)))) 5 6 ;(enumerate-interval 1 10) 7 8 (define (contains? e pl) 9 (if (null? pl)10 #f11 (or (eq? e (car pl))12 (contains? e (cdr pl))))... 阅读全文

摘要：my code： 1 ;Church计数 2 3 (define zero (lambda (f) (lambda (x) x))) 4 (define (add-1 n) (lambda (f) (lambda (x) (f ((n f) x))))) 5 (define (show-num n)((n (lambda (x) (+ 1 x))) 0)) 6 (define (add a b) (lambda (f) (lambda (x) ((a f) ((b f) x))))) 7 (define one (lambda (f) (lambda (x) (f x)))) 8 (defi. 阅读全文

摘要：2010年12月的代码。如何保证在备份期间数据库的一致性，这是个问题，我的脚本里想了一个办法，嘿嘿。#!/bin/shbk_to="/var/mysql-backup-`date +%Y-%m-%d-%k-%M-%S |tr -d ' '`"user_name="root"user_pw="dev"sql="flush tables with read lock;system cp -pR /var/lib/mysql $bk_to; unlock tables;"mysql -u $user_na 阅读全文

摘要：就不贴matlab代码了，图比较大。分别是：1. 无环量流动2. 有环量流动,两个滞止点3. 有环量流动,一个滞止点4. 有环量流动,柱面外一个滞止点--> 阅读全文

摘要：我不喜欢fortran，奇怪的词法规则（竟然不用空格分开token），io操作竟然是语言的一部分（这种非本质的东西像C那样用库来扩展多好）。。。 1 program link 2 implicit none 3 type node 4 character(20) name 5 integer id 6 integer score 7 type(node),pointer ::next 8 end type 9 10 integer,parameter::num=311 type(node),pointer ::students12 13 call init_al... 阅读全文

摘要：2010年十月写的旧代码。第一类边界条件是给定边界温度。第二类是对流边界。区域都是如下形状的:--------------------------------| || ----------------------| | | || || |--------用C++纯属蛋疼。第一类边界条件： 1 /* 2 * 等温边界 3 */ 4 #include<iostream> 5 #include<cmath> 6 using namespace std; 7 const double out_temp=... 阅读全文