"Fossies" - the Fresh Open Source Software Archive

Member "MACE1.6.0/exampleScripts/circleStructure/insideCircle.txt" (15 Aug 2018, 1063 Bytes) of package /windows/misc/MACE1.6.0.zip:

As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 %Copyright (C) 2012-2018 Jan Christian Rohde
    2 %
    3 %This file is part of MACE.
    4 %
    5 %MACE is free software; you can redistribute it and/or modify it under the terms of the
    6 %GNU General Public License as published by the Free Software Foundation; either version 3
    7 %of the License, or (at your option) any later version.
    8 %
    9 %MACE is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without
   10 %even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   11 %GNU General Public License for more details.
   12 %
   13 %You should have received a copy of the GNU General Public License
   14 %along with MACE; if not, see http://www.gnu.org/licenses.
   16 % This script checks for a record with the variables centerXCoord, centerYCoord, radius
   17 % that the point (XCoord,YCoord) is inside of the circle given by the record-variables.
   19 get(XCoord,YCoord)
   21 diff=(XCoord-centerXCoord)*conj(XCoord-centerXCoord)+(YCoord-centerYCoord)*conj(YCoord-centerYCoord);
   23 give(diff<radius*conj(radius))
   25 % delete garbage
   26 delete(XCoord)
   27 delete(YCoord)
   28 delete(diff)