《104电子计算机标准程序汇编》

第一章 绪论1

1．一般说明1

2．标准程序的移位办法4

第二章 标准程序8

1．计算初等函数的程序8

1．同时计算sinx,cosx或tg x程序8

2．计算ex程序12

3．计算In x程序13

4．计算？程序15

5．计算arc tgx程序17

附：广义转向程序20

6．计算arc sinx程序20

7．计算？程序23

8．计算sin x或cos x程序26

2．插值、数值微商与函数逼近程序29

9．三点插值或微商程序29

10．四点插值或微商程序33

11．拉格朗日插值程序37

12．成组三点插值程序39

13．成组拉格朗日插值程序43

14．四用插值程序47

15．采用紧缩表的插值或微商程序53

附：紧缩表翻译程序使用说明55

16．平方逼近程序60

17．自动选取比例因子的平方逼近程序68

18．求拉格朗日插值多项式系数的程序74

3．数值求积程序78

19．辛浦生法（定步长）程序78

20．辛浦生法（自动选步长）程序81

21．Romberg求积法程序85

22．自动选步长的辛浦生二重积分程序90

4．代数方程及超越方程求根程序96

23．解实系数代数方程的插值法程序96

24．解复系数代数方程的插值法程序103

25．解复系数代数方程的改进下山法程序110

26．下山法程序116

27．牛顿-下山法程序123

28．隔离法求实根的程序130

29．比例求根法程序134

30．解非线性方程组下降法程序137

5．线性代数计算问题的程序142

31．矩阵乘积程序142

32．矩阵转置程序Ⅰ145

33．矩阵转置程序Ⅱ148

34．主元素消去法求实行列式值程序151

35．主元素消去法求复行列式值程序155

36．主元素消去法解线性代数方程组程序Ⅰ160

37．主元素消去法解线性代数方程组程序Ⅱ163

38．主元素消去法解线性代数方程组程序Ⅲ（采用二倍位长运算）166

39．使用磁鼓的分块主元素消去法解线性代数方程组程序170

40．用追赶法解三对角型方程组程序Ⅰ186

41．用追赶法解三对角型方程组程序Ⅱ189

42．用列主元素消去法解三对角型方程组程序192

43．用平方根法解线性代数方程组程序196

44．主元素消去法求逆矩阵的程序Ⅰ201

45．主元素消去法求逆矩阵程序Ⅱ208

46．用平方根法求逆矩阵程序213

47．用列主元素法求解AX＝B程序218

48．求实矩阵特征值与特征向量程序224

49．求复矩阵特征值与特征向量程序228

50．用“过关”Jacobi法求实对称矩阵全部特征值及特征向量程序234

51．Jacobi法求实对称矩阵全部特征值及特征向量程序240

52．“双倍位长运算的向量内积”程序248

53．用逻辑尺表示的矩阵加（减）法程序254

54．用逻辑尺表示的矩阵乘法程序256

55．用逻辑尺表示的矩阵转置程序259

56．用逻辑尺表示的矩阵打印程序262

57．用逻辑尺表示的矩阵排列程序263

附：广义转向子程序265

6．常微分方程数值积分程序266

58．尤拉-柯西法（定步长）程序266

59．定步长龙格-库塔法程序Ⅰ269

60．定步长龙格-库塔法程序Ⅱ272

61．定步长龙格-库塔法程序Ⅲ（同时求出导数值）275

62．变步长龙格-库塔法程序279

63．李卡松误差修正的龙格-库塔法程序284

64．定步长基尔法程序288

65．阿达姆斯法程序292

66．龙格-库塔转阿达姆斯法程序296

67．龙格-库塔转哈明法程序300

68．联合应用龙格-库塔公式与阿达姆斯公式的积分程序305

7．其他311

69．成组操作程序311

70．成组操作二条可变指令的程序312

71．成组10→2程序313

72．成组打印数据程序316

73．成组2→10打印程序317

74．成组打印指令程序319

75．多项式的加（减）法程序321

76．多项式的乘法程序323

77．多项式的劈因子程序325

78．多项式的压（放）系数或压（放）根程序327

79．求多项式的导数或原函数的程序329

80．求一次因子连乘积的程序332

81．计算多项式值的程序333

82．以多项式为元素的行列式展开程序335

83．弧度化度分秒的打印程序338

84．正态分布的拟随机数产生程序340

85．计算Г-函数的程序341

86．计算正弦积分？dt程序344

87．二倍位长运算的解释程序346

附录Ⅰ 104型计算机指令系统359

附录Ⅱ 固定地址的104机标准子程序系统367

附录Ⅲ 常用常数的十进制表示与指令形式表示对照表398

附录Ⅳ 2±n的数值表401