Skip to content

Instantly share code, notes, and snippets.

@sguzman
sguzman / urls.txt
Created February 10, 2022 03:39
All gifs by Robert on Giphy
https://media3.giphy.com/media/d1FKOWwaaKrSB9XW/giphy.gif
https://media3.giphy.com/media/d1FKQpbkpUOCo7NC/giphy.gif
https://media3.giphy.com/media/d1FKRi6bNTt5l2YE/giphy.gif
https://media3.giphy.com/media/d1FKTD1PxYZDKoA8/giphy.gif
https://media3.giphy.com/media/d1FL2YDokTP5xsVq/giphy.gif
https://media3.giphy.com/media/d1FL4MZRTrOb0UqA/giphy.gif
https://media3.giphy.com/media/d1JfcYFy8r0TfAA0/giphy.gif
https://media3.giphy.com/media/d1Jfgk9MSlJh0lkA/giphy.gif
https://media3.giphy.com/media/d1JfiWjS3WwYu1K8/giphy.gif
https://media3.giphy.com/media/d1JfiXx1jrDZ0TsI/giphy.gif
@sguzman
sguzman / bibles.csv
Created February 10, 2022 01:55
Easiest bible versions to read by language - i will learn other languages by reading these versions :)
English Easy English Bible
Spanish Dios Hablo Hoy
French Nouvelle Francais Courant
German Hoffnung für Alle
Dutch Het Boek
Portuguese Portuguese New Testament: Easy-to-Read
Italian Nuova Riveduta 2006
@sguzman
sguzman / focus.js
Created October 4, 2021 20:24
Autofocus on text area
// ==UserScript==
// @name Duolingo Text Area Autofocus
// @namespace http://tampermonkey.net/
// @version 0.1
// @description try to take over the world!
// @author Salvador Guzman
// @match https://www.duolingo.com/skill/*
// @icon https://www.google.com/s2/favicons?domain=duolingo.com
// @grant none
// ==/UserScript==
@sguzman
sguzman / tomos.txt
Created October 3, 2021 00:13
Academia Mexicana de la Lengua tomos/Mexican language academy chronological texts
https://www.academia.org.mx/aml_static/bd/MEM001AMLT011975.pdf
https://www.academia.org.mx/aml_static/bd/MEM002AMLT021975.pdf
https://www.academia.org.mx/aml_static/bd/MEM003AMLT031975.pdf
https://www.academia.org.mx/aml_static/bd/MEM004AMLT041975.pdf
https://www.academia.org.mx/aml_static/bd/MEM005AMLT051975.pdf
https://www.academia.org.mx/aml_static/bd/MEM006AMLT061975.pdf
https://www.academia.org.mx/aml_static/bd/MEM007AMLT071975.pdf
https://www.academia.org.mx/aml_static/bd/MEM008AMLT081946.pdf
https://www.academia.org.mx/aml_static/bd/MEM009AMLT091954.pdf
https://www.academia.org.mx/aml_static/bd/MEM010AMLT101954.pdf
@sguzman
sguzman / urlist.json
Created September 30, 2021 21:52
Json file of Dash official docsets. Gotten from https://lucasg.github.io/2017/02/05/Downloading-Dash-docsets/
[
{"name" : "NET_Framework", "url" : "http://sanfrancisco.kapeli.com/feeds/NET_Framework.tgz"},
{"name" : "ActionScript", "url" : "http://sanfrancisco.kapeli.com/feeds/ActionScript.tgz"},
{"name" : "Akka", "url" : "http://newyork.kapeli.com/feeds/Akka.tgz"},
{"name" : "Android", "url" : "http://london.kapeli.com/feeds/Android.tgz"},
{"name" : "AngularJS", "url" : "http://sanfrancisco.kapeli.com/feeds/AngularJS.tgz"},
{"name" : "Angular.dart", "url" : "http://sanfrancisco.kapeli.com/feeds/Angular.dart.tgz"},
{"name" : "Ansible", "url" : "http://frankfurt.kapeli.com/feeds/Ansible.tgz"},
{"name" : "Apache_HTTP_Server", "url" : "http://frankfurt.kapeli.com/feeds/Apache_HTTP_Server.tgz"},
{"name" : "Appcelerator_Titanium", "url" : "http://london.kapeli.com/feeds/Appcelerator_Titanium.tgz"},
@sguzman
sguzman / export-plot.wls
Created September 21, 2021 23:51
Pretty Complex Graph
Export[CloudObject["plot"],
ComplexPlot[Exp[z^2 + 1], {z, -2 - 2 I, 2 + 2 I}
, PlotPoints -> 100
, PlotLegends -> "Expressions"
, MeshShading -> {{Automatic, Black}, {White, Automatic}}
, Mesh -> {Range[-10, 10, .5], Range[-10, 10, .5]},
MeshFunctions -> {Re[#2] &, Im[#2] &}, MeshStyle -> {White, Black}
]
, "PNG"
]
@sguzman
sguzman / nom-vs-real.wls
Created September 20, 2021 17:55
Comparing nominal vs real gdp of the us
With[{
list = CountryData["UnitedStates", {"GDP", All}]["DatePath"]
},
With[{
real = Table[
With[{
a = DateValue[First@list[[i]], "Year"],
b = QuantityMagnitude[Last@list[[i]]]
},
{DateObject[{a, 1, 1}],
@sguzman
sguzman / iteration-axioms.wls
Last active September 15, 2021 19:52
A set of rules for the algebra of iterated function tower
{(Subscript[\[ConstantC], i]^b)[a]<->Subscript[\[ConstantC], 1+i][a,b],Subscript[\[ConstantC], i][Subscript[\[ConstantC], -1+i][a,b],c]<->Subscript[\[ConstantC], 1+i][Subscript[\[ConstantC], i][a,c],Subscript[\[ConstantC], i][b,c]],Subscript[\[ConstantC], i][a,b]<->Subscript[\[ConstantC], i][b,a],Subscript[\[ConstantC], i][a,a]<->Subscript[\[ConstantC], 1+i][a]^2}
@sguzman
sguzman / complex-function-with-polya-field.wls
Created September 10, 2021 00:13
Trying out the complex function feature in mathematica and graphing a function with vectors indicated
With[{
limit = 2,
f = Function[z, z^3 - z]
},
Show[{
ComplexPlot[f[z]
, {z, limit + limit I, -limit - limit I}
, Mesh -> {Range[-10, 10, .5], Range[-10, 10, .5]}
, MeshFunctions -> {Re[#2] &, Im[#2] &}
, MeshStyle -> {White, Black}
$RecursionLimit = Infinity
collatz[1] = 1
collatz[n_Integer /; And[n > 1, OddQ[n]]] := collatz[n] = 3 n + 1
collatz[n_Integer /; And[n > 1, EvenQ[n]]] := collatz[n] = n/2
collatzseq[1] = {1}
collatzseq[n_Integer /; n > 1] :=
collatzseq[n] = {n, Splice@collatzseq@collatz@n}