Post Reply 
Beta and Airy Functions
06-27-2015, 05:25 PM
Post: #9
RE: Beta and Airy Functions
& here's a sys version for the 49G.

Code:


Ai

::
  CK1&Dispatch
  BINT1
  ::
    DUP
    ID f
    % .355028053888
    %*
    SWAP
    ID g
    % .258819403793
    %*
    %-
  ;
;

Bi

::
  CK1&Dispatch
  BINT1
  ::
    DUP
    ID f
    % .355028053888
    %*
    SWAP
    ID g
    % .258819403793
    %*
    %+
    %3
    %SQRT
    %*
  ;
;

f

::
  %1
  BINT4
  NDUPN
  DROP
  '
  NULLLAM
  BINT5
  NDUPN
  DOBIND
  BINT81
  ONE_DO
  INDEX@
  UNCOERCE
  DUP
  %3
  %*
  2PUTLAM
  1GETLAMSWAP_
  %3
  %*
  %2
  %-
  %*
  1PUTLAM
  4GETLAM
  1GETLAM
  5GETLAM
  2GETLAM
  %^
  %*
  2GETLAM
  %NFACT
  %/
  %+
  DUP4PUTLAM
  3GETLAM
  %=
  ITE
  ExitAtLOOP
  ::
    4GETLAM
    3PUTLAM
  ;
  LOOP
  4GETLAM
  ABND
;

g

::
  DUP
  %0
  DUP
  %1
  '
  NULLLAM
  BINT5
  NDUPN
  DOBIND
  BINT81
  ONE_DO
  INDEX@
  UNCOERCE
  DUP
  %3
  %*
  %1+
  2PUTLAM
  1GETLAMSWAP_
  %3
  %*
  %1-
  %*
  1PUTLAM
  4GETLAM
  1GETLAM
  5GETLAM
  2GETLAM
  %^
  %*
  2GETLAM
  %NFACT
  %/
  %+
  DUP4PUTLAM
  3GETLAM
  %=
  ITE
  ExitAtLOOP
  ::
    4GETLAM
    3PUTLAM
  ;
  LOOP
  4GETLAM
  ABND
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Beta and Airy Functions - douganc - 06-24-2015, 11:20 AM
RE: Beta and Airy Functions - Tim Wessman - 06-24-2015, 02:39 PM
RE: Beta and Airy Functions - Gerald H - 06-24-2015, 03:27 PM
RE: Beta and Airy Functions - DrD - 06-24-2015, 03:33 PM
RE: Beta and Airy Functions - parisse - 06-24-2015, 06:48 PM
RE: Beta and Airy Functions - roadrunner - 06-27-2015, 11:19 AM
RE: Beta and Airy Functions - Gerald H - 06-27-2015, 12:15 PM
RE: Beta and Airy Functions - parisse - 06-27-2015, 12:41 PM
RE: Beta and Airy Functions - roadrunner - 06-28-2015, 12:47 AM
RE: Beta and Airy Functions - Gerald H - 06-27-2015 05:25 PM
RE: Beta and Airy Functions - douganc - 07-20-2015, 08:10 PM
RE: Beta and Airy Functions - roadrunner - 07-20-2015, 08:55 PM



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