Post Reply 
[VA] SRC#001 - Spiky Integral
07-18-2018, 06:17 AM
Post: #30
RE: [VA] SRC#001 - Spiky Integral
For those who want NDUPN on their 48:

straightforward
Code:
\<< \-> N \<< 0. N START DUP NEXT DROP2 N \>> \>>

without local variables
Code:
\<< 0. OVER START OVER SWAP NEXT ROT ROT DROP2 \>>

fast for large N
Code:
\<<
  \-> n
  \<<
    1 2 n
    FOR i
      DUPN i EVAL DUP
    STEP
    n - 
    IF DUP 0 <
    THEN NEG DUPN 
    ELSE DROPN END
    IFTE
    n
  \>>
\>>

Take your pick ;-)
Cheers, Werner

41CV†,42S,48GX,49G,DM42,DM41X,17BII,15CE,DM15L,12C,16CE
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: [VA] SRC#001 - Spiky Integral - pier4r - 07-11-2018, 11:10 AM
RE: [VA] SRC#001 - Spiky Integral - Pjwum - 07-12-2018, 10:32 AM
RE: [VA] SRC#001 - Spiky Integral - DavidM - 07-15-2018, 07:53 PM
RE: [VA] SRC#001 - Spiky Integral - Werner - 07-18-2018 06:17 AM



User(s) browsing this thread: 1 Guest(s)