Skip to content

Instantly share code, notes, and snippets.

View folsen's full-sized avatar

Fredrik Harrysson folsen

View GitHub Profile
function errVSstep(A, y0, t0, tf)
errors = [];
range = 1:20;
h = (tf-t0)./2.^range;
for i=range
[approx, err] = eulerint(A,y0,t0,tf,2^i);
errors = [errors, norm(err)];
end
/*
* AppController.j
* NewApplication
*
* Created by You on July 5, 2009.
* Copyright 2009, Your Company All rights reserved.
*/
@import <Foundation/CPObject.j>
@import "FileUpload.j"
function bvp( N )
r0 = 0.02; %m
h = 20; %W/m^2*K
k = 14; %W/m*K
TA = 20; %degrees C
T0 = 100; %degrees C
L = 0.1; %m
a = @(x) -1./(L-x/2);
function unew = burger(u,d,dt,bdry)
N = length(u);
dx = 1/(N);
sup = d*dt/dx^2;
main = 1*ones(N,1)-u*dt/dx-2*d*dt/dx^2*ones(N,1);
function supportsBoxShadow() {
var s = document.body.style;
return s.WebkitBoxShadow !== undefined || s.MozBoxShadow !== undefined || s.boxShadow !== undefined;
}
function frame_pictures(){
// Exit if we don't have boxshadow support at all and fall back on wp-caption
if(!supportsBoxShadow()) return;
<div class="year-archive">
<h2>2006</h2>
<ul>
<?php wp_get_archives('year=2006&show_post_count=true'); ?>
</ul>
</div>
<div class="year-archive">
<h2>2007</h2>
<ul>
<?php wp_get_archives('year=2007&show_post_count=true'); ?>
function [coords, dof, ndof, edof, nelm, ex, ey] = geometry(gridsize)
if nargin==0
gridsize = 5;
end
b12 = @(y) .120 - y;
b16 = @(y) y - .020;
coords = [];
for y = 0:gridsize:.070;
for x = 0:gridsize:.100;
if(y < .010)
@folsen
folsen / svd.clj
Created December 27, 2010 18:12
A word-problem game from a swedish newpaper solved in clojure
(ns svd.core
(:use
clojure.contrib.combinatorics)
(:require
[clojure.contrib.duck-streams :as ds]
[clojure.contrib.str-utils :as str]))
(defn wordlist []
(set (map #(re-find #"[^/]*" %) (ds/read-lines "sv_se.dic"))))
@folsen
folsen / svd.rb
Created December 27, 2010 18:14
A word-problem game from a swedish newspaper solved in very poor (old) ruby code.
def init_wordlist()
@wordlist = {}
file = File.new("sv_SE.dic", "r")
while content = file.gets
@wordlist[content.split("/")[0]] = 1
end
file.close
end
@folsen
folsen / TeXTemplate.clj
Created February 19, 2011 18:01
TeXTemplate
(ns textemplate.core
(:use fleet))
(spit "output/test.tex" ((fleet [number] (slurp "test.tex.fleet")) 25))
(.. Runtime (getRuntime) (exec "pdflatex --output-directory=output output/test.tex"))