Clojuratica 安装配置指导: Clojure + Mathematica 的神奇组合

最新推荐文章于 2024-08-18 23:44:46 发布

weixin_34341229

最新推荐文章于 2024-08-18 23:44:46 发布

阅读量132

点赞数

文章标签： git 开发工具 python

原文链接：https://my.oschina.net/freeblues/blog/415931

版权

2019独角兽企业重金招聘Python工程师标准>>>

Clojuratica 安装配置指导: Clojure + Mathematica 的神奇组合

概念介绍:Clojuratica=Clojure+Mathematica

Clojuratica 简单说就是把 Clojure 和 Mathematica 组合起来了，可以通过 Clojure 来调用 Mathematica 的数千个函数。

按照作者的说法是 Clojuratica 集二者之长处，非常高大上，而且还易于使用，下面是 Clojuratica 站点对其优点的描述：

Clojuratica lets you write and evaluate Mathematica code in Clojure with full syntactic integration. Now Clojure programs can take advantage of Mathematica's enormous range of numerical and symbolic mathematics algorithms and fast matrix algebra routines.
Clojuratica provides the seamless and transparent translation of native data structures between Clojure and Mathematica. This includes high-precision numbers, matrices, N-dimensional arrays, and evaluated and unevaluated Mathematica expressions and formulae.
Clojuratica lets you call, pass, and store Mathematica functions just as if they were first-class functions in Clojure. This is high-level functional programming at its finest. You can write a function in whichever language is more suited to the task and never think again about which platform is evaluating calls to that function.
Clojuratica facilitates the "Clojurization" of Mathematica's existing parallel-computing capabilities. Mathematica is not designed for threads or concurrency. It has excellent support for parallel computation, but parallel evaluations are initiated from a single-threaded master kernel which blocks until all parallel evaluations return. By contrast, Clojuratica includes a concurrency framework that lets multiple Clojure threads execute Mathematica expressions without blocking others. Now it is easy to run a simulation in Clojure with 1,000 independent threads asynchronously evaluating processor-intensive expressions in Mathematica. The computations will be farmed out adaptively and transparently to however many Mathematica kernels are available on any number of processor cores, either locally or across a cluster, grid, or network.

不过该项目最近的版本更新是2009年的Version 2 alpha 2。

周边环境需求

因为 Clojure 和 Mathmetica 都是多平台可用，因此 Clojuratica 理论上同时支持 Windows/OSX/Linux/Unix 多个平台，本文的环境是 Mac OSX 10.9。

安装配置 Clojuratica，需要事先安装好如下软件：

Git
ant
Clojure + lein

具体的安装步骤就不多说了，使用 brew install git 和 brew install ant 安装好 git 和 ant，再用 git 安装 Clojure，详细教程可以自己搜索。

周边环境基本就这些要求。

从GitHub安装Clojuratica

先进入你准备存放 Clojuratica 项目的本地目录 ~/GitHub

cd ~/GitHub/

然后从 github 上把 Clojuratica 项目克隆下来

Air:GitHub admin$ git clone https://github.com/drcabana/Clojuratica

进入 Clojuratica 目录

Air:GitHub admin$ cd Clojuratica/
Air:Clojuratica admin$ ls
build.xml	clojuratica.jar	doc		src
Air:Clojuratica admin$

用 ant 安装 Clojuratica

Air:Clojuratica admin$ ant jar

Buildfile: /Users/admin/GitHub/Clojuratica/build.xml

init:

compile:

jar:
     [jar] Building jar: /Users/admin/GitHub/Clojuratica/clojuratica.jar
     [echo] JAR written to /Users/admin/GitHub/Clojuraticaclojuratica.jar

BUILD SUCCESSFUL
Total time: 0 seconds
Air:Clojuratica admin$

很好，Clojuratica 安装成功。

接下来要做一些手工配置。

配置Clojuratica

首先要把 Clojuratica 项目内的 src/mma 目录中的三个 .m 文件拷贝到 Mathematica 文件夹里的 Autoload 目录中，文件如下：

Air:Clojuratica admin$ cd ./src/mma
Air:mma admin$ ls
ClojurianScopes.m	ClojurianScopes.nb	FunctionalExtras.m	HashMaps.m		HashMaps.nb
Air:mma admin$

这里需要根据不同版本的 Mathematica 来确定目的地路径，我的版本是 Mathematica 8.0，所以对应的路径为 /Applications/Mathematica/SystemFiles/Autoload/，所以命令如下：

Air:mma admin$ cp *.m  /Applications/Mathematica/Autoload/

接下来需要进入 ~/.lein 目录，修改一下配置文件 profiles.clj，主要是增加这一句：

[lein-localrepo "0.4.1"]

下面是我的配置：

Air:mma admin$ cat ~/.lein/profiles.clj
{:user {:plugins [[lein-swank "1.4.0"]
	[lein-localrepo "0.4.1"] ] } }
Air:mma admin$

然后要用 lein 把 clojuratica.jar 和 JLink.jar 安装到 localrepo，命令如下：

