Skip to content

Instantly share code, notes, and snippets.

Created September 23, 2010 08:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/593350 to your computer and use it in GitHub Desktop.
Save anonymous/593350 to your computer and use it in GitHub Desktop.
(do
(ns clojuratica-exp.core
(:use clojuratica)
(:require [clojure.contrib.str-utils2 :as str])
(:import [com.wolfram.jlink MathLinkFactory]))
(defonce kernel-link
(doto (MathLinkFactory/createKernelLink
(str/join " "
["-linkmode launch -linkname"
"'/usr/local/Wolfram/Mathematica/7.0/Executables/mathematica'"]))
(.discardAnswer)))
(defonce math-evaluate (math-evaluator kernel-link))
(def-math-macro math math-evaluate))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment