Skip to content

Instantly share code, notes, and snippets.

View Observatorio-de-Matematica's full-sized avatar

Observatorio-de-Matematica

View GitHub Profile
/* [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 ]
El orden de las indeterminadas influye a la hora de calcular la base de Groebner
[wxMaxima: comment 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 ]
Vamos a calcular la intersección de dos ideales.
[wxMaxima: comment 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 ] */
/* [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 ] */
/* Author Chung Chan
Copyright (C) 2021 Chung Chan */
/* remove
load(descriptive);
load(draw);
*/
/****************
helper functions
****************/

wxmx2texi - WxMaxima Worksheet to TexInfo Converter

Introduction

Google Summer of Code 2021.

This blog describes my work during the Google Summer of Code 2021 with Maxima under INCF Organization. All my codes can be seen on GitHub here.

Package wxmx2texi, is a loadable package in Maxima provides WxMaxima Worksheet to

@louisswarren
louisswarren / graphs.mac
Last active January 7, 2024 14:46
Graphs in maxima
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);
@krantikal
krantikal / maximafacts.md
Last active October 25, 2023 03:09
[WX Maxima] facts #scicmp #cas #housekeeping

Maxima: Housekeeping facts

Autocomplete

  1. ctrl + k autocompletes, e.g sol ctrl+k
  2. shift + ctrl + k shows usage as well, e.g sol shift + ctrl +k

Greek vars

esc a esc gives you alpha (greek). Can be used as var name.

@oubiwann
oubiwann / README.md
Last active May 11, 2024 19:31
MACLISP and MACSYMA on PDP-10 / ITS (emulation)

MACLISP and MACSYMA on PDP-10 / ITS (emulation)

Goals

On a Debian machine, using simh emulating a PDP-10 running ITS:

  1. Write some Lisp files on ITS, compile them, and run them.
  2. Run MACSYMA and view rendered plots on an emulated Tektronix 4010

Background

@amaizacatalan
amaizacatalan / esfera_irregular.mac
Created April 27, 2019 10:04
Esferas irregulares con Maxima
/* 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*/