lein localrepo install ~/GitHub/Clojuratica/clojuratica.jar local.repo/clojuratica 2.0_alpha3

lein localrepo install /Applications/Mathematica.app/Links/JLink/JLink.jar local.repo/JLink 8.0

不过第二条命令貌似没有成功，所以需要进入目录 .m2/repository/local/repo 中手动建立一个符号链接：

Air:mma admin$ cd ~/.m2/repository/local/repo/JLink
Air:JLink admin$ ls
8.0				maven-metadata-local.xml
Air:JLink admin$ ln -s /Applications/Mathematica.app/SystemFiles/Links/JLink/JLink.jar JLink-8.0.jar

最后用 tree 命令查看一下：

Air:JLink admin$ tree ~/.m2/repository/local/repo/JLink/
/Users/admin/.m2/repository/local/repo/JLink/
├── 8.0
│   ├── JLink-8.0.jar -> /Applications/Mathematica.app/SystemFiles/Links/JLink/JLink.jar
│   └── _maven.repositories
└── maven-metadata-local.xml

1 directory, 3 files
Air:JLink admin$

非常好，现在基本配置全部完成，接下来就可以创建一个 Clojuratica 的新项目了。

创建一个新项目运行Clojuratica

首先，用 lein 创建一个新项目，假设我们要把新项目 mmaclj2 创建在 ~/cljProject/ 目录，命令如下：

Air:JLink admin$ cd ~/cljProject/
Air:cljProject admin$ lein new mmaclj2
Generating a project called mmaclj2 based on the 'default' template.
The default template is intended for library projects, not applications.
To see other templates (app, plugin, etc), try `lein help new`.
Air:cljProject admin$

进入新建项目的目录，查看一下：

Air:cljProject admin$ cd mmaclj2/
Air:mmaclj2 admin$ ls
LICENSE		README.md	doc		project.clj	resources	src		test
Air:mmaclj2 admin$

首先需要修改当前目录下的 project.clj 文件，我们可以先看一下它的内容：

Air:mmaclj2 admin$ cat project.clj 
(defproject mmaclj2 "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.6.0"]])
Air:mmaclj2 admin$

在依赖项中增加 JLink 和 clojuratica，改为如下：

(defproject mmaclj2 "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.6.0"]
				 [local.repo/JLink "8.0"]
				 [local.repo/clojuratica "2.0_alpha3"]])

然后需要进入 ./src/mmaclj2/ 目录中：

Air:mmaclj2 admin$ cd ./src/mmaclj2/
Air:mmaclj2 admin$ ls
core.clj
Air:mmaclj2 admin$ pwd
/Users/admin/cljProject/mmaclj2/src/mmaclj2
Air:mmaclj2 admin$

在这里新增一个 connect.clj 文件，这段代码用于建立 Clojure 跟 Mathematica 的连接，内容如下：

(ns mmaclj2.connect
  (:use clojuratica)
  (:import [com.wolfram.jlink MathLinkFactory]))

(def kernel-link
     (MathLinkFactory/createKernelLink
       "-linkmode launch -linkname '/Applications/Mathematica.app/Contents/MacOS/MathKernel' '-mathlink'"))

(.discardAnswer kernel-link)	
(def math-evaluate (math-evaluator kernel-link))	
(def-math-macro math math-evaluate)

这里一定要注意第一句 ns mmaclj2.connect，必须要跟你的项目名称 mmaclj2 一致。

很好，到现在为止，我们成功地创建了一个新的项目，并且完成这个项目的相关配置，接下来就可以尝试着运行了。

Clojuratica使用实例

首先在这个项目的目录内通过 lein repl 来启动交互接口，具体命令如下：

Air:mmaclj2 admin$ lein repl
nREPL server started on port 55552 on host 127.0.0.1 - nrepl://127.0.0.1:55552
REPL-y 0.3.1
Clojure 1.6.0
    Docs: (doc function-name-here)
          (find-doc "part-of-name-here")
  Source: (source function-name-here)
 Javadoc: (javadoc java-object-or-class-here)
    Exit: Control+D or (exit) or (quit)
 Results: Stored in vars *1, *2, *3, an exception in *e

user=>

出现 user=> 提示符说明已经成功运行 Clojuratica 交互环境，接下来运行我们的项目代码：

user=> (use 'mmaclj2.connect)
nil
user=>

返回 nil 说明成功加载，也就是说我们现在已经成功连接到 Mathematica 了，现在就可以执行一些实验操作了：

user=> (math (Plus 1 1))
2
user=> (math (FactorInteger 12345))
[[3 1] [5 1] [823 1]]
user=> (math
  #_=>      (Plus 1 1)
  #_=>      (FactorInteger 12345))
[[3 1] [5 1] [823 1]]
user=>

因为我对 Mathmetica 也不是特别熟悉，所以上面几个示范的例子也都是从官网教程拷贝过来的，所以如果希望更深入的使用，还是多看看官网的教程吧，