On a Debian machine, using simh emulating a PDP-10 running ITS:
- Write some Lisp files on ITS, compile them, and run them.
- Run MACSYMA and view rendered plots on an emulated Tektronix 4010
with_slider_draw(k,makelist(i,i,1,7), | |
proportional_axes = xy, | |
xrange = [-3,3], | |
yrange = [-3,3], | |
xaxis=true, | |
yaxis=true, | |
grid = true, | |
title = "animation" , | |
label([sconcat("k=",k-4),-1,2]), | |
point_type=7, |
kill(all); | |
load("ezunits"); | |
x : c1*t^2 + c2*t + c3$ | |
dx : diff(x,t)$ | |
eqns : [ev(x,t=0`s) = 0`m, | |
ev(x,t=5`s) = 5`m, | |
ev(dx,t=0`s) = 1`(m/s)]$ |
/* Representación de una esfera irregular con Maxima*/ | |
/* Tomando las expresiones de J. Stewart Cálculo: conceptos y contextos */ | |
n:5$ | |
m:6$ | |
/*Definimos la superificie esférica usando las coordenadas esféricas*/ | |
rho:1+0.2*sin(m*theta)*sin(n*phi)$ | |
load(draw)$ | |
/* Definimos el dominio y el tipo de coordenadas para su gráfica */ | |
irr_sphere: spherical(rho,theta,0,2*%pi,phi,0,%pi)$ | |
/* Dibujamos la superfice sin colorear*/ |
anyp(pred, seq) := lreduce(lambda([P, x], P or pred(x)), seq, false); | |
allp(pred, seq) := lreduce(lambda([P, x], P and pred(x)), seq, true); | |
walklength(seq) := (length(seq)-1)/2; | |
walkverts(seq) := makelist(seq[2*i-1], i, 1, walklength(seq)+1); | |
walkedges(seq) := makelist(seq[2*i], i, 1, walklength(seq)); | |
closedp(seq) := is(first(seq) = last(seq)); | |
vertexset(G) := first(G); | |
edgeset(G) := second(G); |
/* Author Chung Chan | |
Copyright (C) 2021 Chung Chan */ | |
/* remove | |
load(descriptive); | |
load(draw); | |
*/ | |
/**************** | |
helper functions | |
****************/ |
/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ | |
/* [ Created with wxMaxima version 0.8.6 ] */ | |
/* [wxMaxima: comment start ] | |
PRIMERO HAY QUE CARGAR EL PAQUETE "GROBNER". LA ORDEN ES: | |
[wxMaxima: comment end ] */ | |
/* [wxMaxima: input start ] */ | |
load(grobner); | |
/* [wxMaxima: input end ] */ |
/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ | |
/* [ Created with wxMaxima version 0.8.6 ] */ | |
/* [wxMaxima: input start ] */ | |
load(grobner); | |
/* [wxMaxima: input end ] */ | |
/* [wxMaxima: comment start ] | |
Uso de diferentes órdenes monomiales. | |
[wxMaxima: comment end ] */ |