Original link: http://www.concentric.net/~Ttwang/tech/inthash.htm
Taken from: http://web.archive.org/web/20071223173210/http://www.concentric.net/~Ttwang/tech/inthash.htm
Reformatted using pandoc
Thomas Wang, Jan 1997
last update Mar 2007
Original link: http://www.concentric.net/~Ttwang/tech/inthash.htm
Taken from: http://web.archive.org/web/20071223173210/http://www.concentric.net/~Ttwang/tech/inthash.htm
Reformatted using pandoc
Thomas Wang, Jan 1997
last update Mar 2007
To remove a submodule you need to:
| ! quicksort.f -*-f90-*- | |
| ! Author: t-nissie | |
| ! License: GPLv3 | |
| ! Gist: https://gist.github.com/t-nissie/479f0f16966925fa29ea | |
| !! | |
| recursive subroutine quicksort(a, first, last) | |
| implicit none | |
| real*8 a(*), x, t | |
| integer first, last | |
| integer i, j |
| function varargout = crspline_curve(varargin) | |
| %CRSPLINE_CURVE Конструирует двумерную кривую кубическим Catmull-Rom интерполяционным сплайном | |
| % | |
| % Описание: | |
| % Функция конструирует двумерную кривую по узловым точкам, используя | |
| % Catmull-Rom интерполяционные кубические сплайны. | |
| % Данные сплайны могут локально контролироваться и проходят по | |
| % узловым точкам, а не в выпуклой их оболочке. | |
| % | |
| % Литература: |
| local enummt = { | |
| __index = function(table, key) | |
| if rawget(table.enums, key) then | |
| return key | |
| end | |
| end | |
| } | |
| local function Enum(t) | |
| local e = { enums = t } |