Skip to content

Instantly share code, notes, and snippets.

View sritchie's full-sized avatar
🎯
Focusing

Sam Ritchie sritchie

🎯
Focusing
View GitHub Profile
#!/bin/bash
FILE=$HOME/.ssh/id_ed25519_snmc
KEY="-----BEGIN OPENSSH PRIVATE KEY-----
b3BlbnNzaC1rZXktdjEAAAAABG5vbmUAAAAEbm9uZQAAAAAAAAABAAAAMwAAAAtzc2gtZW
QyNTUxOQAAACAEGVQPnrOkmzeYuMKmcBX+B7uamoC7ccTJ2FX9sZlJugAAAJjgjCcM4Iwn
DAAAAAtzc2gtZWQyNTUxOQAAACAEGVQPnrOkmzeYuMKmcBX+B7uamoC7ccTJ2FX9sZlJug
AAAEBrnJre0hS6dC3+5qZrf/nvjMiqY6iCdzyQ7Q5EPbtw8wQZVA+es6SbN5i4wqZwFf4H
u5qagLtxxMnYVf2xmUm6AAAAEXJvb3RAZjFmMzM1ZjQ5MDcyAQIDBA==
-----END OPENSSH PRIVATE KEY-----
module BlackBox
# Because the module hides these from scope
using Gen
change_only_T = (UnknownChange(), NoChange(), NoChange(), NoChange())
prefix_address(t :: Int, rest) :: Pair = (t == 1) ? (:initial => rest) : (:steps => (t-1) => rest)
# Some black box params
drift_step_factor = 1/3.
N_particles = 10
{
"start_pose": {
"hd": 0.08090409915523009,
"p": [
1.8437380952380948,
16.669857142857147
]
},
"wall_verts": [
[
;; # Evolving Foucault's Pendulum
^{:nextjournal.clerk/visibility {:code :hide}}
(ns examples.simulation.foucault
(:refer-clojure
:exclude [+ - * / = zero? compare numerator denominator
ref partial infinite? abs run!])
(:require [emmy.env :as e :refer :all :exclude [phi]]
[emmy.clerk :as ec]
[emmy.viewer :as ev]
;; Composing viewers!
;; - something like clerk/sync
;; - take requires from namespace form and set up corresponding SCI namespace
(defn func [x]
(if (= x 3)
))
(ns examples.simulation.toroid
(:refer-clojure
:exclude [+ - * / = zero? compare
numerator denominator ref partial
infinite? abs])
(:require [emmy.env :as e :refer :all]
[emmy.expression.compile :as xc]
[nextjournal.clerk :as clerk]
[examples.manifold.pq-knot :as pq]))
<?xml version="1.0" encoding="UTF-8"?>
<project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">
<modelVersion>4.0.0</modelVersion>
<groupId>sicmutils</groupId>
<name>sicmutils</name>
<description>A port of the scmutils computer algebra/mechanics system to Clojure.</description>
<url>http://github.com/sicmutils/sicmutils</url>
<licenses>
<license>
<name>GPLv3</name>
<!DOCTYPE html>
<html lang="en-US">
<head>
<meta charset="utf-8" />
<title>MathLive Basic Example</title>
<style>
body {
color: #444;
background-color: #f9f9f9;
}
(ns demo.bench
(:require [sci.core :as sci]))
(def sci-context
(sci/init
{:classes {'Math js/Math}}))
(defn sci-eval [f-form]
(sci/eval-form (sci/fork sci-context) f-form))
🌐 Establishing connection…
🗂 Fetching git repository
⏬ Downloading deps
Cloning: https://github.com/nextjournal/clerk.git
Checking out: https://github.com/nextjournal/clerk.git at f18afd7e6165748765ea43c23604cc1965f20e35
Downloading: reagent/reagent/1.1.1/reagent-1.1.1.pom from clojars
Cloning: https://github.com/nextjournal/viewers.git
Downloading: thheller/shadow-cljs/2.20.7/shadow-cljs-2.20.7.pom from clojars
Checking out: https://github.com/nextjournal/viewers.git at 1aaedea7709611cbb393add4c85c7a2dd551260e
Cloning: https://github.com/babashka/sci.configs.git