archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".
  • efg's Reference Library: Delphi Engineering Mathematics
    DetInv Eigenvectors and Eigenvalues Symmetric Matrix General Square Matrix Real Eigenvalue EigenMatrix TPMath2 EigenSym TPMath2 EigenVal TPMath2 EigenVec eigsrt eigenvectors sorts into order by eigenvalue recipes elmhes reduce a general matrix to Hessenberg form recipes Extentia Exentia is an open source library for Delphi designed to perform computations on vectors of 32 bit floating point data elements using the Intel SSE AMD 3D Now and Intel x87 instruction sets www tommesani com Exentia html Dr Chris Rorden created a very basic project based on this software It uses QueryPerformanceCounter to measure the performance benefit for using SIMD calls www psychology nottingham ac uk staff cr1 simd html Gauss Elimination www optimalcode com exgauss htm Gaussian Reduction www ibrtses com delphi dequ html GaussJ Gauss Jordan matrix inversion Download Turbo Pascal 5 5from the Borland Community Museum http community borland com museum and look for the HILB PAS file mathe recipes gaussj hqr eigenvalues of a Hessenberg matrix recipes Invert Matrix add matrices A and B to give matrix C Turbo p 147 148 Jacobi EigenVals EigenVect Eigenvalues and Eigenvectors TPMath1 Eigen Linear Equations Gauss Jordan Elimination LU decomposition Singular value decomposition TPMath2 SysEq TPMath2 SysEqLU TPMath2 SysEqSVD Linear Equations Complex Coefficients TPMath2 SysEqC lubksb ludcmp linear equation solution LU decomposition ludcmp and backsubstitution lubksb recipes Matrices TPMath1 Matrices Matrices Complex Elements TPMath1 MatComp Matrix Shareware Product by SDL Software Development Lohninger www lohninger com matrix html Matrix Math Toolkit Commerical Product from Engineering Objects International www engineeringobjects com MatrixMathToolkitv4 htm Matrix Operations Dynamic Types TDynFloatMatrix TDynLWordMatrix TDynLIntMatrix MatrixIsRectangular MatrixDimensions MatrixIsSquare MatricesSameDimensions AddMatrices AddToMatrix SubtractMatrices SubtractFromMatrix MultiplyMatrixByConst MultiplyMatrixByConst2 MultiplyMatrices TransposeMatrix GrandMean ESBMaths mprove linear equation solution iterative improvement recipes Mult Matrix add matrices A and B to give matrix C Turbo p 147 svbksb singular value backsubstitution recipes svdcmp singular value decomposition of a matrix recipes TVector Vector component www lohninger com vector html toeplz solve Toeplitz systems recipes tred2 Householder reduction of a real symmetric matrix recipes tqli eigensolution of a symmetric tridiagonal matrix recipes tridag solution of tridiagonal systems recipes vander Vandermonde systems recipes Vector Vectors is a class library for Object Pascal Delphi 1 3 5 and Free Pascal v 0 99 15 and higher which implements vectors dynamically sized arrays based on different Object Pascal s simple types including all integer and real types booleans pointers and strings These vectors resemble TList class type from Delphi VCL but in addition to the common operations like insert and delete they offer wide range of operations depending on type of vector elements sorting searching arithmetic vector operations for number type vectors logical operations for boolean vectors and so on The library also implements a range of derivative and additional classes sparse vectors matrixes queues stacks dictionaries streams Vectors zip from DSP Vector Operations Dynamic types TDynFloatArray TDynLWordArray TDynLIntArray SquareAll InverseAll Log10All LinearTransform AddVectors SubVectors MultVectors DotProduct ESBMaths Digital Signal Processing Fourier Analysis FFTs Numerical Methods in Pascal page http www rab larc nasa gov nmp nmpIndex htm DigitalSignalProcessing www

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/MathFunctions/Engineering.htm (2016-02-14)
    Open archived version from archive



  • Remember the CRC calculator You ve stated the following in the source code source quote In D3 there is no way to print an unsigned 4 byte integer so some CRC 32 values in decimal may be negative In D4 all values are unsigned Test CRC 16 CRC 32 String Dec Hex Dec Hex abc 38712 9738 891568579 CADBBE3D D3 3403398717 CADBBE3D D4 ABC 17697 4521 1551695031 5C7CFCB7 D3 D4 end well It is right But we forgot that there is the Integer type Currency that is a 64 bit scaled integer that could do the job for us so I write the following routine and voila we can now print a 32 bit integer in D3 function DWORDToStr v DWORD String var c Currency begin if High DWORD 0 then Result IntToStr v else begin c 4294967296 0 v remember 4294967296 2 32 and v is negative Result CurrToStr c end end I ve changed the source for the CRC calculator to read the following procedure TCRCCalc CRCTextChange Sender TObject VAR CRC16 WORD CRC32 DWORD s STRING begin s CRCText Text CRC16 0 Could use FFFF or other initial value IF LENGTH s 0 Avoid access violation in D4

    Original URL path: http://www.efg2.com/Lab/Mathematics/FelipeRochaMachado.TXT (2016-02-14)
    Open archived version from archive


  • Calculations by Aram Perez in IEEE Micro June 1983 pp 40 50 The constants here are for the CRC 16 generator polynomial X 16 X 15 X 2 1 Other generator polynomials could be used but a new derivation would be needed to calculate the v variables below CONST hexdigit ARRAY 0 15 OF CHAR 0123456789ABCDEF v ARRAY 1 16 OF 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 VAR count 0 256 i j 1 4 k sum 0 16 x x1 x2 x3 x4 x5 x6 x7 x8 0 1 BEGIN count 0 FOR x8 0 TO 1 DO FOR x7 0 TO 1 DO FOR x6 0 TO 1 DO FOR x5 0 TO 1 DO FOR x4 0 TO 1 DO FOR x3 0 TO 1 DO FOR x2 0 TO 1 DO FOR x1 0 TO 1 DO BEGIN x x7 XOR x6 XOR x5 XOR x4 XOR x3 XOR x2 XOR x1 v 16 x8 XOR x v 15 x v 14 x8 XOR x7 v 13 x7 XOR x6 v 12 x6 XOR x5 v 11 x5 XOR x4 v 10 x4 XOR

    Original URL path: http://www.efg2.com/Lab/Mathematics/CRCTable16.pas.txt (2016-02-14)
    Open archived version from archive


  • Ted iso 8859 1 Q T F8raasen Subject Re Computer Lab Feedback In Reply To References Mime Version 1 0 Content Type text plain charset us ascii format flowed Status U X UIDL O3vRQ9HkIcxMCAE HI sorry about this delayed feed back Regarding the suggestion under i got it working after making some changes I changed Nbyte and I to longoword Same with CRCvalue but guess this part was not needed All in all it solved my problem thank you very much You may wanne oppdate the code on the web in case anyone else tries to use the code Again Thank you Kind Regards Ted PROCEDURE CalcCRC16 p pointer nbyte Longword VAR CRCvalue Longword VAR i longWORD Changed to longword from word q buffer The following is a little cryptic but executes very quickly The algorithm is as follows 1 exclusive or the input byte with the low order byte of the CRC register to get an INDEX 2 shift the CRC register eight bits to the right 3 exclusive or the CRC register with the contents of Table INDEX 4 repeat steps 1 through 3 for all bytes BEGIN q p FOR i 1 TO nBYTE DO CRCvalue Hi CRCvalue XOR Table q i XOR Lo CRCvalue END CalcCRC16 At 22 55 2001 07 05 0500 you wrote Hi Ted I have been working on a project that needed CRC 16 and used your CRC 16 CRC 32 Calculator code This worked great for a while but there seems to be some limitation on the length of the string Atleast I m told that the crc value is invalide verified by a third party when the string is longer then a limit No found how long yet but seems to be around 634KB string CRC 16 should fail somewhere

    Original URL path: http://www.efg2.com/Lab/Mathematics/TedToraasen_CRC16LongWord.txt (2016-02-14)
    Open archived version from archive


  • for use on a data file would be apppreciated Here s a unit that implements a 32 bit CRC using the same polynomial as the one used by PKZIP unit uCrc interface function GetStringCrc const Data String LongInt implementation var CrcTable array 0 255 of LongInt procedure InitTable var I J Integer begin for I 0 to 255 do begin CrcTable I I for J 0 to 7 do if

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0117.txt (2016-02-14)
    Open archived version from archive


  • im initialization Teil mit BuildCRCnnTable initialisieren unit CRC implementiert 3 CRC Routinen zur Berechnung der Prüfsumme nach dem Cyclic Redundancy Check Algorithmus siehe DDJ April 97 pp103 R interface function CalculateCRC16 const Data Length LongWord Word function CalculateXYZModemCRC16 const Data Length LongWord Word function CalculateCRC32 const Data Length LongWord LongWord implementation type TCRC16Table array 0 255 of Word TCRC32Table array 0 255 of LongWord TBytes array 0 MaxInt 1 of Byte procedure BuildCRC16Table var CRC16Table TCRC16Table var i j word CRC word begin for i 0 to 255 do begin CRC i shl 8 for j 0 to 7 do begin if crc and 8000 8000 then crc crc shl 1 xor 1021 else crc crc shl 1 end CRC16Table i crc end end procedure BuildCRC32Table var CRC32Table TCRC32Table var i j LongWord CRC LongWord begin for i 0 to 255 do begin CRC i shl 24 for j 0 to 7 do begin if crc and 80000000 80000000 then crc crc shl 1 xor 04C11DB7 else crc crc shl 1 end CRC32Table i crc end end function CalculateCRC16 const Data Length LongWord Word var CRC16Table TCRC16Table CRC16 word index byte i LongWord begin BuildCRC16Table CRC16Table CRC16 0 for i

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1028a.txt (2016-02-14)
    Open archived version from archive


  • XModem CRC16Table array 0 255 of Word 0000 1021 2042 3063 4084 50A5 60C6 70E7 8108 9129 A14A B16B C18C D1AD E1CE F1EF 1231 0210 3273 2252 52B5 4294 72F7 62D6 9339 8318 B37B A35A D3BD C39C F3FF E3DE 2462 3443 0420 1401 64E6 74C7 44A4 5485 A56A B54B 8528 9509 E5EE F5CF C5AC D58D 3653 2672 1611 0630 76D7 66F6 5695 46B4 B75B A77A 9719 8738 F7DF E7FE D79D C7BC 48C4 58E5 6886 78A7 0840 1861 2802 3823 C9CC D9ED E98E F9AF 8948 9969 A90A B92B 5AF5 4AD4 7AB7 6A96 1A71 0A50 3A33 2A12 DBFD CBDC FBBF EB9E 9B79 8B58 BB3B AB1A 6CA6 7C87 4CE4 5CC5 2C22 3C03 0C60 1C41 EDAE FD8F CDEC DDCD AD2A BD0B 8D68 9D49 7E97 6EB6 5ED5 4EF4 3E13 2E32 1E51 0E70 FF9F EFBE DFDD CFFC BF1B AF3A 9F59 8F78 9188 81A9 B1CA A1EB D10C C12D F14E E16F 1080 00A1 30C2 20E3 5004 4025 7046 6067 83B9 9398 A3FB B3DA C33D D31C E37F F35E 02B1 1290 22F3 32D2 4235 5214 6277 7256 B5EA A5CB 95A8 8589 F56E E54F D52C C50D 34E2 24C3 14A0 0481 7466 6447 5424 4405 A7DB B7FA 8799 97B8 E75F F77E C71D D73C 26D3 36F2 0691 16B0 6657 7676 4615 5634 D94C

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0630b.txt (2016-02-14)
    Open archived version from archive


  • 14 HEE H01 H2E HC0 H2F H80 HEF H41 H2D H00 HED HC1 HEC H81 H2C H40 crc table string 15 HE4 H01 H24 HC0 H25 H80 HE5 H41 H27 H00 HE7 HC1 HE6 H81 H26 H40 crc table string 16 H22 H00 HE2 HC1 HE3 H81 H23 H40 HE1 H01 H21 HC0 H20 H80 HE0 H41 crc table string 17 HA0 H01 H60 HC0 H61 H80 HA1 H41 H63 H00 HA3 HC1 HA2 H81 H62 H40 crc table string 18 H66 H00 HA6 HC1 HA7 H81 H67 H40 HA5 H01 H65 HC0 H64 H80 HA4 H41 crc table string 19 H6C H00 HAC HC1 HAD H81 H6D H40 HAF H01 H6F HC0 H6E H80 HAE H41 crc table string 20 HAA H01 H6A HC0 H6B H80 HAB H41 H69 H00 HA9 HC1 HA8 H81 H68 H40 crc table string 21 H78 H00 HB8 HC1 HB9 H81 H79 H40 HBB H01 H7B HC0 H7A H80 HBA H41 crc table string 22 HBE H01 H7E HC0 H7F H80 HBF H41 H7D H00 HBD HC1 HBC H81 H7C H40 crc table string 23 HB4 H01 H74 HC0 H75 H80 HB5 H41 H77 H00 HB7 HC1 HB6 H81 H76 H40 crc table string 24 H72 H00 HB2 HC1 HB3 H81 H73 H40 HB1 H01 H71 HC0 H70 H80 HB0 H41 crc table string 25 H50 H00 H90 HC1 H91 H81 H51 H40 H93 H01 H53 HC0 H52 H80 H92 H41 crc table string 26 H96 H01 H56 HC0 H57 H80 H97 H41 H55 H00 H95 HC1 H94 H81 H54 H40 crc table string 27 H9C H01 H5C HC0 H5D H80 H9D H41 H5F H00 H9F HC1 H9E H81 H5E H40 crc table string 28 H5A H00 H9A HC1 H9B H81 H5B H40 H99 H01 H59 HC0 H58 H80 H98 H41 crc table string 29 H88 H01 H48 HC0 H49 H80 H89 H41 H4B H00 H8B HC1 H8A H81 H4A H40 crc table string 30 H4E H00 H8E HC1 H8F H81 H4F H40 H8D H01 H4D HC0 H4C H80 H8C H41 crc table string 31 H44 H00 H84 HC1 H85 H81 H45 H40 H87 H01 H47 HC0 H46 H80 H86 H41 crc table string 32 H82 H01 H42 HC0 H43 H80 H83 H41 H41 H00 H81 HC1 H80 H81 H40 H40 Hi True Index 0 For Line Number 1 To 32 Char In String 1 For Char In String 1 To 80 Step 5 Hex String Mid crc table string Line Number Char In String 4 If Hi True Then Crc Table Index Hi Val Hex String Toggle to low byte Hi False Else Crc Table Index Lo Val Hex String Toggle to high byte Hi True Increment the CRC table index Index Index 1 End If Next Char In String Next Line Number End Sub This function checks the CRC of the byte array held in section 1 32 It impliments a common CRC16 algorithm It compliments the subroutine Set Crc in this module It returns a value of True if the check

    Original URL path: http://www.efg2.com/Lab/Mathematics/StuartRolfe_Crc16.bas (2016-02-14)
    Open archived version from archive



  •