sin added tests failing

Author: NicolasMorrel

README.md

@@ -58,8 +58,9 @@ the base, which must have the form B for a real bignum or 0JB for a complex bign
     BA←{BA} div BA      ⍝ ÷ over Bignums
     BA←BA mod BA        ⍝ | over Bignums
     BA←snh BA           ⍝ 5○ over bignums
-    BA←cis BA 		      ⍝ 12○ over bignums
-
+    BA←cis BA 		⍝ 12○ over bignums
+    BA←sin BA		⍝ 1○ over bignums
+    
 ### APL Primitive Operators
 
     BA←BA bf dot bf BA  ⍝ f.g over bignums

a.cd

@@ -79,6 +79,7 @@ exp←{b←⊃bas⍵ ⋄ k←2⍟|b ⋄ s←(⌈/∘⌈k×0,∘,1+pla-ovr)⍵
  (pla ⍵)pla mul⍨⍣s⊢z add mul∘(z∘add)red(⊢div out (1+⍳r)big⍨⊢)di2⍣s⊢n pla⍵}
 snh←pla pla∘(di2 exp sub exp∘sub)≢pla⊢
 cis←{(pla⍵)pla exp r2c⍣(isr⍵)(≢pla 2∘↑⍪0⍪0J1×sg0)⍵}
+sin←{(pla⍵)pla rea⍣(isr⍵)(cry 3∘↑⍪0J¯1×3∘↓)(di2 cis sub cis∘sub)(≢pla⊢)⍵}
 
 cat←⍪⍤¯1
 rav←,⍤¯1

mystika.dws

@@ -0,0 +1,25 @@
+:Namespace sin_tests
+
+⎕IO ⎕ML ⎕WX←0 1 3
+
+X←{⊢#.UT.expect←⍵} ⋄ M←#.mystika
+
+SIN∆01_TEST←{_←X 10 21 0,(20⍴10)⊤0 ⋄ M.sin 10 0 0,(20⍴10)⊤0}
+SIN∆02_TEST←{_←X 10 0 0,(20⍴10)⊤1 ⋄ M.sin 10 19 0,⍎¨'15707963267948966192'}
+SIN∆03_TEST←{_←X 10 0 0,(20⍴10)⊤0 ⋄ M.sin 10 19 0,⍎¨'31415926535897932384'}
+SIN∆04_TEST←{_←X 10 0 1,(20⍴10)⊤¯1 ⋄ M.sin 10 19 0,⍎¨'47123889803846898576'}
+SIN∆05_TEST←{_←X 10 0 0,(20⍴10)⊤0 ⋄ M.sin 10 19 0,⍎¨'62831853071795864769'} 
+SIN∆06_TEST←{_←X 10 19 0,⍎¨'90018436125947441551' ⋄ M.sin 10 4 0,(20⍴10)⊤20214}
+SIN∆07_TEST←{_←X 10 19 1,⍎¨'09981563874052558449' ⋄ M.sin 10 4 1,(20⍴10)⊤¯20214}  
+SIN∆08_TEST←{_←X M.r2c 10 16 0, -1 0J1+.×⍎¨↑'30662171147377330302' '26482645189580402287' ⋄ M.sin 0J10 0 0,(20⍴0J10)⊤4J9}     
+SIN∆09_TEST←{_←X 10⍪0 19 19⍪0 0 1⍪0,⍉⍎¨↑'90018436125947441551' '09981563874052558449'  ⋄ M.sin 10⍪0 4 4⍪0 0 1⍪(20⍴10)⊤0 20214 ¯20214}  
+             
+:EndNamespace
+
+
+
+
+
+
+
+