diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci deleted file mode 100644 index 82ac7c4f..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Paramark.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 08.06.18 - -function P=Paramark(varargin) - Nargs=length(varargin); - PA=varargin(1); - PB=varargin(2); - PC=varargin(3); - R=0.5; - if Nargs>=4 - R=varargin(4)*R; - end - U=R*(PA-PB)/Vecnagasa(PA,PB); - V=R*(PC-PB)/Vecnagasa(PC,PB); - if Gaiseki(PA-PB,PC-PB)~=0 - P=Listplot([PB+U,PB+U+V,PB+V]); - else - P=[]; - end -endfunction - |