yamasushi

#!/usr/bin/env gosh

(use util.match)
; マニュアルからコピー

(define (usage)
  (format (current-error-port)
          "Usage: ~a regexp file ...\n" *program-name*)
  (exit 2))

yamasushi

(use srfi-1)
(use srfi-13)

(load "graph")

(define param-ogura35a  `(,ogura-graph35a ,ogura-cost35a  ,ogura-h35a ))
(define param-ogura35b  `(,ogura-graph35b ,ogura-cost35b  ,ogura-h35b ))
(define param-ogura36   `(,ogura-graph36  ,ogura-cost36   ,ogura-h36  ))
(define param-tahara319 `(,tahara-graph35 ,tahara-cost311 ,tahara-h319))
(define param-tahara327 `(,tahara-graph35 ,tahara-cost311 ,tahara-h327))

yamasushi

; graph
; 「人工知能システムの構成」をogura
; 「人工知能の基礎知識」をtahara

;グラフのコストを入力するための手続き
; 単方向のコスト
(define (gcost  from to cost)
  (list (cons (cons from to) cost) ) )

; 双方向のコスト

yamasushi

#!/usr/bin/env gosh

(use gauche.generator)
(use gauche.parseopt) 
(use srfi-27) ; 乱数
(use srfi-1)  ; list
(define (make-gm-generator a m x0 y0) 
  (define (f x)
    (let1 xx (* x x)
      (+ (* m x) (/ (* 2 (- 1 m) xx) (+ 1 xx) ) )