数学 – 默默的点滴

匈牙利算法

零、前言

匈牙利算法是一个经典的解决二部图最小权值匹配问题的算法。网上也有不少资料，但是看完之后总觉得有两个核心问题没有解决：算法为什么一定能得到最优匹配？算法复杂度为什么不再是指数级了？

最后读到了python的库函数scipy.optimize.linear_sum_assignment源代码里引用的文章，才算理解算法的实现，再花了一点时间弄清楚了上边两个问题。

Assignment Problem - Let C be an nxn matrix representing the costs of each of n workers to perform any of n jobs. The assignment problem is to assign jobs to workers so as to minimize the total cost. Since each worker can perform only one job and each job can be assigned to only one worker the assignments constitute an independent set of the matrix C.

继续阅读Munkres' Assignment Algorithm

求最长公共子序列

求给出的两个序列的最长公共子序列是常见的一个问题。

需要注意的就是最长公共子串（Longest Common Substring）与最长公共子序列（Longest Common Subsequence）的区别：子串要求在原字符串中是连续的，而子序列则只需保持相对顺序，并不要求连续。

解法如下：

参考链接

最长递增子序列（Longest Increasing Subsequence）

最长递增子序列的解法，可以转化为 求最长公共子序列，也就是生成从目标序列从小到大排序之后的新序列，然后计算原始序列与新序列的 最长公共子序列。但是遇到重复数字的时候，会出现问题。也就是这个解法只能解决无重复数字的最长递增子序列。

另外需要注意的就是最长公共子串（Longest Common Substring）与最长公共子序列（Longest Common Subsequence）的区别：子串要求在原字符串中是连续的，而子序列则只需保持相对顺序，并不要求连续。

整个的求解过程其实很好理解：

