zeptometer

/*	Compiler: ECL 12.7.1                                          */
/*	Date: 2012/8/14 15:31 (yyyy/mm/dd)                            */
/*	Machine: NT 5.0 x86                                           */
/*	Source: e:/Documents/emacs-home/lisp/.quicklisp/dists/quicklisp/software/ieee-floats-20101006-darcs/ieee-floats.lisp */
#include <ecl/ecl-cmp.h>
#include "E:/Documents/emacs-home/ieee-floats.h"
/*	local function MAKE-FLOAT-CONVERTERS                          */
/*	optimize speed 3, debug 0, space 0, safety 2                  */
static cl_object LC1make_float_converters(cl_object V1, cl_object V2)
{ VT2 VLEX2 CLSR2 STCK2

zeptometer

a = [1,1,1,1,1,1]; //aのスポットは6個
b = [0,0,0,0,0,0,0]; //bのスポットは7個

k1=1;k2=1;kd=0.1; //平衡定数
y0=[3;2.9;0;0]; //各成分の初期値

deff("ydot=f(x,y)",..
"ydot=[y(1)*(k1/​(1+y(1)+2*y(3))-kd);y(2)*(k​1/(1+y(2)+2*y(4))-kd);..
y(2)*k2/​(1+y(2))-y(3)*kd;y(1)*k2/​(1+y(1))-y(4)*kd]");
Inc0=[0,15,0,0]';

zeptometer

//15*15のorigamiによるシミュレーション

a = [1,1,1,1,1,1]; //aのスポットは6個
b = [0,0,0,0,0,0,0]; //bのスポットは7個

k1=1;k2=1;kd=0.1; //平衡定数
y0=[3;2.9;0;0]; //各成分の初期値

deff("ydot=f(x,y)",..
"ydot=[y(1)*(k1/(1+y(1)+2*y(3))-kd);y(2)*(k1/(1+y(2)+2*y(4))-kd);..

zeptometer

#!/bin/sh

# A simple script to facilitate the use of the OSS compatibility library.
# Usage:
#	aoss <command> <command options and arguments>

if [ -d /proc/asound ]; then
  prefix=/usr
  libdir=${prefix}/lib32/
  LD_PRELOAD=${libdir}/libaoss.so${LD_PRELOAD:+:$LD_PRELOAD} exec "$@"

zeptometer

#include <complex>
using namespace std;

typedef complex<double> P;

// 許容する誤差ε
#define EPS (1e-10)
// 2つのスカラーが等しいかどうか
#define EQ(a,b) (abs((a)-(b)) < EPS)
// 2つのベクトルが等しいかどうか

zeptometer

class Node
  attr_reader :left, :right
  def initialize(left,right)
    @left = left
    @right = right
  end
  def to_s
    "(#{@left||""},#{@right||""})"
  end
end

zeptometer

;;; global settings
;; keybind
(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\M-N" '(lambda () (interactive) (scroll-up 1)))
(global-set-key "\M-P" '(lambda () (interactive) (scroll-down 1)))
 
;; scrolling
(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))
(setq mouse-wheel-progressive-speed t)
(setq mouse-wheel-follow-mouse t)

zeptometer

(defpackage alias-package
  (:use :common-lisp)
  (:export :import-as
     :init-readtable
	   :register-nickname))

(in-package :alias-package)

(defparameter *prev-readtable* (copy-readtable nil))

zeptometer

(defpackage :my-package
  (:use    :common-lisp
           :iterate)
  (:export :my-func1
           :my-func2))
 
(defun my-func1 (x y)
  (+ x y))
 
(defun my-func2 (list)

zeptometer

(defpackage :rosalind
  (:use :common-lisp
  :iterate)
  (:shadow :read-line
	   :read-char
	   :peek-char))
 
(in-package :rosalind)
 
(defvar *default-input-path* "E:\\Documents\\downloads\\")