Ma-Calculatrice

这是一个数组练习，程序的作用是查询一个一维数组（数值型数组）中每一个元素出现的次数，且元素出现的顺序不能改变(This is an array of exercises, the program' s role is to query a one-dimensional array (numeric array) in the number of occurrences of each element, and the element can not be changed in order of appearance)

利用Abaqus子程序UAMP实现PID控制。(PID control is implemented using the Abaqus subroutine UAMP.)

ANSYS二次开发考虑损伤的材料模型子程序(ANSYS subroutine)

seisee 读取地震数据英文使用说明文档(seisee read seismic data for use in English documentation)

程序用Fortran95标准，给出了双共轭梯度法求解超大型稀疏矩阵的子程序。还给出了一个例子，例子的数据用索引存储了维数将近10万的对称稀疏正定矩阵。(Using Fortran95, a method of Biconjugate gradient for super linear sysem is provied. In addition, a example with the storage type of row-column index is also provide for test these subroutines. )

复化求积公式计算定积分 包括 复化梯形 复化辛普森 等(complexification quadrature formula to calculate definite integration)

weno格式解决一维黎曼问题的代码，fortran90编写(Fortran code for Riemann problem solver in weno scheme)

一个用于弹性接触分析的边界元fortran源程序(One for the analysis of elastic contact BEM fortran source)

本程序实现了基于最佳维纳滤波器的盲解卷积算法。维纳滤波将地震子波转换为任意所需要的形态。例如，像反滤波一样，可以设计维纳滤波器将地震子波转换为尖脉冲。但维纳滤波不同于反滤波，它是在最小平方的意义上为最 佳。基于最佳纳滤波理论的滤波器算法是人们熟知的维纳一莱文逊(Wiener—Levinson)算法。本程序提供了五种期望输出：零延迟尖脉冲；任一延迟尖脉冲；时间提前了的输入序列；零相位子波；任意期望波形。(Wiener—Levinson algorithm used in wiener filter. matlab with detailed note in Chinese.)

基于互相关分析的时延估计算法；基于互相关分析的时延估计算法(cross-correlation analysis for time delay calculation)