假定要计算的序列为 K = {K₁,K₂,K₃,……,K_n,K_n+1,……,K_m}
初始化计数数组 N = {N₁,N₂,N₃,……,N_n,N_n+1,……,N_m} ，（计数数组跟序列的长度相同，K_n 的最长递增子序列长度计数对应于 N_n）用来记录最长递增子序列的长度，每个项的初始化值都设置为 1 （即使最小的项，项本身也算一个长度，因此最小的长度是 1）
必须从头部(K₁)开始遍历
当计算 K_n 结尾的最长递增子序列的时候，只要遍历序列 K 的前 [0 ~ n-1] 个项，找到数值小于(或者小于等于） K_n （必须遍历，K_n 之前的最长递增子序列不一定是 K_n-1 对应的 N_n-1 ），并且在计数数组 N 中对应的计数最大的项 N_i ，然后 N_n = N_i + 1 。

本方法的时间复杂度是 O(n²)

例子：

设数组 K = { 2， 5， 1， 5， 4， 5 } 那么求最长递增子序列的代码如下：

#include <iostream>
#include <vector>

int calcMaxLISLength(const std::vector<int>& K) {
    std::vector<int> N(K.size(), 1);
    int maxL = 0;
    for(int i = 0; i < K.size(); i++) {
        int Ki = K[i];
        int maxNi = 0;
        for(int j = 0; j < i; j++) {
            int Kj = K[j]; 
            if(Kj < Ki) {
                int Nj = N[j];
                if(Nj > maxNi) {
                    maxNi = Nj;
                }
            }
        }
        int Ni = maxNi + 1;
        N[i] = Ni;
        if(maxL < Ni) {
            maxL = Ni;
        }
    }
    return maxL;    
}

int main(int argc, char** argv) {
    // 2 5 1 5 4 5
    // 3
    std::vector<int> K = {2, 5, 1, 5, 4, 5};
    int r = calcMaxLISLength(K);
    std::cout << r << std::endl;
    
    // 17
    K = {317, 211, 180, 187, 104, 285, 63, 117, 320, 35, 288, 299,
          235, 282, 105, 231, 253, 74, 143, 148, 77, 249, 310, 137,
          191, 184, 88, 8, 194, 12, 117, 108, 260, 313, 114, 261, 60,
          226, 133, 61, 146, 297, 291, 13, 198, 286, 254, 96, 135, 48, 
          135, 307, 23, 155, 203, 258, 168, 42, 301, 45, 164, 193, 26, 
          290, 280, 172, 94, 230, 156, 36, 250, 174, 47, 188, 148, 138,
          194, 89, 71, 119, 218, 325, 136, 63, 271, 210, 320, 309};
    
    r = calcMaxLISLength(K);
    std::cout << r << std::endl;
	
    return 0;
}

#include <iostream>

#include <vector>

int calcMaxLISLength(const std::vector<int>& K) {

std::vector<int> N(K.size(), 1);

int maxL = 0;

for(int i = 0; i < K.size(); i++) {

int Ki = K[i];

int maxNi = 0;

for(int j = 0; j < i; j++) {

int Kj = K[j];

if(Kj < Ki) {

int Nj = N[j];

if(Nj > maxNi) {

maxNi = Nj;

}

int Ni = maxNi + 1;

N[i] = Ni;

if(maxL < Ni) {

maxL = Ni;

}

return maxL;

}

int main(int argc, char** argv) {

// 2 5 1 5 4 5

// 3

std::vector<int> K = {2, 5, 1, 5, 4, 5};

int r = calcMaxLISLength(K);

std::cout << r << std::endl;

// 17

K = {317, 211, 180, 187, 104, 285, 63, 117, 320, 35, 288, 299,

235, 282, 105, 231, 253, 74, 143, 148, 77, 249, 310, 137,

191, 184, 88, 8, 194, 12, 117, 108, 260, 313, 114, 261, 60,

226, 133, 61, 146, 297, 291, 13, 198, 286, 254, 96, 135, 48,

135, 307, 23, 155, 203, 258, 168, 42, 301, 45, 164, 193, 26,

290, 280, 172, 94, 230, 156, 36, 250, 174, 47, 188, 148, 138,

194, 89, 71, 119, 218, 325, 136, 63, 271, 210, 320, 309};

r = calcMaxLISLength(K);

std::cout << r << std::endl;

return 0;

}

第二个测试用例的数据如下：

输入数据个数 
88

实际数据 
317 211 180 187 104 285 63 117 320 35 288 299 235 282 105 231 253 74 143 148 77 249 310 137 191 184 88 8 194 12 117 108 260 313 114 261 60 226 133 61 146 297 291 13 198 286 254 96 135 48 135 307 23 155 203 258 168 42 301 45 164 193 26 290 280 172 94 230 156 36 250 174 47 188 148 138 194 89 71 119 218 325 136 63 271 210 320 309

期望结果
17

输入数据个数

实际数据

317 211 180 187 104 285 63 117 320 35 288 299 235 282 105 231 253 74 143 148 77 249 310 137 191 184 88 8 194 12 117 108 260 313 114 261 60 226 133 61 146 297 291 13 198 286 254 96 135 48 135 307 23 155 203 258 168 42 301 45 164 193 26 290 280 172 94 230 156 36 250 174 47 188 148 138 194 89 71 119 218 325 136 63 271 210 320 309

期望结果

涉及到的面试题目如下类型：

梅花桩问题

题目描述 : Redraiment是走梅花桩的高手。Redraiment总是起点不限，从前到后，往高的桩子走，但走的步数最多，不知道为什么？你能替Redraiment研究他最多走的步数吗？ 
样例输入
6
2 5 1 5 4 5
样例输出
3
提示
Example: 
6个点的高度各为 2 5 1 5 4 5 
如从第1格开始走,最多为3步, 2 4 5 
从第2格开始走,最多只有1步,5 
而从第3格开始走最多有3步,1 4 5 
从第5格开始走最多有2步,4 5
所以这个结果是3。
输入例子:
6
2
5
1
5
4
5
输出例子:
3

题目描述 : Redraiment是走梅花桩的高手。Redraiment总是起点不限，从前到后，往高的桩子走，但走的步数最多，不知道为什么？你能替Redraiment研究他最多走的步数吗？

样例输入

2 5 1 5 4 5

样例输出

提示

Example:

6个点的高度各为 2 5 1 5 4 5

如从第1格开始走,最多为3步, 2 4 5

从第2格开始走,最多只有1步,5

而从第3格开始走最多有3步,1 4 5

从第5格开始走最多有2步,4 5

所以这个结果是3。

输入例子:

输出例子:

合唱队问题

题目描述
计算最少出列多少位同学，使得剩下的同学排成合唱队形
说明：
N位同学站成一排，音乐老师要请其中的(N-K)位同学出列，使得剩下的K位同学排成合唱队形。
合唱队形是指这样的一种队形：设K位同学从左到右依次编号为1，2…，K，他们的身高分别为T1，T2，…，TK，   则他们的身高满足存在i（1<=i<=K）使得T1<T2<......<Ti-1<Ti>Ti+1>......>TK。
你的任务是，已知所有N位同学的身高，计算最少需要几位同学出列，可以使得剩下的同学排成合唱队形。
输入描述:
整数N
输出描述:
最少需要几位同学出列
示例1
输入
8
186 186 150 200 160 130 197 200
输出
4

题目描述

计算最少出列多少位同学，使得剩下的同学排成合唱队形

说明：

N位同学站成一排，音乐老师要请其中的(N-K)位同学出列，使得剩下的K位同学排成合唱队形。

合唱队形是指这样的一种队形：设K位同学从左到右依次编号为1，2…，K，他们的身高分别为T1，T2，…，TK，则他们的身高满足存在i（1<=i<=K）使得T1<T2<......<Ti-1<Ti>Ti+1>......>TK。

你的任务是，已知所有N位同学的身高，计算最少需要几位同学出列，可以使得剩下的同学排成合唱队形。

输入描述:

整数N

输出描述:

最少需要几位同学出列

示例1

输入

186 186 150 200 160 130 197 200

输出

合唱队问题其实是求最长递增子序列与最长递减子序列的和最大。

最长递减子序列的求法其实就是把原始序列反序，然后 求最长递增子序列 然后把最后的结果反序即可。

代码如下：

#include <iostream>
#include <vector>

static void calcMaxLIS(const std::vector<int>& K, std::vector<int>& N) {
    for(int i = 0; i < K.size(); i++) {
        int Ki = K[i];
        int maxNi = 0;
        for(int j =0; j<i; j++) {
            int Kj = K[j];
            if(Ki > Kj) {
                int Nj = N[j];
                if(maxNi < Nj) {
                    maxNi = Nj;
                }
            }
        }
        N[i] = maxNi + 1;
    }
}

static void calcMaxLDS(const std::vector<int>& K, std::vector<int>& N) {
    std::vector<int> rK(K.rbegin(), K.rend());
    std::vector<int> rN(N);
    calcMaxLIS(rK, rN);
    for(int i = 0; i<rN.size(); i++) {
        N[i] = rN[rN.size() - 1 - i];
    }
}

static int calcMaxVal(const std::vector<int>& K) {
    std::vector<int> N(K.size(), 1);
    std::vector<int> rN(K.size(), 1);
    std::vector<int> KN(K.size(), 0);
    calcMaxLIS(K, N);
    calcMaxLDS(K, rN);
    //
    /*for(int i = 0; i<N.size(); i++) {
        std::cout << N[i];
    }
    std::cout << std::endl;
    for(int i = 0; i<rN.size(); i++) {
        std::cout << rN[i];
    }
    std::cout << std::endl;*/
    
    for(int i = 0; i<N.size(); i++) {
        KN[i] = N[i] + rN[i];
    }
    
   /* for(int i = 0; i<KN.size(); i++) {
        std::cout << KN[i];
    }
    std::cout << std::endl;*/
    
    int maxL = 0;
    for(int i = 0; i < KN.size(); i++) {
        if(maxL < KN[i]) {
            maxL = KN[i];
        }
    }
    return maxL - 1;
}

static void test_calcMaxVal() {
    std::vector<int> K = {186, 186, 150, 200, 160, 130, 197, 200};
    int r = calcMaxVal(K);
    std::cout << K.size() - r << std::endl;
}

static void main_test() {
    test_calcMaxVal();
}

static void main_task() {
    int n = 0;
    while(std::cin >> n) {
        std::vector<int> K;
        for(int i = 0; i<n; i++) {
            int v = 0;
            std::cin >> v;
            K.push_back(v);   
        }
        int r = calcMaxVal(K);
        std::cout << n - r << std::endl;         
    }
}

int main(int argc, char** argv) {
    //main_test();
    main_task();
    return 0;
}

#include <iostream>

#include <vector>

static void calcMaxLIS(const std::vector<int>& K, std::vector<int>& N) {

for(int i = 0; i < K.size(); i++) {

int Ki = K[i];

int maxNi = 0;

for(int j =0; j<i; j++) {

int Kj = K[j];

if(Ki > Kj) {

int Nj = N[j];

if(maxNi < Nj) {

maxNi = Nj;

}

N[i] = maxNi + 1;

}

static void calcMaxLDS(const std::vector<int>& K, std::vector<int>& N) {

std::vector<int> rK(K.rbegin(), K.rend());

std::vector<int> rN(N);

calcMaxLIS(rK, rN);

for(int i = 0; i<rN.size(); i++) {

N[i] = rN[rN.size() - 1 - i];

}

static int calcMaxVal(const std::vector<int>& K) {

std::vector<int> N(K.size(), 1);

std::vector<int> rN(K.size(), 1);

std::vector<int> KN(K.size(), 0);

calcMaxLIS(K, N);

calcMaxLDS(K, rN);

/*for(int i = 0; i<N.size(); i++) {

std::cout << N[i];

}

std::cout << std::endl;

for(int i = 0; i<rN.size(); i++) {

std::cout << rN[i];

}

std::cout << std::endl;*/

for(int i = 0; i<N.size(); i++) {

KN[i] = N[i] + rN[i];

}

/* for(int i = 0; i<KN.size(); i++) {

std::cout << KN[i];

}

std::cout << std::endl;*/

int maxL = 0;

for(int i = 0; i < KN.size(); i++) {

if(maxL < KN[i]) {

maxL = KN[i];

}

return maxL - 1;

}

static void test_calcMaxVal() {

std::vector<int> K = {186, 186, 150, 200, 160, 130, 197, 200};

int r = calcMaxVal(K);

std::cout << K.size() - r << std::endl;

}

static void main_test() {

test_calcMaxVal();

}

static void main_task() {

int n = 0;

while(std::cin >> n) {

std::vector<int> K;

for(int i = 0; i<n; i++) {

int v = 0;

std::cin >> v;

K.push_back(v);

}

int r = calcMaxVal(K);

std::cout << n - r << std::endl;

}

int main(int argc, char** argv) {

//main_test();

main_task();

return 0;

}

解法介绍

首先计算每个数在最大递增子串中的位置

186  186  150  200  160  130  197  200   quene

1      1      1      2       2      1      3     4       递增计数


然后计算每个数在反向最大递减子串中的位置--->计算反向后每个数在最大递增子串中的位置

200  197  130  160  200  150  186  186   反向quene

1      1      1       2     3      2      3       3      递减计数


然后将每个数的递增计数和递减计数相加

186  186  150  200  160  130  197  200   quene

1      1      1      2       2     1      3      4       递增计数

3      3      2      3       2     1      1      1       递减计数

4      4      3      5       4     2      4      5       每个数在所在队列的人数+1（自己在递增和递减中被重复计算）


如160这个数

在递增队列中有2个人数

150  160

在递减队列中有2个人数

160  130

那么160所在队列中就有3个人

150  160  130


每个数的所在队列人数表达就是这个意思


总人数 - 该数所在队列人数 = 需要出队的人数

首先计算每个数在最大递增子串中的位置

186 186 150 200 160 130 197 200 quene

1 1 1 2 2 1 3 4 递增计数

然后计算每个数在反向最大递减子串中的位置--->计算反向后每个数在最大递增子串中的位置

200 197 130 160 200 150 186 186 反向quene

1 1 1 2 3 2 3 3 递减计数

然后将每个数的递增计数和递减计数相加

186 186 150 200 160 130 197 200 quene

1 1 1 2 2 1 3 4 递增计数

3 3 2 3 2 1 1 1 递减计数

4 4 3 5 4 2 4 5 每个数在所在队列的人数+1（自己在递增和递减中被重复计算）

如160这个数

在递增队列中有2个人数

150 160

在递减队列中有2个人数

160 130

那么160所在队列中就有3个人

150 160 130

每个数的所在队列人数表达就是这个意思

总人数 - 该数所在队列人数 = 需要出队的人数

参考链接

兔子生兔子问题详解(斐波那契数列)

有一只兔子，从出生后第3个月起每个月都生一只兔子，小兔子长到第三个月后每个月又生一只兔子，假如兔子都不死，问每个月的兔子总数为多少？

斐波那契数列（Fibonacci sequence），又称黄金分割数列、因数学家列昂纳多·斐波那契（Leonardoda Fibonacci）以兔子繁殖为例子而引入，故又称为“兔子数列”，指的是这样一个数列：1、1、2、3、5、8、13、21、34、……在数学上，斐波那契数列以如下被以递推的方法定义：F(1)=1，F(2)=1, F(n)=F(n - 1)+F(n - 2)（n ≥ 3，n ∈ N*）在现代物理、准晶体结构、化学等领域，斐波纳契数列都有直接的应用，为此，美国数学会从 1963 年起出版了以《斐波纳契数列季刊》为名的一份数学杂志，用于专门刊载这方面的研究成果。

这个问题可能我比较笨，看大多数解释都是一句话，f(n) = f(n-1) + f(n-2)，但是总有点想不明白这个。列了个表格才看清楚咋回事。

月份	1	2	3	4	5	6	7
兔子总数	1	1	2	3	5	8	13
具有生育能力兔子	0	0	1	1	2	3	5

如果这个月是第n个月，那要求这个月兔子的总数，其实就是上个月的兔子总数加上新生出来的兔子。也就是f(n) = f(n-1) + x。这个x是比较难理解的地方。那这个月到底新生出来多少兔子呢？这就是求这个月已经有生育能力的兔子是多少，上上个月所有的兔子就是这个月所有的有生育能力的兔子，这里可以结合表格推一推就很好理解了。所以x就是f(n-2)。

因此可以得到递推f(n) = f(n-1) + f(n-2)。

其实比较简单的问题，不过自己光凭笨脑子想，突然没想明白，记一下这个思考过程。

还有就是牛客网上的高赞答案详解：

#include <iostream>
using namespace std;
 
int main(){
    int m;
    while(cin>>m){
        int a=1,b=0,c=0;//a:一个月兔子数，b：两个月兔子数，c：三个月兔子个数
        while(--m){//每过一个月兔子数变化
            c+=b;
            b=a;
            a=c;
        }
        cout<<a+b+c<<endl;
    }
}

#include <iostream>

using namespace std;

int main(){

int m;

while(cin>>m){

int a=1,b=0,c=0;//a:一个月兔子数，b：两个月兔子数，c：三个月兔子个数

while(--m){//每过一个月兔子数变化

c+=b;

b=a;

a=c;

}

cout<<a+b+c<<endl;

}

有人是以a表示一个月的兔子，b表示两个月的兔子，c表示三个月的兔子（原文这么注释的），我因为这个注释半天没看懂，后来明白了，c意思是已经成熟的兔子，也就是表示3个月及以上的兔子，也就是说c表示能生兔子的兔子。

那就可以以月份循环，每到达新的一个月，b都会成熟，所以c+=b，c就更新了，仍然表示所有成熟了的兔子，b怎么更新呢？b其实就是上个月那些成熟度是1个月的兔子，所以再更新b，用b=a；a呢？a就是现在更新后的c，因为更新后的c表示这个月成熟了的兔子，那这些兔子都会生一只新的兔子，新兔子就是成熟度为1个月的，所以用a=c。这样现在这个月的兔子总数就是a+b+c。

这是我自己没找到注释，自己总结出来的答案详解，这个方法比递归复杂度低，空间占用更是比用数组先去存要少很多。

参考链接

牛顿迭代法

什么是牛顿迭代法？

　　牛顿迭代法（Newton's method）又称为牛顿-拉夫逊（拉弗森）方法（Newton-Raphson method），它是牛顿在17世纪提出的一种在实数域和复数域上近似求解方程的方法。

继续阅读牛顿迭代法

卷积与反卷积、步长(stride)与重叠(overlap)及output的大小

1. 卷积神经网络的基础概念

卷积神经网络是一种专门用来处理具有类似网络结果的数据的神经网络。至少在网络的一层中使用卷积运算来替代一般的矩阵乘法运算的神经网络。

最核心的几个思想：稀疏交互、参数共享、等变表示（通俗成为平移不变性）。根本目的说白了就是为了节省运算时间和空间。那接下来看一下是怎么实现的。

1.0 卷积

用一张图展示一下，卷积的计算。element-wise multiply 然后再相加。

继续阅读卷积与反卷积、步长(stride)与重叠(overlap)及output的大小

Performance Characterization of Mobile GP-GPUs

Performance Characterization of Mobile GP-GPUs
继续阅读

Matrix Multiplication with OpenCL

Matrix Multiplication with OpenCL
继续阅读

macOS Mojave(10.14.4)系统Octave 5.1.0使用pause()函数无法响应按键事件

目前 ( 2019/04/24 )，在 macOS Mojave (10.14.4)系统上使用 brew install octave ，安装 Octave 5.1.0 之后，使用 pause() 函数无法在点击键盘之后继续执行，除了 Ctrl + C 之外任意键都不响应。正常情况下，点击任意按键之后，应该继续执行后续的代码。

这个是目前使用 brew 安装的 Octave 5.1.0 在编译的时候，关联的库是 glibc 2.28 之后的版本。这个版本上 glibc 2.28 的某些行为发生变动。具体的讨论信息，参考 bug #55029: pause() with no arguments does not return like kbhit() with glibc 2.28 上的讨论。本质就是 glibc 2.28 之后的版本要求应用程序在接收信息结束（ EOF ）之后，主动调用 clearerr (stdin); ，否则会收不到后续的按键通知。这个 BUG 在 Octave 5.2 版本被修复，但是这个版本何时发布，暂时不定。

目前的修复方式为要求 brew 从最新版本的代码编译安装，而不是安装已发布版本，如下：

$ brew uninstall --ignore-dependencies octave

# 安装编译依赖
$ brew install texinfo

$ wget https://raw.githubusercontent.com/Homebrew/homebrew-core/master/Formula/octave.rb

$ sed -i "" "s/\"--enable-shared\"/\"--enable-shared\",\"--disable-docs\"/g" octave.rb

$ brew install --build-from-source --HEAD -v octave.rb

$ brew uninstall --ignore-dependencies octave

# 安装编译依赖

$ brew install texinfo

$ wget https://raw.githubusercontent.com/Homebrew/homebrew-core/master/Formula/octave.rb

$ sed -i "" "s/\"--enable-shared\"/\"--enable-shared\",\"--disable-docs\"/g" octave.rb

$ brew install --build-from-source --HEAD -v octave.rb

修改下载的编译配置文件,并且关闭文档编译( 目前文档编译会失败），也就是增加 --disable-docs 这个编译参数。

调整之后的编译脚本如下：

class Octave < Formula
  desc "High-level interpreted language for numerical computing"
  homepage "https://www.gnu.org/software/octave/index.html"
  url "https://ftp.gnu.org/gnu/octave/octave-5.1.0.tar.xz"
  mirror "https://ftpmirror.gnu.org/octave/octave-5.1.0.tar.xz"
  sha256 "87b4df6dfa28b1f8028f69659f7a1cabd50adfb81e1e02212ff22c863a29454e"
  revision 2

  bottle do
    sha256 "6bb8497839d6f7872efcd6acad0216f443420e097a9b7fad44835823e1c0e735" => :mojave
    sha256 "d1de53a30f002d8b7ec3a6065994c46d8cbd4830aa7e199f572baff48723c6e6" => :high_sierra
    sha256 "7a648cff129ec85a5ee9417a0339a3b804756f7958585b707c015d322d220b15" => :sierra
  end

  head do
    url "https://hg.savannah.gnu.org/hgweb/octave", :branch => "default", :using => :hg

    depends_on "autoconf" => :build
    depends_on "automake" => :build
    depends_on "bison" => :build
    depends_on "icoutils" => :build
    depends_on "librsvg" => :build
  end

  # Complete list of dependencies at https://wiki.octave.org/Building
  depends_on "gnu-sed" => :build # https://lists.gnu.org/archive/html/octave-maintainers/2016-09/msg00193.html
  depends_on :java => ["1.6+", :build]
  depends_on "pkg-config" => :build
  depends_on "arpack"
  depends_on "epstool"
  depends_on "fftw"
  depends_on "fig2dev"
  depends_on "fltk"
  depends_on "fontconfig"
  depends_on "freetype"
  depends_on "gcc" # for gfortran
  depends_on "ghostscript"
  depends_on "gl2ps"
  depends_on "glpk"
  depends_on "gnuplot"
  depends_on "graphicsmagick"
  depends_on "hdf5"
  depends_on "libsndfile"
  depends_on "libtool"
  depends_on "pcre"
  depends_on "portaudio"
  depends_on "pstoedit"
  depends_on "qhull"
  depends_on "qrupdate"
  depends_on "qt"
  depends_on "readline"
  depends_on "suite-sparse"
  depends_on "sundials"
  depends_on "texinfo"
  depends_on "veclibfort"

  # Dependencies use Fortran, leading to spurious messages about GCC
  cxxstdlib_check :skip

  def install
    # Default configuration passes all linker flags to mkoctfile, to be
    # inserted into every oct/mex build. This is unnecessary and can cause
    # cause linking problems.
    inreplace "src/mkoctfile.in.cc",
              /%OCTAVE_CONF_OCT(AVE)?_LINK_(DEPS|OPTS)%/,
              '""'

    # Qt 5.12 compatibility
    # https://savannah.gnu.org/bugs/?55187
    ENV["QCOLLECTIONGENERATOR"] = "qhelpgenerator"
    # These "shouldn't" be necessary, but the build breaks without them.
    # https://savannah.gnu.org/bugs/?55883
    ENV["QT_CPPFLAGS"]="-I#{Formula["qt"].opt_include}"
    ENV.append "CPPFLAGS", "-I#{Formula["qt"].opt_include}"
    ENV["QT_LDFLAGS"]="-F#{Formula["qt"].opt_lib}"
    ENV.append "LDFLAGS", "-F#{Formula["qt"].opt_lib}"

    system "./bootstrap" if build.head?
    system "./configure", "--prefix=#{prefix}",
                          "--disable-dependency-tracking",
                          "--disable-silent-rules",
                          "--enable-link-all-dependencies",
                          "--enable-shared","--disable-docs",
                          "--disable-static",
                          "--with-hdf5-includedir=#{Formula["hdf5"].opt_include}",
                          "--with-hdf5-libdir=#{Formula["hdf5"].opt_lib}",
                          "--with-x=no",
                          "--with-blas=-L#{Formula["veclibfort"].opt_lib} -lvecLibFort",
                          "--with-portaudio",
                          "--with-sndfile"
    system "make", "all"

    # Avoid revision bumps whenever fftw's or gcc's Cellar paths change
    inreplace "src/mkoctfile.cc" do |s|
      s.gsub! Formula["fftw"].prefix.realpath, Formula["fftw"].opt_prefix
      s.gsub! Formula["gcc"].prefix.realpath, Formula["gcc"].opt_prefix
    end

    # Make sure that Octave uses the modern texinfo at run time
    rcfile = buildpath/"scripts/startup/site-rcfile"
    rcfile.append_lines "makeinfo_program(\"#{Formula["texinfo"].opt_bin}/makeinfo\");"

    system "make", "install"
  end

  test do
    system bin/"octave", "--eval", "(22/7 - pi)/pi"
    # This is supposed to crash octave if there is a problem with veclibfort
    system bin/"octave", "--eval", "single ([1+i 2+i 3+i]) * single ([ 4+i ; 5+i ; 6+i])"
  end
end

100

101

102

103

104

105

106

107

108

109

110

111

class Octave < Formula

desc "High-level interpreted language for numerical computing"

homepage "https://www.gnu.org/software/octave/index.html"

url "https://ftp.gnu.org/gnu/octave/octave-5.1.0.tar.xz"

mirror "https://ftpmirror.gnu.org/octave/octave-5.1.0.tar.xz"

sha256 "87b4df6dfa28b1f8028f69659f7a1cabd50adfb81e1e02212ff22c863a29454e"

revision 2

bottle do

sha256 "6bb8497839d6f7872efcd6acad0216f443420e097a9b7fad44835823e1c0e735" => :mojave

sha256 "d1de53a30f002d8b7ec3a6065994c46d8cbd4830aa7e199f572baff48723c6e6" => :high_sierra

sha256 "7a648cff129ec85a5ee9417a0339a3b804756f7958585b707c015d322d220b15" => :sierra

end

head do

url "https://hg.savannah.gnu.org/hgweb/octave", :branch => "default", :using => :hg

depends_on "autoconf" => :build

depends_on "automake" => :build

depends_on "bison" => :build

depends_on "icoutils" => :build

depends_on "librsvg" => :build

end

# Complete list of dependencies at https://wiki.octave.org/Building

depends_on "gnu-sed" => :build # https://lists.gnu.org/archive/html/octave-maintainers/2016-09/msg00193.html

depends_on :java => ["1.6+", :build]

depends_on "pkg-config" => :build

depends_on "arpack"

depends_on "epstool"

depends_on "fftw"

depends_on "fig2dev"

depends_on "fltk"

depends_on "fontconfig"

depends_on "freetype"

depends_on "gcc" # for gfortran

depends_on "ghostscript"

depends_on "gl2ps"

depends_on "glpk"

depends_on "gnuplot"

depends_on "graphicsmagick"

depends_on "hdf5"

depends_on "libsndfile"

depends_on "libtool"

depends_on "pcre"

depends_on "portaudio"

depends_on "pstoedit"

depends_on "qhull"

depends_on "qrupdate"

depends_on "qt"

depends_on "readline"

depends_on "suite-sparse"

depends_on "sundials"

depends_on "texinfo"

depends_on "veclibfort"

# Dependencies use Fortran, leading to spurious messages about GCC

cxxstdlib_check :skip

def install

# Default configuration passes all linker flags to mkoctfile, to be

# inserted into every oct/mex build. This is unnecessary and can cause

# cause linking problems.

inreplace "src/mkoctfile.in.cc",

/%OCTAVE_CONF_OCT(AVE)?_LINK_(DEPS|OPTS)%/,

'""'

# Qt 5.12 compatibility

# https://savannah.gnu.org/bugs/?55187

ENV["QCOLLECTIONGENERATOR"] = "qhelpgenerator"

# These "shouldn't" be necessary, but the build breaks without them.

# https://savannah.gnu.org/bugs/?55883

ENV["QT_CPPFLAGS"]="-I#{Formula["qt"].opt_include}"

ENV.append "CPPFLAGS", "-I#{Formula["qt"].opt_include}"

ENV["QT_LDFLAGS"]="-F#{Formula["qt"].opt_lib}"

ENV.append "LDFLAGS", "-F#{Formula["qt"].opt_lib}"

system "./bootstrap" if build.head?

system "./configure", "--prefix=#{prefix}",

"--disable-dependency-tracking",

"--disable-silent-rules",

"--enable-link-all-dependencies",

"--enable-shared","--disable-docs",

"--disable-static",

"--with-hdf5-includedir=#{Formula["hdf5"].opt_include}",

"--with-hdf5-libdir=#{Formula["hdf5"].opt_lib}",

"--with-x=no",

"--with-blas=-L#{Formula["veclibfort"].opt_lib} -lvecLibFort",

"--with-portaudio",

"--with-sndfile"

system "make", "all"

# Avoid revision bumps whenever fftw's or gcc's Cellar paths change

inreplace "src/mkoctfile.cc" do |s|

s.gsub! Formula["fftw"].prefix.realpath, Formula["fftw"].opt_prefix

s.gsub! Formula["gcc"].prefix.realpath, Formula["gcc"].opt_prefix

end

# Make sure that Octave uses the modern texinfo at run time

rcfile = buildpath/"scripts/startup/site-rcfile"

rcfile.append_lines "makeinfo_program(\"#{Formula["texinfo"].opt_bin}/makeinfo\");"

system "make", "install"

end

test do

system bin/"octave", "--eval", "(22/7 - pi)/pi"

# This is supposed to crash octave if there is a problem with veclibfort

system bin/"octave", "--eval", "single ([1+i 2+i 3+i]) * single ([ 4+i ; 5+i ; 6+i])"

end

2020年四月
一	二	三	四	五	六	日
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30