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 } |