/usr/share/maxima/5.32.1/src/pois2.lisp is in maxima-src 5.32.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | ;;; -*- Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 10 -*- ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; The data in this file contains enhancments. ;;;;;
;;; ;;;;;
;;; Copyright (c) 1984,1987 by William Schelter,University of Texas ;;;;;
;;; All rights reserved ;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; (c) Copyright 1981 Massachusetts Institute of Technology ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(in-package :maxima)
(macsyma-module pois2)
(declare-top (special poisvals poishift poistsm poissiz poists $poisz $pois1))
(defmspec mpois (x) x)
(defun poislim1 (uu n)
(declare (ignore uu))
(unless (fixnump n)
(merror (intl:gettext "poislim: argument must be an integer; found: ~M") n))
(setq poisvals nil)
(setq poists (ash 1 n))
(dotimes (j 6)
(push (expt poists j) poisvals))
(setq poissiz n
poistsm (expt 2 (1- n))
poishift (let ((sum 0))
(dotimes (i 6 sum)
(incf sum (* poistsm (expt poists i)))))
$poisz '((mpois simp) nil nil)
$pois1 (list '(mpois simp) nil (list poishift 1)))
n)
(defun nonperiod (p)
(and (null (cadr p))
(= (caaddr p) poishift)
(null (cddr (caddr p)))))
(poislim1 nil 5)
|