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".

  • begin Rate 0 08 12 PeriodCount 24 pv 808 70 PaymentTime ptStartOfPeriod sumPrincipal 0 0 sumInterest 0 0 sumPayment1 0 0 sumPayment2 0 0 FOR Period 1 TO 24 DO BEGIN Principal PeriodPayment Rate Period PeriodCount pv 0 PaymentTime Interest InterestPayment Rate Period PeriodCount pv 0 PaymentTime Payment1 Principal Interest Payment2 Payment Rate PeriodCount pv 0 PaymentTime sumPrincipal sumPrincipal Principal sumInterest sumInterest Interest sumPayment1 sumPayment1 Payment1 sumPayment2 sumPayment2 Payment2 Memo Lines Add Format 2d 2f 2f 2f 2f Period Principal Interest Payment1 Payment2 END Memo Lines Add Format 2f 2f 2f 2f sumPrincipal sumInterest sumPayment1 sumPayment2 end With the D3 and D5 math units and I assume it s also true with D1 D2 and D4 but I haven t tested that you get the following error Rate 0 08 12 PeriodCount 24 pv 808 70 PaymentTime ptStartOfPeriod NPeriods then ArgError InterestPayment IF PaymentTime ptStartOfPeriod AND Period 1 THEN InterestPayment 0 FIX ELSE BEGIN Crp Compound Rate Period 1 Arn Annuity2 Rate Nperiods PaymentTime Crn InterestPayment FutureValue Crp 1 PresentValue Crn Crp Arn END end function PaymentParts Period NPeriods Integer Rate PresentValue FutureValue Extended PaymentTime TPaymentTime var IntPmt Extended Extended var Crn extended Compound Rate NPeriods Crp extended Compound Rate Period 1 Arn extended Annuity2 begin if Rate 1 0 then ArgError PaymentParts IF PaymentTime ptStartOfPeriod AND Period 1 FIX THEN BEGIN IntPmt 0 PaymentParts Payment Rate NPeriods PresentValue FutureValue PaymentTime END ELSE BEGIN Crp Compound Rate Period 1 Arn Annuity2 Rate NPeriods PaymentTime Crn IntPmt FutureValue Crp 1 PresentValue Crn Crp Arn PaymentParts FutureValue PresentValue Crp Arn END end So with these fixes the result matches Excel FIXED version 1 36 33 0 00 36 33 36 33 2 31 18 5 15 36 33 36 33 3 31 39 4 94 36 33 36 33 4 31 60 4 73 36 33 36 33 5 31 81 4 52 36 33 36 33 6 32 02 4 31 36 33 36 33 7 32 24 4 10 36 33 36 33 8 32 45 3 88 36 33 36 33 9 32 67 3 66 36 33 36 33 10 32 89 3 45 36 33 36 33 11 33 11 3 23 36 33 36 33 12 33 33 3 01 36 33 36 33 13 33 55 2 78 36 33 36 33 14 33 77 2 56 36 33 36 33 15 34 00 2 34 36 33 36 33 16 34 22 2 11 36 33 36 33 17 34 45 1 88 36 33 36 33 18 34 68 1 65 36 33 36 33 19 34 91 1 42 36 33 36 33 20 35 15 1 19 36 33 36 33 21 35 38 0 95 36 33 36 33 22 35 62 0 72 36 33 36 33 23 35 85 0 48 36 33 36 33 24 36 09 0 24 36 33 36 33 808 70 63 29 871 99 871 99 And just to regression test with

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



  • 3 OM Overflow 4 UM Underflow 5 PM Precision PRECISION CONTROL FIELD 8 9 PC Single Precision 24 bit 00B Double Precision 53 bit 10B Extended Precision 64 bit 11B Reserved 01B ROUNDING MODE 10 11 RC Round to nearest even 00B Round down toward infinity 01B Round up toward infinity 10B Round toward zero trunc 11B INFINITY CONTROL 12 X Infinity control Used for compatability with 287 FPU Projective

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


  • control word Anyone have a reference that is easily accessible Isn t that what Delphi declares as Default8087CW 1332 or do you mean the impact of changing these Alan Lloyd alanglloyd aol com Copied from a post in borland public delphi basm by Steve Schafer Fix font recommended F E D C B A 9 8 7 6 5 4 3 2 1 0 invalid operation mask denormalized operand mask

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


  • public delphi winapi I have a Visual C program calling a Delphi 3 0 DLL Everything appears to operate fairly correctly except that I sometimes get an exception throw stating Floating Point Invalid Operation Tracing through from the VC end says that the program is still in the DLL somewhere Tracing through on the Delphi end says that if it is in the DLL it must be in the exit

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


  • would be when the DLL is loaded Unfortunately you cannot do this in Delphi 4 Essentially your only option is to save FPU control word in Extend LoadLibrary the Delphi DLL restore FPU control word in Extend call a procedure in the Delphi DLL that will Set8087CW TheExtendControlWord Once you have done that there is NOTHING else you have to change because Delphi uses the variable Default8087CW which is set

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


  • Lluis Olle wrote 1 Who is changing the 1332 or 1372 as there are some reserved bits in the middle to 1272 Please try searching for Hoffmeister FPU control word in the complete messages archive at http www deja com I recall at least two or three postings to objectpascal that contain a lengthy explanation showing the effect The short answer is any DLL has the potential to do this Just consider this trivial DLL I do not know whether it would compile sorry but you will get the idea behind it library WreakHavoc const BadFpuControlWord 1332 procedure DoWreakHavoc assembler asm fldcw BadFpuControlWord end procedure DllProcedure Reason Integer begin DLL PROCESS ATTACH DoWreakHavoc DLL THREAD ATTACH DoWreakHavoc end begin DllProc DllProcedure DllProcedure DLL PROCESS ATTACH end has to be changed in some initialization code of some unit Yes indeed and most probably it is caused by loading initializing the COM subsystem it seems that sage dll a component of Microsoft Plus can affect the floating point precission of other tasks in the system How can this be possible in a Win32 enviorment where each task is isolate from others Processes and threads are indeed running in separate environments as far

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


  • Collabra Server User X MSMail Priority Normal Newsgroups borland public delphi winapi Here is a little routine that I use for getting last and changing the control word function SetX87CW NewCW Word word returns old and sets new FPU control word asm Part of this copied from D5 System pas FNCLEX Don t raise pending exceptions enabled by the new flags MOV Default8087CW AX Copy new value to location in

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


  • us ascii X Trace 28 Aug 1999 10 25 03 0500 209 150 16 192 Organization PC BIT Software MIME Version 1 0 Reply To jamie cyberzone net Newsgroups alt comp lang borland delphi here is what i have Asm Mov EBX Somevariable FSTCW Word ptr Ebx Store Control word End Set set the FPU Asm Mov EBX Somevariable FLDCW Word ptr EBx Load Control Word End Peter Falk wrote

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