ans =
column 1 to 13
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.
- column 14 to 24
- 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24.
- column 25 to 35
- 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35.
- column 36 to 46
- 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46.
- column 47 to 57
- 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57.
- column 58 to 68
- 58. 59. 60. 61. 62. 63. 64. 65. 66. 67. 68.
- column 69 to 79
- 69. 70. 71. 72. 73. 74. 75. 76. 77. 78. 79.
- column 80 to 90
- 80. 81. 82. 83. 84. 85. 86. 87. 88. 89. 90.
- column 91 to 101
- 91. 92. 93. 94. 95. 96. 97. 98. 99. 100. 101.
- column 102 to 110
- 102. 103. 104. 105. 106. 107. 108. 109. 110.
- column 111 to 119
- 111. 112. 113. 114. 115. 116. 117. 118. 119.
- column 120 to 128
- 120. 121. 122. 123. 124. 125. 126. 127. 128.
- column 129 to 137
- 129. 130. 131. 132. 133. 134. 135. 136. 137.
- column 138 to 146
- 138. 139. 140. 141. 142. 143. 144. 145. 146.
- column 147 to 155
- 147. 148. 149. 150. 151. 152. 153. 154. 155.
- column 156 to 164
- 156. 157. 158. 159. 160. 161. 162. 163. 164.
- column 165 to 173
- 165. 166. 167. 168. 169. 170. 171. 172. 173.
- column 174 to 182
- 174. 175. 176. 177. 178. 179. 180. 181. 182.
- column 183 to 191
- 183. 184. 185. 186. 187. 188. 189. 190. 191.
- column 192 to 200
- 192. 193. 194. 195. 196. 197. 198. 199. 200.
- column 201 to 209
- 201. 202. 203. 204. 205. 206. 207. 208. 209.
- column 210 to 218
- 210. 211. 212. 213. 214. 215. 216. 217. 218.
- column 219 to 227
- 219. 220. 221. 222. 223. 224. 225. 226. 227.
- column 228 to 236
- 228. 229. 230. 231. 232. 233. 234. 235. 236.
- column 237 to 245
- 237. 238. 239. 240. 241. 242. 243. 244. 245.
+ column 14 to 25
+ 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25.
+ column 26 to 37
+ 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37.
+ column 38 to 49
+ 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49.
+ column 50 to 61
+ 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61.
+ column 62 to 73
+ 62. 63. 64. 65. 66. 67. 68. 69. 70. 71. 72. 73.
+ column 74 to 85
+ 74. 75. 76. 77. 78. 79. 80. 81. 82. 83. 84. 85.
+ column 86 to 97
+ 86. 87. 88. 89. 90. 91. 92. 93. 94. 95. 96. 97.
+ column 98 to 107
+ 98. 99. 100. 101. 102. 103. 104. 105. 106. 107.
+ column 108 to 117
+ 108. 109. 110. 111. 112. 113. 114. 115. 116. 117.
+ column 118 to 127
+ 118. 119. 120. 121. 122. 123. 124. 125. 126. 127.
+ column 128 to 137
+ 128. 129. 130. 131. 132. 133. 134. 135. 136. 137.
+ column 138 to 147
+ 138. 139. 140. 141. 142. 143. 144. 145. 146. 147.
+ column 148 to 157
+ 148. 149. 150. 151. 152. 153. 154. 155. 156. 157.
+ column 158 to 167
+ 158. 159. 160. 161. 162. 163. 164. 165. 166. 167.
+ column 168 to 177
+ 168. 169. 170. 171. 172. 173. 174. 175. 176. 177.
+ column 178 to 187
+ 178. 179. 180. 181. 182. 183. 184. 185. 186. 187.
+ column 188 to 197
+ 188. 189. 190. 191. 192. 193. 194. 195. 196. 197.
+ column 198 to 207
+ 198. 199. 200. 201. 202. 203. 204. 205. 206. 207.
+ column 208 to 217
+ 208. 209. 210. 211. 212. 213. 214. 215. 216. 217.
+ column 218 to 227
+ 218. 219. 220. 221. 222. 223. 224. 225. 226. 227.
+ column 228 to 237
+ 228. 229. 230. 231. 232. 233. 234. 235. 236. 237.
+ column 238 to 245
+ 238. 239. 240. 241. 242. 243. 244. 245.
disp(nearfloat("succ", expm(A)));
column 1 to 6
2.7182818 0. 0. 0. 0. 0.
- 0. 2.7182818 0. 0.0000001 0. -0.0000002
+ 0. 2.7182818 0. 0.0000003 0. -0.0000005
-4.6707743 0. 7.3890561 0. 0. 0.
- 0. -51.879868 0. 54.59815 0. 0.0000002
+ 0. -51.879868 0. 54.59815 0. 0.0000001
986.51887 0. -3964.7586 0. 2980.9581 0.
0. 5923608.3 0. -14809151. 0. 8885544.9
-3.505D+12 0. 2.980D+13 0. -5.258D+13 0.
0. -1.908D+08 0. 8.924D+08 0. -1.243D+09
column 7 to 8
0. 0.
- 0. 8.396D-08
+ 0. 0.0000002
0. 0.
- 0. -7.490D-08
+ 0. -5.691D-08
-0.000061 0.
0. 0.000001
2.629D+13 0.
format(19);
disp(nearfloat("succ", expm(A)));
column 1 to 3
- 2.7182818284590464 0. 0.
- 0. 2.718281801517723 0.
- -4.6707742704716031 0. 7.3890560989306477
- 0. -51.879868171559828 0.
- 986.51887138491577 0. -3964.7586192011622
- 0. 5923608.3361952333 0.
- -3505325614554.6104 0. 29795267732595.211
+ 2.7182818284590451 0. 0.
+ 0. 2.7182817614158679 0.
+ -4.6707742704716022 0. 7.3890560989306477
+ 0. -51.879868177238421 0.
+ 986.51887138491588 0. -3964.7586192011599
+ 0. 5923608.3361952361 0.
+ -3505325614554.6108 0. 29795267732595.207
0. -190824518.11990353 0.
column 4 to 6
0. 0. 0.
- 0.0000001317192459 0. -0.0000001887344807
+ 0.0000003359001993 0. -0.000000488378001
0. 0. 0.
- 54.598149892965438 0. 0.0000001819498482
+ 54.598149920952672 0. 0.0000001416522079
0. 2980.9580906107221 0.
- -14809150.54015775 0. 8885544.9222434219
+ -14809150.540157748 0. 8885544.9222433753
0. -52579884242037.664 0.
892372855.75740469 0. -1243259289.722564
column 7 to 8
0. 0.
- 0. 0.0000000839564363
+ 0. 0.0000002195220225
0. 0.
- 0. -0.0000000748965724
+ 0. -0.0000000569101004
-0.000060966021125 0.
- 0. 0.0000009705089855
+ 0. 0.0000009990276261
26289942123999.797 0.
- 0. 541710954.80334532
+ 0. 541710954.8033452
A = matrix(linspace(-1E10,1E20,64), 8, 8);
disp(A);
column 1 to 3
format(19);
disp(A + %i * B);
column 1
- -10000000000. + 1.000000000000D+20i
- Nan + Infi
+ -10000000000. + 1.000000000000D+20i
+ Nan + Infi
3.174603164921D+18 + 9.682539682508D+19i
4.761904752381D+18 + 9.523809523762D+19i
6.349206339841D+18 + 9.365079365016D+19i
column 3
2.539682538937D+19 + 7.460317460063D+19i
2.698412697683D+19 + 7.301587301317D+19i
- Nan + 7.142857142571D+19i
+ Nan + 7.142857142571D+19i
-3.015873015175D+19 - 6.984126983825D+19i
3.174603173921D+19 + 6.825396825079D+19i
3.333333332667D+19 + 6.666666666333D+19i
3.809523808905D+19 + 6.190476190095D+19i
3.968253967651D+19 + 6.031746031349D+19i
4.126984126397D+19 + 5.873015872603D+19i
- 4.285714285143D+19
+ 4.285714285143D+19 + 0.i
4.444444443889D+19 + 5.555555555111D+19i
4.603174602635D+19 + 5.396825396365D+19i
4.761904761381D+19 + 5.238095237619D+19i
5.238095237619D+19 + 4.761904761381D+19i
5.396825396365D+19 + 4.603174602635D+19i
5.555555555111D+19 + 4.444444443889D+19i
- -4.285714285143D+19i
+ 0. - 4.285714285143D+19i
5.873015872603D+19 + 4.126984126397D+19i
6.031746031349D+19 + 3.968253967651D+19i
6.190476190095D+19 + 3.809523808905D+19i
6.666666666333D+19 + 3.333333332667D+19i
6.825396825079D+19 + 3.174603173921D+19i
6.984126983825D+19 + 3.015873015175D+19i
- i
+ 0. + i
7.301587301317D+19 + 2.698412697683D+19i
7.460317460063D+19 + 2.539682538937D+19i
column 7
8.095238095048D+19 + 1.904761903952D+19i
8.253968253794D+19 + 1.746031745206D+19i
8.412698412540D+19 + 1.587301586460D+19i
- Nan + Nani
+ 8.571428571286D+19 + Nani
8.730158730032D+19 + 1.269841268968D+19i
column 8
8.888888888778D+19 + 1.111111110222D+19i
disp(A + %i * B);
column 1 to 2
-1.000D+10 + 1.000D+20i 1.270D+19 + 8.730D+19i
- Nan + Infi 1.429D+19 + 8.571D+19i
+ Nan + Infi 1.429D+19 + 8.571D+19i
3.175D+18 + 9.683D+19i 1.587D+19 + 8.413D+19i
4.762D+18 + 9.524D+19i 1.746D+19 + 8.254D+19i
6.349D+18 + 9.365D+19i 1.905D+19 + 8.095D+19i
column 3 to 4
2.540D+19 + 7.460D+19i 3.810D+19 + 6.190D+19i
2.698D+19 + 7.302D+19i 3.968D+19 + 6.032D+19i
- Nan + 7.143D+19i 4.127D+19 + 5.873D+19i
- -3.016D+19 - 6.984D+19i 4.286D+19
+ Nan + 7.143D+19i 4.127D+19 + 5.873D+19i
+ -3.016D+19 - 6.984D+19i 4.286D+19 + 0.i
3.175D+19 + 6.825D+19i 4.444D+19 + 5.556D+19i
3.333D+19 + 6.667D+19i 4.603D+19 + 5.397D+19i
3.492D+19 + 6.508D+19i 4.762D+19 + 5.238D+19i
5.238D+19 + 4.762D+19i 6.508D+19 + 3.492D+19i
5.397D+19 + 4.603D+19i 6.667D+19 + 3.333D+19i
5.556D+19 + 4.444D+19i 6.825D+19 + 3.175D+19i
- -4.286D+19i 6.984D+19 + 3.016D+19i
- 5.873D+19 + 4.127D+19i i
+ 0. - 4.286D+19i 6.984D+19 + 3.016D+19i
+ 5.873D+19 + 4.127D+19i 0. + i
6.032D+19 + 3.968D+19i 7.302D+19 + 2.698D+19i
6.190D+19 + 3.810D+19i 7.460D+19 + 2.540D+19i
column 7 to 8
8.095D+19 + 1.905D+19i 9.365D+19 + 6.349D+18i
8.254D+19 + 1.746D+19i 9.524D+19 + 4.762D+18i
8.413D+19 + 1.587D+19i 9.683D+19 + 3.175D+18i
- Nan + Nani 9.841D+19 + 1.587D+18i
+ 8.571D+19 + Nani 9.841D+19 + 1.587D+18i
8.730D+19 + 1.270D+19i 1.000D+20 - 1.000D+10i
format("e");
disp(A + %i * B);
column 1 to 2
-1.000D+10 + 1.000D+20i 1.270D+19 + 8.730D+19i
- Nan + Infi 1.429D+19 + 8.571D+19i
+ Nan + Infi 1.429D+19 + 8.571D+19i
3.175D+18 + 9.683D+19i 1.587D+19 + 8.413D+19i
4.762D+18 + 9.524D+19i 1.746D+19 + 8.254D+19i
6.349D+18 + 9.365D+19i 1.905D+19 + 8.095D+19i
column 3 to 4
2.540D+19 + 7.460D+19i 3.810D+19 + 6.190D+19i
2.698D+19 + 7.302D+19i 3.968D+19 + 6.032D+19i
- Nan + 7.143D+19i 4.127D+19 + 5.873D+19i
- -3.016D+19 - 6.984D+19i 4.286D+19
+ Nan + 7.143D+19i 4.127D+19 + 5.873D+19i
+ -3.016D+19 - 6.984D+19i 4.286D+19 + 0.000D+00i
3.175D+19 + 6.825D+19i 4.444D+19 + 5.556D+19i
3.333D+19 + 6.667D+19i 4.603D+19 + 5.397D+19i
3.492D+19 + 6.508D+19i 4.762D+19 + 5.238D+19i
5.238D+19 + 4.762D+19i 6.508D+19 + 3.492D+19i
5.397D+19 + 4.603D+19i 6.667D+19 + 3.333D+19i
5.556D+19 + 4.444D+19i 6.825D+19 + 3.175D+19i
- -4.286D+19i 6.984D+19 + 3.016D+19i
- 5.873D+19 + 4.127D+19i 1.000D+00i
+ 0.000D+00 - 4.286D+19i 6.984D+19 + 3.016D+19i
+ 5.873D+19 + 4.127D+19i 0.000D+00 + 1.000D+00i
6.032D+19 + 3.968D+19i 7.302D+19 + 2.698D+19i
6.190D+19 + 3.810D+19i 7.460D+19 + 2.540D+19i
column 7 to 8
8.095D+19 + 1.905D+19i 9.365D+19 + 6.349D+18i
8.254D+19 + 1.746D+19i 9.524D+19 + 4.762D+18i
8.413D+19 + 1.587D+19i 9.683D+19 + 3.175D+18i
- Nan + Nani 9.841D+19 + 1.587D+18i
+ 8.571D+19 + Nani 9.841D+19 + 1.587D+18i
8.730D+19 + 1.270D+19i 1.000D+20 - 1.000D+10i
0. + 0.i 1. + i -0.8390715 - 0.5440211i -0.1455 + 0.9893582i
- column 1 to 3
- 0. + 0.i 0.7539023 + 0.6569866i Nan + 0.i
- column 4
- 0.843854 - 0.5365729i
+ 0. + 0.i 0.7539023 + 0.6569866i Nan + 0.i 0.843854 - 0.5365729i
column 1 to 3
0. + 0.i 0.1367372 + 0.9906074i -0.7596879 + 0.6502878i
column 4
Inf + 0.i
- 0. + 0.i
- 0. + 0.i
- 0. + 0.i
- 0. + 0.i
+ 0. + 0.i
+ 0. + 0.i
+ 0. + 0.i
+ 0. + 0.i
- -0.4161468 + 0.9092974i
- 1. + i
- 0.7539023 + 0.6569866i
- 0.1367372 + 0.9906074i
+ -0.4161468 + 0.9092974i
+ 1. + i
+ 0.7539023 + 0.6569866i
+ 0.1367372 + 0.9906074i
- -0.9899925 + 0.14112i
- -0.8390715 - 0.5440211i
- Nan + 0.i
- -0.7596879 + 0.6502878i
+ -0.9899925 + 0.14112i
+ -0.8390715 - 0.5440211i
+ Nan + 0.i
+ -0.7596879 + 0.6502878i
- 0.9074468 + 0.420167i
- -0.1455 + 0.9893582i
- 0.843854 - 0.5365729i
- Inf + 0.i
+ 0.9074468 + 0.420167i
+ -0.1455 + 0.9893582i
+ 0.843854 - 0.5365729i
+ Inf + 0.i
0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
0. + 0.i 0. + 0.i 0. + 0.i Nan + 0.i
ans =
- -0.5493061 + 0.i
- -0.804719 + 0.i
- -Inf - 0.7853982i
- -0.5493061 - 1.5707963i
- 0. - 1.5707963i
- 0.5493061 - 1.5707963i
- Inf + Nani
- 0.804719 + 3.1415927i
- 0.5493061 + 3.1415927i
+ -0.5493061 + 0.i
+ -0.804719 + 0.i
+ -Inf - 1.5707963i
+ -0.5493061 - 1.5707963i
+ 0. - 1.5707963i
+ 0.5493061 - 1.5707963i
+ Inf + Nani
+ 0.804719 + 3.1415927i
+ 0.5493061 + 3.1415927i
column 1 to 2
0.000D+00 + 0.000D+00i -4.161D-01 + 9.093D-01i
0.000D+00 + 0.000D+00i 1.000D+00 + 1.000D+00i
column 3 to 4
-7.597D-01 + 6.503D-01i Inf + 0.000D+00i
- 0.000D+00 + 0.000D+00i
- 0.000D+00 + 0.000D+00i
- 0.000D+00 + 0.000D+00i
- 0.000D+00 + 0.000D+00i
+ 0.000D+00 + 0.000D+00i
+ 0.000D+00 + 0.000D+00i
+ 0.000D+00 + 0.000D+00i
+ 0.000D+00 + 0.000D+00i
- -4.161D-01 + 9.093D-01i
- 1.000D+00 + 1.000D+00i
- 7.539D-01 + 6.570D-01i
- 1.367D-01 + 9.906D-01i
+ -4.161D-01 + 9.093D-01i
+ 1.000D+00 + 1.000D+00i
+ 7.539D-01 + 6.570D-01i
+ 1.367D-01 + 9.906D-01i
- -9.900D-01 + 1.411D-01i
- -8.391D-01 - 5.440D-01i
- Nan + 0.000D+00i
- -7.597D-01 + 6.503D-01i
+ -9.900D-01 + 1.411D-01i
+ -8.391D-01 - 5.440D-01i
+ Nan + 0.000D+00i
+ -7.597D-01 + 6.503D-01i
- 9.074D-01 + 4.202D-01i
- -1.455D-01 + 9.894D-01i
- 8.439D-01 - 5.366D-01i
- Inf + 0.000D+00i
+ 9.074D-01 + 4.202D-01i
+ -1.455D-01 + 9.894D-01i
+ 8.439D-01 - 5.366D-01i
+ Inf + 0.000D+00i
column 1 to 2
0.000D+00 + 0.000D+00i 0.000D+00 + 0.000D+00i
0.000D+00 + 0.000D+00i Nan + 0.000D+00i
ans =
- -5.493D-01 + 0.000D+00i
- -8.047D-01 + 0.000D+00i
- -Inf - 7.854D-01i
- -5.493D-01 - 1.571D+00i
- 0.000D+00 - 1.571D+00i
- 5.493D-01 - 1.571D+00i
- Inf + Nani
- 8.047D-01 + 3.142D+00i
- 5.493D-01 + 3.142D+00i
+ -5.493D-01 + 0.000D+00i
+ -8.047D-01 + 0.000D+00i
+ -Inf - 1.571D+00i
+ -5.493D-01 - 1.571D+00i
+ 0.000D+00 - 1.571D+00i
+ 5.493D-01 - 1.571D+00i
+ Inf + Nani
+ 8.047D-01 + 3.142D+00i
+ 5.493D-01 + 3.142D+00i
1. + 2.i 1. + 2.i 1. + 2.i 1. + 2.i 1. + 2.i
complex(ones(1,5), zeros(1,5))
ans =
- 1. 1. 1. 1. 1.
+ 1. + 0.i 1. + 0.i 1. + 0.i 1. + 0.i 1. + 0.i
[1 + %i, 1 + 2*%i, 1 + 3*%i]
ans =
1. + i 1. + 2.i 1. + 3.i
1. + 3.i 1. + i 1. + 3.i
[1, 1+%i, 1 + 3*%i ; 1 + 3*%i, 1 + 3*%i, 1 + 3*%i]
ans =
- 1. 1. + i 1. + 3.i
+ 1. + 0.i 1. + i 1. + 3.i
1. + 3.i 1. + 3.i 1. + 3.i
[1, 1+%i, 1 + 3*%i ; 1 + 3*%i, 1 + %i, 1 + 3*%i]
ans =
- 1. 1. + i 1. + 3.i
+ 1. + 0.i 1. + i 1. + 3.i
1. + 3.i 1. + i 1. + 3.i
[rand() + rand()*%i, rand()+rand()*%i;
1+%i, 1+%i;
-2, -2 - 2*%i]
ans =
0.2113249 + 0.7560439i 0.0002211 + 0.3303271i
- 1. + i 1. + i
- 1. 1. + i
- i 2. + 2.i
- -2. -2. - 2.i
+ 1. + i 1. + i
+ 1. + 0.i 1. + i
+ 0. + i 2. + 2.i
+ -2. + 0.i -2. - 2.i
[ 1+%i, 1+%i;
1, 1+%i;
%i, 2 + 2*%i;
-2, -2 - 2*%i]
ans =
1. + i 1. + i
- 1. 1. + i
- i 2. + 2.i
- -2. -2. - 2.i
+ 1. + 0.i 1. + i
+ 0. + i 2. + 2.i
+ -2. + 0.i -2. - 2.i
[2+2*%i, 2+2*%i;]
ans =
2. + 2.i 2. + 2.i
1. + i 1. + i
[%i, 1+%i]
ans =
- i 1. + i
+ 0. + i 1. + i
[%i, 1+%i;
%i, 1+%i]
ans =
- i 1. + i
- i 1. + i
+ 0. + i 1. + i
+ 0. + i 1. + i
assert_checkequal(string(atomsSetConfig("proxyPassword","scilab")),"1");
assert_checkequal(string(atomsSetConfig("downloadTool",config_downloadTool)),"0");
assert_checkequal(string(atomsSetConfig("offline","False")),"1");
-Scanning repository http://atoms.scilab.org/6.0 ... Done
assert_checkequal(string(atomsSetConfig("autoload","True")),"1");
assert_checkequal(atomsGetConfig(),ref);
// Restore original values
S=ssrand(1,1,0);
t=0:5;
y=csim("step",t,S);
-operation +: Warning adding a matrix with the empty matrix will give an empty matrix result.
S2=tf2ss(H);
assert_checkequal(execstr("repfreq(S2,f)","errcatch"),0);
Warning :
-matrix is close to singular or badly scaled. rcond = 2.54341e-17
+matrix is close to singular or badly scaled. rcond = 2.12006e-17
x(5) = 1;
b = [ 0 1 0 ]
b =
- 0. 1. 0.
+ 0. 1. 0.
y = mtlb_filter(b,1,x);
if y<>[0,0,0,0,0,1,0,0,0,0] then bugmes();quit;end
// <-- Short Description -->
// <= and >= operators comparing 2 hypermatrices of decimal numbers or encoded
// integers were inverted
-
a = ones(2,2,2);
r = ones(2,2,2)>0;
assert_checkequal(a<=2*a, r);
1. -97.653 0.77379 1364.85 60.4167 -7.62437 1319.19
column 8 to 14
-106.531 298.002 113.749 -59.73 71.3467 1590.85 -94.3265
- column 15 to 20
- 83.8749 966.287 -50.6249 354.009 1175.86 49.9465
- column 21 to 27
- 67.9678 1589.85 0.70186 101.506 941.23 75.8925 107.056
- column 28 to 34
- 918.362 -143.865 219.11 23.8894 -60.5478 242.837 458.224
- column 35 to 40
- -50.1608 355.739 30.9651 -34.6623 124.572 1330.14
- column 41 to 47
- 62.1976 359.302 17.8162 -18.2352 136.112 1029.3 -20.3797
- column 48 to 53
- 189.211 971.398 -102.847 -279.752 110.603 -65.2832
- column 54 to 59
- -83.2655 1589.44 -90.6861 -90.8717 966.307 -72.7284
- column 60 to 66
- -362.391 1180.1 44.1326 -88.0078 1588.44 24.0691 -105.18
- column 67 to 73
- 966.212 81.1965 -102.425 919.556 -130.435 -207.833 13.458
- column 74 to 79
- -75.3469 -226.814 456.206 -38.7496 -341.018 35.2857
- column 80 to 85
- -54.6712 -131.958 1336.98 71.1977 -354.482 35.2572
- column 86 to 92
- 2.80353 -143.47 1050.4 -1.46634 -192.402 989.221 -93.7311
- column 93 to 99
- 1.74179 1041.43 97.694 -6.5736 1230.67 -121.324 2.42329
- column 100
- 1240.01
+ column 15 to 21
+ 83.8749 966.287 -50.6249 354.009 1175.86 49.9465 67.9678
+ column 22 to 28
+ 1589.85 0.70186 101.506 941.23 75.8925 107.056 918.362
+ column 29 to 35
+ -143.865 219.11 23.8894 -60.5478 242.837 458.224 -50.1608
+ column 36 to 42
+ 355.739 30.9651 -34.6623 124.572 1330.14 62.1976 359.302
+ column 43 to 49
+ 17.8162 -18.2352 136.112 1029.3 -20.3797 189.211 971.398
+ column 50 to 56
+ -102.847 -279.752 110.603 -65.2832 -83.2655 1589.44 -90.6861
+ column 57 to 63
+ -90.8717 966.307 -72.7284 -362.391 1180.1 44.1326 -88.0078
+ column 64 to 70
+ 1588.44 24.0691 -105.18 966.212 81.1965 -102.425 919.556
+ column 71 to 77
+ -130.435 -207.833 13.458 -75.3469 -226.814 456.206 -38.7496
+ column 78 to 84
+ -341.018 35.2857 -54.6712 -131.958 1336.98 71.1977 -354.482
+ column 85 to 91
+ 35.2572 2.80353 -143.47 1050.4 -1.46634 -192.402 989.221
+ column 92 to 98
+ -93.7311 1.74179 1041.43 97.694 -6.5736 1230.67 -121.324
+ column 99 to 100
+ 2.42329 1240.01
if size(points) <> [ 1 , 100] then bugmes();quit;end
t=(1:13);
for ll=69:6:90,lines(0,ll),t,end
t =
- column 1 to 12
- 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12.
- column 13
- 13.
+ 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.
t =
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.
t =
column 17 to 23
17 18 19 20 21 22 23
t =
+ column 1 to 16
+ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
+ column 17 to 23
+ 17 18 19 20 21 22 23
+ t =
column 1 to 17
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
column 18 to 23
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
column 19 to 23
19 20 21 22 23
- t =
- column 1 to 19
- 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
- column 20 to 23
- 20 21 22 23
//
// <-- Short Description -->
// overloading did not support type names longer than 8 characters
-
t = tlist(['myLongTypename','x','y'],2.0,3.0);
deff("r = %myLongTypename_sin(t)","r = sin(t.x * t.y)");
deff("r = %myLongTypename_o_myLongTypename(t1,t2)","r = (t1.x == t2.y)");
assert_checktrue(execstr("sin(t)", "errcatch")==0);
assert_checktrue(execstr("t<>t", "errcatch")==0);
-
t = mlist(['myLongTypename','x','y'],2.0,3.0);
assert_checktrue(execstr("sin(t)", "errcatch")==0);
assert_checktrue(execstr("t==t", "errcatch")==0);
whos -name %modalWarning
Name Type Size Bytes
-%modalWarning boolean* 1x1 0
+%modalWarning boolean* 1x1 212
whos -name corel
Name Type Size Bytes
-corelib library 0
+corelib library 1540
whos -type polynomial
Name Type Size Bytes
-%s polynomial 1x1 0
-%z polynomial 1x1 0
+%s polynomial 1x1 264
+%z polynomial 1x1 264
//
// <-- Short Description -->
// From S=[], S($+1,:) = some_row inserted it in row#2 after a parasitic row#1
-
S = [];
S($+1,:) = [ 1 2 ];
assert_checkequal(size(S),[1 2]);
assert_checkequal(S(1,:),[1 2]);
-
S = [];
S($+1,:) = [ "a" "b" ];
assert_checkequal(size(S),[1 2]);
assert_checkequal(S(1,:),["a" "b"]);
-
S = [];
S($+1,:) = [ %t %f ];
assert_checkequal(size(S),[1 2]);
assert_checkequal(S(1,:),[%t %f]);
-
S = [];
S($+1,:) = [ %z %z];
assert_checkequal(size(S),[1 2]);
// <-- Non-regression test for bug 9571 -->
//
// <-- CLI SHELL MODE -->
-//
+//
// <-- Bugzilla URL -->
// http://bugzilla.scilab.org/show_bug.cgi?id=9571
//
msgerror = msprintf(gettext("Undefined variable: %s\n"), "%p");
assert_checkerror ( "%p" , msgerror );
if with_module("umfpack") then
- // assert_checkerror does not manage multiline error, see bug 9572
-
- msgerror = gettext("Undefined operation for the given operands.\n");
- msgerror = strsubst(msgerror, "\n", "");
- msgerror = [msgerror; msprintf(gettext("check or define function %s for overloading.\n"), "%ptr_f_ptr")];
- A = sparse( [ 2 3 0 0 0]);
- Lup = umf_lufact(A);
- if execstr("B = [Lup; Lup];", "errcatch") <> 999 then bugmes();quit;end
- msg = lasterror();
-
- if ~and(msg == msgerror) then bugmes();quit;end
+ // assert_checkerror does not manage multiline error, see bug 9572
+ msgerror = gettext("Undefined operation for the given operands.\n");
+ msgerror = strsubst(msgerror, "\n", "");
+ msgerror = [msgerror; msprintf(gettext("check or define function %s for overloading.\n"), "%ptr_f_ptr")];
+ A = sparse( [ 2 3 0 0 0]);
+ Lup = umf_lufact(A);
+ if execstr("B = [Lup; Lup];", "errcatch") <> 999 then bugmes();quit;end
+ msg = lasterror();
+ if ~and(msg == msgerror) then bugmes();quit;end
end
ierr = execstr("error(""%p"")", "errcatch");
assert_checkequal(lasterror(), "%p");
0. 0. 0.
-7. -8. -9.
g =
- i 2. 3.
- 1. i 3.
- 1. 2. i
+ 0. + i 2. + 0.i 3. + 0.i
+ 1. + 0.i 0. + i 3. + 0.i
+ 1. + 0.i 2. + 0.i 0. + i
h =
- i 1. 2. i 3.
+ 0. + i 1. + 0.i 2. + 0.i 0. + i 3. + 0.i
o =
- 1.
- -i
- -i
- 2.
- 3.
+ 1. + 0.i
+ 0. - i
+ 0. - i
+ 2. + 0.i
+ 3. + 0.i
p =
apcdefghijklmnopqrstuvwxyz0123456789
assert_checkequal(b(2),3);
rand(c)
ans =
column 1 to 2
- 0.8782165 +0.2312237i 0.5608486 +0.8833888i
- 0.068374 +0.2164633i 0.6623569 +0.6525135i
+ 0.8782165 + 0.2312237i 0.5608486 + 0.8833888i
+ 0.068374 + 0.2164633i 0.6623569 + 0.6525135i
column 3 to 4
- 0.7263507 +0.3076091i 0.5442573 +0.2146008i
- 0.1985144 +0.9329616i 0.2320748 +0.312642i
+ 0.7263507 + 0.3076091i 0.5442573 + 0.2146008i
+ 0.1985144 + 0.9329616i 0.2320748 + 0.312642i
rand(3,3)
ans =
0.3616361 0.4826472 0.5015342
5. 6. 7. 8.
conj(c)
ans =
- -i 2. 3. 4.
- 5. 6. 7. 8.
+ 0. - i 2. + 0.i 3. + 0.i 4. + 0.i
+ 5. + 0.i 6. + 0.i 7. + 0.i 8. + 0.i
//
size(a)
ans =
5. 0. 0. 0.
triu(c)
ans =
- i 2. 3. 4.
- 0. 6. 7. 8.
+ 0. + i 2. + 0.i 3. + 0.i 4. + 0.i
+ 0. + 0.i 6. + 0.i 7. + 0.i 8. + 0.i
tril(c)
ans =
- i 0. 0. 0.
- 5. 6. 0. 0.
+ 0. + i 0. + 0.i 0. + 0.i 0. + 0.i
+ 5. + 0.i 6. + 0.i 0. + 0.i 0. + 0.i
triu(c,1)
ans =
- 0. 2. 3. 4.
- 0. 0. 7. 8.
+ 0. + 0.i 2. + 0.i 3. + 0.i 4. + 0.i
+ 0. + 0.i 0. + 0.i 7. + 0.i 8. + 0.i
triu(c,10)
ans =
- 0. 0. 0. 0.
- 0. 0. 0. 0.
+ 0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
+ 0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
triu(c,-1)
ans =
- i 2. 3. 4.
- 5. 6. 7. 8.
+ 0. + i 2. + 0.i 3. + 0.i 4. + 0.i
+ 5. + 0.i 6. + 0.i 7. + 0.i 8. + 0.i
triu(c,-10)
ans =
- i 2. 3. 4.
- 5. 6. 7. 8.
+ 0. + i 2. + 0.i 3. + 0.i 4. + 0.i
+ 5. + 0.i 6. + 0.i 7. + 0.i 8. + 0.i
tril(c,1)
ans =
- i 2. 0. 0.
- 5. 6. 7. 0.
+ 0. + i 2. + 0.i 0. + 0.i 0. + 0.i
+ 5. + 0.i 6. + 0.i 7. + 0.i 0. + 0.i
tril(c,10)
ans =
- i 2. 3. 4.
- 5. 6. 7. 8.
+ 0. + i 2. + 0.i 3. + 0.i 4. + 0.i
+ 5. + 0.i 6. + 0.i 7. + 0.i 8. + 0.i
tril(c,-1)
ans =
- 0. 0. 0. 0.
- 5. 0. 0. 0.
+ 0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
+ 5. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
tril(c,-10)
ans =
- 0. 0. 0. 0.
- 0. 0. 0. 0.
+ 0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
+ 0. + 0.i 0. + 0.i 0. + 0.i 0. + 0.i
x'
ans =
2.6533333
- -0.0002
+ -0.0002
x=[]
x =
[]
//display of polynomials
z=poly(0,"z")
z =
-
- z
+ z
num=[ (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
z-0.0243497
(((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
(((1)*z )*z )*z+1
0]
num =
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
- 3
- 1 +z
-
- 0
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+ 1 +z³
+ 0
den = [ ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
((1)*z )*z
1]
den =
- 2 3 4
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z
- 2 3 4
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z
- 2
- z
-
- 1
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+ z²
+ 1
num',den'
ans =
column 1
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
column 2
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
column 3 to 4
- 3
- 1 +z 0
+ 1 +z³ 0
ans =
column 1
- 2 3 4
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
column 2 to 4
- 2 3 4 2
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z z 1
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴ z² 1
[num;den]
ans =
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
- 3
- 1 +z
-
- 0
- 2 3 4
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z
- 2 3 4
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z
- 2
- z
-
- 1
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+ 1 +z³
+ 0
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+ z²
+ 1
[num den]
ans =
column 1
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
- 2 3 4 5
- -0.0243497 +0.2911572z -1.2916784z +2.6887936z -2.6533333z +z
- 3
- 1 +z
-
- 0
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+ -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+ 1 +z³
+ 0
column 2
- 2 3 4
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z
- 2 3 4
- 0.0113508 -0.168281z +0.8067352z -1.536926z +z
- 2
- z
-
- 1
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+ 0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+ z²
+ 1
//display of polynomials
z=poly(0,"z")
z =
-
- z
+ z
n=1+z;d=n*n;n1=[n d];d1=[d d*d];n1=[n1 n1];d1=[d1 d1];
n2=[n n*n;n*n n**4];d2=[n*n n**4;n n*n];den=d2(1,:);num=n2(2,:);
p=poly(rand(5,1),"z");q=poly(rand(6,1),"z");
//display of rationals
r=num./den
r =
-
- 1 1
- -- --
-
- 1 1
+
+ 1 1
+ - -
+ 1 1
r'
ans =
-
- 1
- --
-
- 1
-
- 1
- --
-
- 1
+
+ 1
+ -
+ 1
+
+ 1
+ -
+ 1
rlist(d,n)
ans =
- 2
- 1 + 2z + z
- -----------
-
- 1 + z
+
+ 1 +2z +z²
+ ---------
+ 1 +z
rlist(n,d)
ans =
-
- 1 + z
- -----------
- 2
- 1 + 2z + z
+
+ 1 +z
+ ---------
+ 1 +2z +z²
rlist(d2,n2)
ans =
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
- ----------- ---------------------
- 2
- 1 + z 1 + 2z + z
- 2
- 1 + z 1 + 2z + z
- ----------- ---------------------
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
+
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
+ --------- -------------------
+ 1 +z 1 +2z +z²
+
+ 1 +z 1 +2z +z²
+ --------- -------------------
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
rlist(n2,d2)
ans =
- 2
- 1 + z 1 + 2z + z
- ----------- ---------------------
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
- ----------- ---------------------
- 2
- 1 + z 1 + 2z + z
+
+ 1 +z 1 +2z +z²
+ --------- -------------------
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
+
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
+ --------- -------------------
+ 1 +z 1 +2z +z²
rlist(den,num)
ans =
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
- ----------- ---------------------
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
+
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
+ --------- -------------------
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
rlist(num,den)
ans =
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
- ----------- ---------------------
- 2 2 3 4
- 1 + 2z + z 1 + 4z + 6z + 4z + z
+
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
+ --------- -------------------
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
rlist(p1,q1)
ans =
-column 1
+ column 1
- 2 3 4 5
- -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z
- -------------------------------------------------------------------
- 2 3 4
- 0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z
- 5 6
- - 3.6713072z + z
+
+ -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵
+ -----------------------------------------------------------------
+ 0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴
+ -3.6713072z⁵ +z⁶
-column 2
+ column 2
- 3
- 0.1 + 2.35z - 5.05z
- --------------------------
- 2 5
- 2.56 + 0.03z - 10.01z + z
-
-
+
+ 0.1 +2.35z -5.05z³
+ ------------------------
+ 2.56 +0.03z -10.01z² +z⁵
+
rlist(q1,p1)
ans =
-column 1
+ column 1
- 2 3 4
- 0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z
- 5 6
- - 3.6713072z + z
- -------------------------------------------------------------------
- 2 3 4 5
- -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z
+
+ 0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴
+ -3.6713072z⁵ +z⁶
+ -----------------------------------------------------------------
+ -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵
-column 2
+ column 2
- 2 5
- 2.56 + 0.03z - 10.01z + z
- --------------------------
- 3
- 0.1 + 2.35z - 5.05z
-
-
+
+ 2.56 +0.03z -10.01z² +z⁵
+ ------------------------
+ 0.1 +2.35z -5.05z³
+
rlist(p,q)
ans =
- 2 3 4 5
- -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z
- -------------------------------------------------------------------
- 2 3 4
- 0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z
- 5 6
- - 3.6713072z + z
+
+ -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵
+ -----------------------------------------------------------------
+ 0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴
+ -3.6713072z⁵ +z⁶
rlist(q,p)
ans =
- 2 3 4
- 0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z
- 5 6
- - 3.6713072z + z
- -------------------------------------------------------------------
- 2 3 4 5
- -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z
+
+ 0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴
+ -3.6713072z⁵ +z⁶
+ -----------------------------------------------------------------
+ -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵
rlist(p,z)
ans =
- 2 3 4 5
- -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z
- -------------------------------------------------------------------
-
- z
+
+ -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵
+ -----------------------------------------------------------------
+ z
rlist(z,p)
ans =
-
- z
- -------------------------------------------------------------------
- 2 3 4 5
- -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z
+
+ z
+ -----------------------------------------------------------------
+ -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵
rlist(d1,n1)
ans =
-
-column 1 to 3
-
- 2 2 3 4 2
- 1 + 2z + z 1 + 4z + 6z + 4z + z 1 + 2z + z
- ----------- --------------------- -----------
- 2
- 1 + z 1 + 2z + z 1 + z
-
-column 4
-
- 2 3 4
- 1 + 4z + 6z + 4z + z
- ---------------------
- 2
- 1 + 2z + z
+
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
+ --------- ------------------- --------- -------------------
+ 1 +z 1 +2z +z² 1 +z 1 +2z +z²
rlist(n1,d1)
ans =
-
-column 1 to 3
-
- 2
- 1 + z 1 + 2z + z 1 + z
- ----------- --------------------- -----------
- 2 2 3 4 2
- 1 + 2z + z 1 + 4z + 6z + 4z + z 1 + 2z + z
-
-column 4
-
- 2
- 1 + 2z + z
- ---------------------
- 2 3 4
- 1 + 4z + 6z + 4z + z
+
+ 1 +z 1 +2z +z² 1 +z 1 +2z +z²
+ --------- ------------------- --------- -------------------
+ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴ 1 +2z +z² 1 +4z +6z² +4z³ +z⁴
//display of strings
digits="abcdefghijklmnopqrstuvwxyz"
digits =
list(rlist(q,p),1.23)
ans =
ans(1)
- 2 3 4
- 0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z
- 5 6
- - 3.6713072z + z
- -------------------------------------------------------------------
- 2 3 4 5
- -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z
+
+ 0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴
+ -3.6713072z⁵ +z⁶
+ -----------------------------------------------------------------
+ -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵
ans(2)
1.23
// overloading of display
ans(1)(1)
1.
ans(1)(2)
-
- $
+ $
ans(2)
()
// Tlist overloaded display
1.
TL(3)
2.
-deff("%x_p(x)","disp(x(3),x(2),''Mydisplay'')")
+deff("%x_p(x)","disp(''Mydisplay'',x(2),x(3))")
TL
TL =
Mydisplay
-1.
b=1+%i
b =
- 1. +i
+ 1. + i
c=[]
c =
[]
-1.
conj(b)
ans =
- 1. -i
+ 1. - i
conj(c)
ans =
[]
-1.
int(b)
ans =
- 1. +i
+ 1. + i
int(c)
ans =
[]
// test des insertions dans les listes
a=1,b=3;c=2;d=[1 2 3];e=[3 4 5];f=[10;20];g=[44 55];
a =
- 1.
+ 1.
h=5;i=4;a0=10;c0=20;b0=30;g0=[44 55 66; 10 20 30];
l=list(a);if l(1)<>a then bugmes();quit;end
l=list(a);if l(1)(1)<>a(1) then bugmes();quit;end
l=list(a,1/%s,g);if l(2)('den')(1,1)<>%s then bugmes();quit;end
a=1:10,b=3:2:33;c=(-10:0)';d=[1 2+%s 3];e=['1';'2';'3';'4'];
a =
- 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
+ 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
f=[%t %t %f];g=['12345','abcdefghijk'];
h=rand(3,3);i=eye(10,10);a0=10+%s;c0=20;b0=sparse(eye(30,30));
l=list(a);if l(1)<>a then bugmes();quit;end
endfunction
fcninput(plip,1:10)
ans =
- - 2. - 4. - 4. - 2. 2. 8. 16. 26. 38. 52.
+ -2. -4. -4. -2. 2. 8. 16. 26. 38. 52.
fcninput(plop,1:10)
ans =
- 1. 3. 5. 7. 9. 11. 13. 15. 17. 19.
+ 1. 3. 5. 7. 9. 11. 13. 15. 17. 19.
X=[ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
-1,-1, -1,-1, 1, 1, -1,-1, -1,-1, -1,-1;
1,-1, 1,-1, 1, 1, -1,-1, 1,-1, 1,-1;
- 1, 1, 1, 1, 1, 1, -1,-1, 1, 1, 1, 1];
+ 1, 1, 1, 1, 1, 1, -1,-1, 1, 1, 1, 1];
Y=[ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
-1,-1, -1,-1, -1, 1, -1, 1, -1,-1, 1, 1;
-1, 1, -1, 1, 1, 1, 1, 1, -1,-1, 1, 1;
- 1, 1, 1, 1, -1,-1, -1,-1, -1,-1, 1, 1];
+ 1, 1, 1, 1, -1,-1, -1,-1, -1,-1, 1, 1];
Z=[ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
-1,-1, 1, 1, -1, 1, -1, 1, -1,-1, -1,-1;
-1,-1, 1, 1, -1,-1, -1,-1, -1, 1, -1, 1;
- -1,-1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1];
+ -1,-1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1];
function v=f1(xyz,numfun),v=exp(xyz'*xyz),endfunction
[result,err]=int3d(X,Y,Z,f1,1,[0,100000,1.d-5,1.d-7]);
if result > 26 then bugmes();quit;end
Link done.
chdir(curdir),
ans =
-
- T
+ T
n=44;
A=eye(n,n);B=(1:n)';
-[X, LU, IPIV, INFO] = msolve(A,B);
+[X, LU, IPIV, INFO] = msolve(A,B);
if norm(A*X-B)>1d-15 then bugmes();quit;end
ilib_for_link('ext1c','fun1.c',[],"c");
exec('loader.sce');
a=[1,2,3];b=[4,5,6];n=3;
-c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
+c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
if or(c <> [5 7 9]) <> %f then bugmes();quit;end
f2 = ['#include <math.h>',
'#include <stdlib.h>';
' return(0);}'];
ilib_for_link('ext1c','fun1.c',[],"c");
exec loader.sce;
-c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
+c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
if or(c <> [5 7 9]) <> %f then bugmes();quit;end
// =============================================================================
chdir(TMP_DIR);
//creating the shared library: a Makefile and a loader are
//generated, the code is compiled and a shared library built.
-ilib_for_link('fooc', 'fooc.c', [], "c");
+ilib_for_link('fooc', 'fooc.c', [], "c");
// load the shared library
-exec('loader.sce');
+exec('loader.sce');
link('show');
// call the new linked entry point
a = linspace(0, %pi, 10);
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
-
// <-- CLI SHELL MODE -->
-
// <-- Non-regression test for bug 11037 -->
//
// <-- Bugzilla URL -->
// gsort() doesn't process int32 value anymore.
A = [ 1 3 5 ; 8 7 8 ]
A =
- 1. 3. 5.
- 8. 7. 8.
+ 1. 3. 5.
+ 8. 7. 8.
B = int8(A);
C = uint8(A);
D = int16(A);
G = uint32(A);
A_sorted = [ 8 7 3 ; 8 5 1 ]
A_sorted =
- 8. 7. 3.
- 8. 5. 1.
+ 8. 7. 3.
+ 8. 5. 1.
B_sorted = int8(A_sorted);
C_sorted = uint8(A_sorted);
D_sorted = int16(A_sorted);
a = ['aaa';'eee';'ccc';'bbb';'ddd';'rrr'];
trueValue=[1; 4; 3; 5; 2; 6];
[b result] = gsort(a,'r','i')
- result =
- 1.
- 4.
- 3.
- 5.
- 2.
- 6.
b =
!aaa !
! !
!eee !
! !
!rrr !
+ result =
+ 1.
+ 4.
+ 3.
+ 5.
+ 2.
+ 6.
assert_checkequal(result, trueValue);
ieee(0)
t1=tand(30)
t1 =
- 0.5773503
+ 0.5773503
ieee(2)
t2=tand(30)
t2 =
- 0.5773503
+ 0.5773503
if t1<>t2 then bugmes();quit;end
// http://bugzilla.scilab.org/592
//
// <-- Short Description -->
-// linspace(a, b, n<=0) returned b instead of []. Same problem with logspage
+// linspace(a, b, n<=0) returned b instead of []. Same problem with logspage
// function.
assert_checkequal(linspace(1, 2, 0), []);
assert_checkequal(linspace(1, 2, -3), []);
// =============================================================================
// <-- ENGLISH IMPOSED -->
// <-- CLI SHELL MODE -->
-// unit tests for nthroot() function
+// unit tests for nthroot() function
// =============================================================================
// Run with test_run('elementary_functions', 'nthroot', ['no_check_error_output'])
// 1. Interface
//
// <-- CLI SHELL MODE -->
//
-
// With a real matrix
x = [1 2 3; 4 5 6];
y = permute(x, [2 1]);
assert_checkequal(y, x');
-
// With an integer matrix
x = int32(x);
y = permute(x, [2 1]);
assert_checkequal(y, x');
-
// With a string matrix
x = string(x);
y = permute(x, [2 1]);
assert_checkequal(y, x');
-
// With a complex matrix
x = [1 2 3; 4 5 6]*%i;
y = permute(x, [2 1]);
refY = [1 4; 2 5; 3 6]*%i;
assert_checkequal(y, refY);
-
// With a real hypermatrix
x0 = matrix(1:12, [2, 3, 2]);
y = permute(x0, [3 1 2]);
refY(:, :, 3) = [5 6; 11 12];
refY0 = refY;
assert_checkequal(y, refY);
-
// With a boolean hypermatrix
x = x0<5;
y = permute(x, [3 1 2]);
refY = refY0<5;
assert_checkequal(y, refY);
-
// With an integer hypermatrix
x = int32(x0);
y = permute(x, [3 1 2]);
refY = int32(refY0);
assert_checkequal(y, refY);
-
// With a string hypermatrix
x = string(x0);
y = permute(x, [3 1 2]);
refY = string(refY0);
assert_checkequal(y, refY);
-
// With a complex hypermatrix
x = x0*%i;
y = permute(x, [3 1 2]);
refY = refY0*%i;
assert_checkequal(y, refY);
-
// With an hypermatrix of polynomials
x = 1 + x0*%z;
y = permute(x, [3 1 2]);
refY = 1 + refY0*%z;
assert_checkequal(y, refY);
-
// With an hypermatrix of rationals
x = (1 + x0*%z)./(1 - x0*%z);
y = permute(x, [3 1 2]);
refY = (1 + refY0*%z) ./ (1 - refY0*%z);
assert_checkequal(y, refY);
-
// With an array of structures
s(3,4,2).r = %pi;
ss = size(s);
ps = permute(s,[2 3 1]);
assert_checkequal(size(ps),ss([2 3 1]));
assert_checkequal(ps(24).r, %pi);
-
-
// Error checks
// ------------
msg = _("%s: Wrong value for input argument #%d: Must be a valid permutation of [1..n>%d] integers.\n");
y_ref=[38, -8.5-%i*4.33012701892219276, -8.5+%i*4.33012701892219276;
-2-%i*14, 18.722431864335455-%i*1.76794919243112281 -10.7224318643354568-%i*5.23205080756887675;
-10, -5.5+%i*4.33012701892219276, -5.5-%i*4.33012701892219276;
- -2+%i*14,-10.7224318643354568+%i*5.23205080756887675, 18.722431864335455+%i*1.76794919243112281];
+ -2+%i*14,-10.7224318643354568+%i*5.23205080756887675, 18.722431864335455+%i*1.76794919243112281];
assert_checkalmostequal(y,y_ref);
assert_checkalmostequal(A,ifft(y),0,10*%eps);
y=fft(A,1);
0.28 0.33 0.43 ];
mat = fscanfMat("SCI/modules/fileio/tests/nonreg_tests/bug_1526.mat")
mat =
- 0.15 0.19 0.96
- 0.55 0.81 0.57
- 0.28 0.33 0.43
+ 0.15 0.19 0.96
+ 0.55 0.81 0.57
+ 0.28 0.33 0.43
if or( mat <> mat_ref ) then bugmes();quit;end
93. 43. 12. 87. 92. ];
mat = fscanfMat("SCI/modules/fileio/tests/nonreg_tests/bug_2555.mat")
mat =
- 72. 21. 26. 77. 11.
- 19. 31. 63. 21. 19.
- 54. 36. 40. 11. 56.
- 23. 29. 91. 68. 58.
- 23. 56. 4. 15. 68.
- 21. 48. 48. 69. 89.
- 88. 33. 26. 84. 50.
- 65. 59. 41. 40. 34.
- 30. 50. 28. 40. 38.
- 93. 43. 12. 87. 92.
+ 72. 21. 26. 77. 11.
+ 19. 31. 63. 21. 19.
+ 54. 36. 40. 11. 56.
+ 23. 29. 91. 68. 58.
+ 23. 56. 4. 15. 68.
+ 21. 48. 48. 69. 89.
+ 88. 33. 26. 84. 50.
+ 65. 59. 41. 40. 34.
+ 30. 50. 28. 40. 38.
+ 93. 43. 12. 87. 92.
if or( mat <> mat_ref ) then bugmes();quit;end
Fd='%d';Fd=strcat(Fd(ones(1,n-2)),' ');
fd=mopen(tmpf,'r');[n,a,b,c,d,e]=mfscanf(-1,fd,Fs+' '+Fd);mclose(fd);
if n<>5 then bugmes();quit;end
-if norm([evstr(a),evstr(b),c,d,e]-A) > %eps then bugmes();quit;end
+if norm([evstr(a), evstr(b),c,d,e]-A) > %eps then bugmes();quit;end
// same example but returned values are compacted in L
fd=mopen(tmpf,'r');L=mfscanf(-1,fd,Fs+' '+Fd);mclose(fd);
if length(L)<>3 then bugmes();quit;end
// <-- Short Description -->
// Appended comments are considered as a new physical line
//
-
//test of line numbering in functions, handling initial comments
// ================ Test 1 =====================================================
function foo,endfunction
disp(xxxxxxF0xx);
endfunction
f2();
- 32.
+ 32.
// execute it
exec(TMPDIR+"/myscript")
a=1;b=2
-b =
- 2.
+ b =
+ 2.
if isdef("a")<> %t then bugmes();quit;end
if isdef("b")<> %t then bugmes();quit;end
assert_checkequal(a, 1);
deff("script()","a=x+1;y=a^2");
x=4; //create x to make it known by script
exec(script);
-y =
- 25.
+ y =
+ 25.
if isdef("y")<> %t then bugmes();quit;end
if isdef("a")<> %t then bugmes();quit;end
assert_checkequal(y, 25);
// execute it
exec(TMPDIR+'/myscript')
a=1;b=2
-b =
- 2.
+ b =
+ 2.
if isdef('a')<> %t then bugmes();quit;end
if isdef('b')<> %t then bugmes();quit;end
if a <> 1 then bugmes();quit;end
x=4; //create x to make it known by the script foo
clear k y
exec(foo);
-y =
- 25.
+ y =
+ 25.
if isdef('y')<> %t then bugmes();quit;end
if y <> 25 then bugmes();quit;end
endfunction
assert_checkerror("f()","save: Wrong type for input argument #2: A String expected.");
assert_checkerror("f1()","save: Wrong type for input argument #3: A String expected.");
-assert_checkerror("f2()","save: Wrong type for input argument #4: A String expected.");
\ No newline at end of file
+assert_checkerror("f2()","save: Wrong type for input argument #4: A String expected.");
//
// <-- Short Description -->
// head_comments did not take into account compiled functions
+// <-- CLI SHELL MODE -->
function test()
// heading comment L#1
// heading comment L#2
// http://bugzilla.scilab.org/14306
//
// <-- Short Description -->
-// Comparisons `>` and `>=` between integers of mismatching inttypes were not
+// Comparisons `>` and `>=` between integers of mismatching inttypes were not
// implemented.
assert_checktrue(int8(3) > int16(1));
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
-
funcprot(0);
-
//extractions
warning("off"); //WARNING_EMPTY_OPS
v=int8([1 2 3]);
assert_checkequal(v([3 3]), int8([3 3]));
assert_checkequal(v(:), int8([1 2 3]'));
assert_checkequal(v([]), []);
-
v=int32([1 2 3;4 5 6]);
assert_checktrue(v(2) == int8(4));
assert_checktrue(v([1 3]) == int8([1;2]));
assert_checktrue(v([3 3]) == int8([2;2]));
assert_checktrue(v(:) == int8([1;4;2;5;3;6]));
assert_checktrue(v([]) == []);
-
assert_checktrue(v(2,1) == int8(4));
assert_checktrue(v(1,[1 3]) == int8([1 3]));
assert_checktrue(v(1,[3 3]) == int8([3 3]));
assert_checktrue(v(:,2) == int8([2;5]));
assert_checktrue(v([1 1],:) == int8([1 2 3;1 2 3]));
assert_checktrue(v(:,[2 1]) == int8([2 1;5 4]));
-
assert_checktrue(v(1,1:$) == int8([1 2 3]));
assert_checktrue(v(1:$,2) == int8([2;5]));
assert_checktrue(v([1 1],1:$) == int8([1 2 3;1 2 3]));
assert_checktrue(v(1:$,[2 1]) == int8([2 1;5 4]));
-
//insertion
v = int8([1 2 3]);
v(2) = int8(3);
assert_checkequal(v, int8([1 3 3]));
-
v(4) = int8(-5);
assert_checkequal(v, int8([1 3 3 -5]));
-
v([1 4]) = int8([2 5]);
assert_checkequal(v, int8([2 3 3 5]));
-
v([1 1]) = int8([2 5]);
assert_checkequal(v, int8([5 3 3 5]));
-
v([1 1 1 1 1 1]) = int8([2 5 6 7 8 9]);
assert_checkequal(v, int8([9 3 3 5]));
-
v([4 2]) = int8([8 5]);
assert_checkequal(v, int8([9 5 3 8]));
-
v = uint16([1 2 3]);
v(2) = uint16(3);
assert_checkequal(v, uint16([1 3 3]));
-
v(4) = uint16(-5);
assert_checkequal(v, uint16([1 3 3 -5]));
-
v([1 4]) = uint16([2 5]);
assert_checkequal(v, uint16([2 3 3 5]));
-
v([1 1]) = uint16([2 5]);
assert_checkequal(v, uint16([5 3 3 5]));
-
v([1 1 1 1 1 1]) = uint16([2 5 6 7 8 9]);
assert_checkequal(v, uint16([9 3 3 5]));
-
v([4 2]) = uint16([8 5]);
assert_checkequal(v, uint16([9 5 3 8]));
-
v = uint8([1 2 3]);
v(2,4) = uint8(10);
assert_checkequal(v, uint8([1 2 3 0;0 0 0 10]));
-
v([2 2],4) = uint8([10;20]);
assert_checkequal(v, uint8([1 2 3 0;0 0 0 20]));
-
v([2 1],4) = uint8([10;20]);
assert_checkequal(v, uint8([1 2 3 20;0 0 0 10]));
-
v([2 2 2],4) = uint8([10;20;30]);
assert_checkequal(v, uint8([1 2 3 20;0 0 0 30]));
-
v = int32([1 2 3]);
v(2,4) = int32(10);
assert_checkequal(v, int32([1 2 3 0;0 0 0 10]));
-
v([2 2],4) = int32([10;20]);
assert_checkequal(v, int32([1 2 3 0;0 0 0 20]));
-
v([2 1],4) = int32([10;20]);
assert_checkequal(v, int32([1 2 3 20;0 0 0 10]));
-
v([2 2 2],4) = int32([10;20;30]);
assert_checkequal(v, int32([1 2 3 20;0 0 0 30]));
-
v = int16([1 2 3;0 0 10]);
v(1,[1 1 1 1]) = int16(1:4);
assert_checkequal(v, int16([4 2 3;0 0 10]));
-
v([2 2],[1 1 1 1]) = int16([1:4;2:5]);
assert_checkequal(v, int16([4 2 3;5 0 10]));
-
v(3,4) = int16(7);
assert_checkequal(v, int16([4 2 3 0;5 0 10 0;0 0 0 7]));
-
v = uint32([1 2 3;0 0 10]);
v(1,[1 1 1 1]) = uint32(1:4);
assert_checkequal(v, uint32([4 2 3;0 0 10]));
-
v([2 2],[1 1 1 1]) = uint32([1:4;2:5]);
assert_checkequal(v, uint32([4 2 3;5 0 10]));
-
v(3,4) = uint32(7);
assert_checkequal(v, uint32([4 2 3 0;5 0 10 0;0 0 0 7]));
-
v = [];
v(5) = int8(1);
assert_checkequal(v, int8([0;0;0;0;1]));
-
v(2) = int8(4);
assert_checkequal(v, int8([0;4;0;0;1]));
-
v = uint16([1 2 3;4 5 6]);
v(:,1) = uint16([4;1]);
assert_checkequal(v, uint16([4 2 3;1 5 6]));
-
v(:,[1 1]) = uint16([4 5;1 2]);
assert_checkequal(v, uint16([5 2 3;2 5 6]));
-
v(:,[3 1]) = uint16([4 5;1 2]);
assert_checkequal(v, uint16([5 2 4;2 5 1]));
-
v(:,[3 3 3 3]) = uint16([4 5 6 7;1 2 3 4]);
assert_checkequal(v, uint16([5 2 7;2 5 4]));
-
v = int8([1 2 3;4 5 6]);
v(1,:) = int8([2 3 4]);
assert_checkequal(v, int8([2 3 4;4 5 6]));
-
v([1 1],:) = int8([2 3 4;4 5 6]);
assert_checkequal(v, int8([4 5 6;4 5 6]));
-
v([2 2 2 2],:) = int8([2 3 4;4 5 6;7 8 9;10 11 12]);
assert_checkequal(v, int8([4 5 6;10 11 12]));
-
v = uint8([1 2 3]);
v(2) = [];
assert_checkequal(v, uint8([1 3]));
-
v = uint8([1 2 3]);
v([3 2]) = [];
assert_checkequal(v, uint8(1));
-
v = int8([1 2 3]');
v(2) = [];
assert_checkequal(v, int8([1 3]'));
-
v = int8([1 2 3]');
v([3 2]) = [];
assert_checkequal(v, int8(1));
-
v = int32([1 2 3;4 5 6]);
v(1,:) = [];
assert_checkequal(v, int32([4 5 6]));
-
v = int32([1 2 3;4 5 6]);
v(:,[3 2]) = [];
assert_checkequal(v, int32([1;4]));
-
//hidden empty index in insertion
a = int32([1 2;3 4]);
a_ref = a;
-
a(1,[%f %f]) = [];
assert_checkequal(a, a_ref);
-
a([%f %f],1) = [];
assert_checkequal(a, a_ref);
-
a([%f %f],[%f %f]) = [];
assert_checkequal(a, a_ref);
-
a = int8([1 2;3 4]);
a_ref = a;
-
a(1,[%f %f]) = [];
assert_checkequal(a, a_ref);
-
a([%f %f],1) = [];
assert_checkequal(a, a_ref);
-
a([%f %f],[%f %f]) = [];
assert_checkequal(a, a_ref);
-
-
//concatenations
x1 = int8(1);
x2 = int8(7);
assert_checkequal([x1; []], int8(1));
assert_checkequal([[], x2], int8(7));
assert_checkequal([[]; x2], int8(7));
-
[x1, x2] = ([x1 x2 x1 x2],[x2 x2 x1 x1]);
assert_checkequal([x1 x2], int8([1 7 1 7 7 7 1 1]));
assert_checkequal([x1; x2], int8([1 7 1 7; 7 7 1 1]));
assert_checkequal([x1; []], int8([1 7 1 7]));
assert_checkequal([[] x2], int8([7 7 1 1]));
assert_checkequal([[]; x2], int8([7 7 1 1]));
-
n = 300;
x1 = uint16(1:n);
assert_checkequal([x1 x1], uint16([1:n 1:n]));
assert_checkequal([x1; x1], uint16([1:n; 1:n]));
-
//additions soustractions
X1 = 1;X2 = 7;x1 = int8(X1);x2 = int8(X2);
assert_checkequal(x1+x2, int8(X1+X2));
assert_checkequal(x1-x2, int8(X1-X2));
-
X1 = 1:10; x1 = int8(X1);
assert_checkequal(x1+x2, int8(X1+X2));
assert_checkequal(x1-x2, int8(X1-X2));
-
X2 = 2:11; x2 = int8(X2);
assert_checkequal(x1+x2, int8(X1+X2));
assert_checkequal(x1-x2, int8(X1-X2));
assert_checkequal(-x1, int8(-X1));
-
X2 = []; x2 = [];
assert_checkequal(x1+x2, int8(X1+X2));
assert_checkequal(x1-x2, int8(X1-X2));
assert_checkequal(x2+x1, int8(X2+X1));
assert_checkequal(x2-x1, int8(X2-X1));
-
//multiplication
X1 = 1;X2 = 7;x1 = int8(X1);x2 = int8(X2);
assert_checkequal(x1 * x2, int8(X1 * X2));
assert_checkequal(x1 .* x2, int8(X1 .* X2));
-
X1 = 1:10; x1 = int8(X1);
assert_checkequal(x1 * x2, int8(X1 * X2));
assert_checkequal(x1 .* x2, int8(X1 .* X2));
assert_checkequal(x2 * x1, int8(X2 * X1));
assert_checkequal(x2 .* x1, int8(X2 .* X1));
-
X2 = -(1:10); x2 = int8(X2);
assert_checkequal(x1 .* x2, int8(X1 .* X2));
assert_checkequal(x1' * x2, int8(X1' * X2));
assert_checkequal(x1 * x2', int8(X1 * X2'));
-
// Implicit conversions by a*b, a/b, a+b, a-b
icodes = [ 1 2 4 8 11 12 14 18];
for i = 1:8
// assert_checkequal(inttype(am^bm), expected);
end
end
-
// Comparisons
// -----------
icodes = [0 1 2 4 8 11 12 14 18];
assert_checktrue(b<=a);
assert_checktrue(a~=b);
assert_checkfalse(a==b);
-
a = iconvert(2:10,i);
b = iconvert(1,j);
assert_checktrue(and(a>b));
assert_checktrue(and(b<=a));
assert_checktrue(and(a~=b));
assert_checkfalse(or(a==b));
-
a = iconvert(10,i);
b = iconvert(1:9,j);
assert_checktrue(and(a>b));
assert_checktrue(and(b<=a));
assert_checktrue(and(a~=b));
assert_checkfalse(or(a==b));
-
a = iconvert(2:10,i);
b = iconvert(1:9,j);
assert_checktrue(and(a>b));
assert_checkfalse(or(a==b));
end
end
-
//division
X1 = 1;X2 = 7;x1 = int8(X1);x2 = int8(X2);
assert_checkequal(x1/x2, int8(0));
assert_checkequal(x2./x1, int8(7));
assert_checkequal(x1.\x2, int8(7));
assert_checkequal(x2.\x1, int8(0));
-
X1 = 1:10; x1 = int8(X1);
assert_checkequal(x1/x2, int8([0 0 0 0 0 0 1 1 1 1]));
-//if or(x2/x1<>int8([7 3 2 1 1 1 1 0 0 0])) then pause,end
+//if or(x2/x1<>int8([7 3 2 1 1 1 1 0 0 0])) then bugmes();quit;end
assert_checkequal(x1./x2, int8([0 0 0 0 0 0 1 1 1 1]));
assert_checkequal(x2./x1, int8([7 3 2 1 1 1 1 0 0 0]));
-//if or(x1\x2<>int8([0 0 0 0 0 0 1 1 1 1])) then pause,end
+//if or(x1\x2<>int8([0 0 0 0 0 0 1 1 1 1])) then bugmes();quit;end
assert_checkequal(x1.\x2, int8([7 3 2 1 1 1 1 0 0 0]));
assert_checkequal(x2\x1, int8([0 0 0 0 0 0 1 1 1 1]));
assert_checkequal(x2.\x1, int8([0 0 0 0 0 0 1 1 1 1]));
-
X2 = -(1:10); x2 = int8(X2);
assert_checkequal(x1./x2, int8(-ones(1,10)));
assert_checkequal(x1.\x2, int8(-ones(1,10)));
-
// puissance
X1 = 2;X2 = 3;x1 = int8(X1);x2 = int8(X2);
assert_checkequal(x1^x2, int8(X1^X2));
assert_checkequal(x1.^x2, int8(X1.^X2));
-
X1 = 1:5; x1 = int8(X1);
assert_checkequal(x1.^x2, int8(X1.^X2));
-//if or(x1^x2<>int8(X1^X2)) then pause,end
-
+//if or(x1^x2<>int8(X1^X2)) then bugmes();quit;end
X1 = 2;x1 = int8(X1);X2 = (1:3);x2 = int8(X2);
assert_checkequal(x1^x2, int8(X1^X2));
assert_checkequal(x1.^x2, int8(X1.^X2));
-
//X1=2:4;x1=int8(X1);
-//if or(x1.^x2<>int8(X1.^X2)) then pause,end
-
+//if or(x1.^x2<>int8(X1.^X2)) then bugmes();quit;end
//kronecker
X1 = 2;X2 = 3;x1 = int8(X1);x2 = int8(X2);
assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
X1 = 1:5;x1 = int8(X1);
assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
X1 = 2;x1 = int8(X1);X2 = (1:3);x2 = int8(X2);
assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
X1 = (1:5)';x1 = int8(X1);
assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
//sum
X = round(10 * rand(1,30));
deff("y=INT(x)","y=int16(x)")
assert_checkequal(sum(x'), INT(sum(X')));
assert_checkequal(cumsum(x), INT(cumsum(X)));
assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
deff("y=INT(x)","y=uint16(x)")
x = INT(X);
assert_checkequal(sum(x), INT(sum(X)));
assert_checkequal(sum(x'), INT(sum(X')));
assert_checkequal(cumsum(x), INT(cumsum(X)));
assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
deff("y=INT(x)","y=uint8(x)")
x = INT(X);
assert_checkequal(sum(x), INT(sum(X)));
assert_checkequal(sum(x'), INT(sum(X')));
assert_checkequal(cumsum(x), INT(cumsum(X)));
assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
deff("y=INT(x)","y=int8(x)")
x = INT(X);
assert_checkequal(sum(x), INT(sum(X)));
assert_checkequal(sum(x'), INT(sum(X')));
assert_checkequal(cumsum(x), INT(cumsum(X)));
assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
X = round(10*rand(20,30));
x = INT(X);
assert_checkequal(sum(x, 1), INT(sum(X, 1)));
assert_checkequal(sum(x', 1), INT(sum(X', 1)));
assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
deff("y=INT(x)","y=uint16(x)")
x = INT(X);
assert_checkequal(sum(x, 1), INT(sum(X, 1)));
assert_checkequal(sum(x', 1), INT(sum(X', 1)));
assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
deff("y=INT(x)","y=uint8(x)")
x = INT(X);
assert_checkequal(sum(x, 1), INT(sum(X, 1)));
assert_checkequal(sum(x', 1), INT(sum(X', 1)));
assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
deff("y=INT(x)","y=int8(x)")
x = INT(X);
assert_checkequal(sum(x, 1), INT(sum(X, 1)));
assert_checkequal(sum(x', 1), INT(sum(X', 1)));
assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
x = INT(X);
assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
deff("y=INT(x)","y=uint16(x)")
x = INT(X);
assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
deff("y=INT(x)","y=uint8(x)")
x = INT(X);
assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
deff("y=INT(x)","y=int8(x)")
x = INT(X);
assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
//diag triu tril
deff("y=INT(x)","y=int16(x)")
X = round(10*rand(1,30));
x = INT(X);
-
assert_checktrue(diag(x) == diag(X));
assert_checktrue(diag(x, 2) == diag(X, 2));
assert_checktrue(diag(x, -2) == diag(X, -2));
-
assert_checktrue(triu(x) == triu(X));
assert_checktrue(triu(x, 2) == triu(X, 2));
assert_checktrue(triu(x, -2) == triu(X, -2));
-
assert_checktrue(tril(x) == tril(X));
assert_checktrue(tril(x, 2) == tril(X, 2));
assert_checktrue(tril(x, -2) == tril(X, -2));
-
X = round(10*rand(2,30));
x = INT(X);
-
assert_checktrue(diag(x) == diag(X));
assert_checktrue(diag(x, 2) == diag(X, 2));
assert_checktrue(diag(x, -2) == diag(X, -2));
-
assert_checktrue(triu(x) == triu(X));
assert_checktrue(triu(x, 2) == triu(X, 2));
assert_checktrue(triu(x, -2) == triu(X, -2));
-
assert_checktrue(tril(x) == tril(X));
assert_checktrue(tril(x, 2) == tril(X, 2));
assert_checktrue(tril(x, -2) == tril(X, -2));
-
deff("y=INT(x)","y=uint8(x)")
X = round(10*rand(1,30));
x = INT(X);
-
assert_checktrue(diag(x) == diag(X));
assert_checktrue(diag(x, 2) == diag(X, 2));
assert_checktrue(diag(x, -2) == diag(X, -2));
-
assert_checktrue(triu(x) == triu(X));
assert_checktrue(triu(x, 2) == triu(X, 2));
assert_checktrue(triu(x, -2) == triu(X, -2));
-
assert_checktrue(tril(x) == tril(X));
assert_checktrue(tril(x, 2) == tril(X, 2));
assert_checktrue(tril(x, -2) == tril(X, -2));
-
X = round(10*rand(2,30));
x = INT(X);
-
assert_checktrue(diag(x) == diag(X));
assert_checktrue(diag(x, 2) == diag(X, 2));
assert_checktrue(diag(x, -2) == diag(X, -2));
-
assert_checktrue(triu(x) == triu(X));
assert_checktrue(triu(x, 2) == triu(X, 2));
assert_checktrue(triu(x, -2) == triu(X, -2));
-
assert_checktrue(tril(x) == tril(X));
assert_checktrue(tril(x, 2) == tril(X, 2));
assert_checktrue(tril(x, -2) == tril(X, -2));
-
// save load
deff("y=INT(x)","y=uint8(x)")
X = round(10*rand(1,30));
x = INT(X);
-
save(TMPDIR+"/foo","x");
clear x;
load(TMPDIR+"/foo");
assert_checkequal(x, INT(X));
-
x=list(1,x,2);save(TMPDIR+"/foo","x");
clear x;
load(TMPDIR+"/foo");
assert_checkequal(x, list(1, INT(X), 2));
-
deff("y=INT(x)","y=int32(x)")
X = round(10*rand(1,30));
x = INT(X);
-
save(TMPDIR+"/foo","x");
clear x;
load(TMPDIR+"/foo");
assert_checkequal(x, INT(X));
-
x=list(1,x,2);save(TMPDIR+"/foo","x");
clear x;
load(TMPDIR+"/foo");
assert_checkequal(x, list(1, INT(X), 2));
-
//abs
deff("y=INT(x)","y=int8(x)")
X = round(10*rand(1,30))-5;
x = INT(X);
assert_checkequal(abs(x), INT(abs(X)));
-
deff("y=INT(x)","y=int16(x)")
X = round(10*rand(1,30))-5;
x = INT(X);
assert_checkequal(abs(x), INT(abs(X)));
-
//matrix
deff("y=INT(x)","y=int8(x)")
X = round(10*rand(1,30))-5;
assert_checkequal(matrix(x,10,-1), INT(matrix(X,10,-1)));
assert_checkequal(matrix(x,10,3), INT(matrix(X,10,3)));
assert_checkequal(matrix(x,-1,3), INT(matrix(X,-1,3)));
-
deff("y=INT(x)","y=uint8(x)")
X = round(10*rand(1,30))-5;
x = INT(X);
assert_checkequal(matrix(x,10,-1), INT(matrix(X,10,-1)));
assert_checkequal(matrix(x,10,3), INT(matrix(X,10,3)));
assert_checkequal(matrix(x,-1,3), INT(matrix(X,-1,3)));
-
//max min
deff("y=INT(x)","y=int8(x)")
X = round(10*rand(2,30))-5;
assert_checkequal(max(x, "c"), INT(max(X, "c")));
assert_checkequal(max(x, INT(2)), INT(max(X, 2)));
assert_checkequal(max(x, y), INT(max(X, Y)));
-
assert_checkequal(min(x), INT(min(X)));
assert_checkequal(min(x, "r"), INT(min(X, "r")));
assert_checkequal(min(x, "c"), INT(min(X, "c")));
assert_checkequal(min(x, INT(2)), INT(min(X, 2)));
assert_checkequal(min(x, y), INT(min(X, Y)));
-
a = [0 3 7];
b = [1 2 7];
A = [0 3 7 5;
1 2 0 2
8 9 3 1];
types=["double","int32","uint32","int16","uint16","int8","uint8"];
-
// checking max(a,b)
[mx, kx] = max(a, b);
for t1 = types
end
end
end
-
// checking min(a,b)
[mn,kn]=min(a,b);
for t1=types
end
end
end
-
// checking max(A)
[mx,kx]=max(A);
for t1=types
disp("max("+t1+")"),pause
end
end
-
// checking min(A)
[mx,kx]=min(A);
for t1=types
disp("min("+t1+")"),pause
end
end
-
-
// checking max(A,'r')
[mx,kx]=max(A,"r");
for t1=types
disp("max("+t1+",''r'')"),pause
end
end
-
// checking min(A,'r')
[mx,kx]=min(A,"r");
for t1=types
disp("min("+t1+",''r'')"),pause
end
end
-
// checking max(A,'c')
[mx,kx]=max(A,"c");
for t1=types
disp("max("+t1+",''c'')"),pause
end
end
-
// checking min(A,'c')
[mx,kx]=min(A,"c");
for t1=types
disp("min("+t1+",''c'')"),pause
end
end
-
-
//int32 int8 ... iconvert
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- Non-regression test for bug 2338 -->
-//
+// <-- CLI SHELL MODE -->
// <-- Bugzilla URL -->
// http://bugzilla.scilab.org/show_bug.cgi?id=2338
//
0. 1. 2. -1];
ww=spec(H)
ww =
- 2.7320508
- - 2.7320508
- 0.7320508
- - 0.7320508
+ 2.7320508 + 0.i
+ -2.7320508 + 0.i
+ 0.7320508 + 0.i
+ -0.7320508 + 0.i
function [flg]=sel(x,y)
- flg=%f
- if abs(x/y-ww(3))<0.0001|abs(x/y-ww(4))<0.00001 then flg=%t,end
+ flg=%f
+ if abs(x/y-ww(3))<0.0001|abs(x/y-ww(4))<0.00001 then flg=%t,end
endfunction
[X,d]=schur(H,eye(H),sel);
assert_checkfalse(norm(X*X'-eye(X), 1)> 200*%eps);
end
t = toc();
assert_checktrue( t < 4 );
-//
-// IEEE compliance
-//
-refMsg = msprintf(_("%s: Wrong value for argument #%d: Must not contain NaN or Inf.\n"), "norm", 1);
-assert_checkerror("norm(%nan)", refMsg);
-assert_checkerror("norm([%i %nan])", refMsg);
-assert_checkerror("norm([%i %inf])", refMsg);
-assert_checkerror("norm([%i; %nan])", refMsg);
-assert_checkerror("norm([%i; %inf])", refMsg);
-assert_checkerror("norm([1 0; %nan 0])", refMsg);
-assert_checkerror("norm([1 0; %inf 0]);", refMsg);
-assert_checkerror("norm([%inf 0; %nan 0]);", refMsg);
Macro to tree conversion: Done
****** End of mfile2sci() session ******
ierr =
- 0.
+ 0.
if ierr<>0 then bugmes();quit;end
// TEST2: commas OK without spaces
MFILECONTENTS=["function [a,b,c,d]=bug2341";
Macro to tree conversion: Done
****** End of mfile2sci() session ******
ierr =
- 0.
+ 0.
if ierr<>0 then bugmes();quit;end
// TEST3: commas OK with spaces before
MFILECONTENTS=["function [a ,b ,c ,d]=bug2341";
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxArrayToUTF8String mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxCalloc mex function
exec("loader.sce");
[res1, res2] = mxCalloc();
Buffer is Not NULL.
-
assert_checkfalse(res1);
assert_checktrue(res2);
retU32 = createNumericArray(13);
ret64 = createNumericArray(14);
retU64 = createNumericArray(15);
-comp = zeros(4,3,2);
-assert_checkequal(ret8, int8(comp));
-assert_checkequal(ret16, int16(comp));
-assert_checkequal(ret32, int32(comp));
-assert_checkequal(ret64, int64(comp));
-assert_checkequal(retU8, uint8(comp));
-assert_checkequal(retU16, uint16(comp));
-assert_checkequal(retU32, uint32(comp));
-assert_checkequal(retU64, uint64(comp));
+comp = zeros(4,3,2);
+assert_checkequal(ret8, int8(comp));
+assert_checkequal(ret16, int16(comp));
+assert_checkequal(ret32, int32(comp));
+assert_checkequal(ret64, int64(comp));
+assert_checkequal(retU8, uint8(comp));
+assert_checkequal(retU16, uint16(comp));
+assert_checkequal(retU32, uint32(comp));
+assert_checkequal(retU64, uint64(comp));
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxCreateNumericMatrix mex function
[n2, m2] = size(b);
assert_checkequal([n1, m1], [2, 3]);
assert_checkequal([n2, m2], [4, 5]);
-comp1 = zeros(2,3);
-comp2 = zeros(4,5);
-assert_checkequal(a, int8(comp1));
+comp1 = zeros(2,3);
+comp2 = zeros(4,5);
+assert_checkequal(a, int8(comp1));
assert_checkequal(b, int8(comp2));
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxCreateSparse mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxCreateSparseLogicalMatrix mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxCreateUninitNumericArray and mxCreateUninitNumericMatrix mex functions
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxGetIr mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxGetJc mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxGetNzmax mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxIsNumeric mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxIsScalar mex function
// ============================================================================
-
cd(TMPDIR);
ilib_verbose(0);
ieee(2);
"}"],"mexisScalar.c");
ilib_mex_build("libmextest",["isScalar","mexisScalar","cmex"], "mexisScalar.c",[]);
exec("loader.sce");
-
assert_checktrue(isScalar([1]));
assert_checktrue(isScalar(1/0));
assert_checktrue(isScalar(9));
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxIsSparse mex function
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
-
// <-- CLI SHELL MODE -->
// ============================================================================
// Unitary tests for mxMalloc mex function
exec("loader.sce");
[res1, res2] = mxMalloc();
Buffer is Not NULL.
-
assert_checkfalse(res1);
assert_checktrue(res2);
// Check the display system
nm = neldermead_new ();
nm
-nm =
+ nm =
Nelder-Mead Object:
======================
Simplex0 Method : axes
ans =
T
nm
-nm =
+ nm =
Nelder-Mead Object:
======================
Simplex0 Method : axes
ans =
T
nm
-nm =
+ nm =
Nelder-Mead Object:
======================
Simplex0 Method : axes
0.575
0.575
0.575
- -1.3
+ -1.3
0.575
0.575
0.575
- -1.3
+ -1.3
0.4125
0.4125
0.4125
- -0.65
+ -0.65
0.8121875
0.8121875
-1.0628125
- -0.37375
+ -0.37375
0.8121875
0.8121875
-1.0628125
- -0.37375
+ -0.37375
0.5826562
0.5826562
-0.4798437
- -0.268125
+ -0.268125
1.1472148
-0.7277852
-0.0387227
-0.5279219
- 0.823002
- -0.239498
+ 0.823002
+ -0.239498
-0.0277793
-0.3787266
- 0.823002
- -0.239498
+ 0.823002
+ -0.239498
-0.0277793
-0.3787266
- -0.254559
+ -0.254559
0.4345035
-0.0546958
-0.7456896
- -0.254559
+ -0.254559
0.4345035
-0.0546958
-0.7456896
0.4480337
-0.5576654
-0.1944957
- -0.497797
+ -0.497797
-0.3260538
-0.1221969
-0.1944957
- -0.497797
+ -0.497797
-0.3260538
-0.1221969
-1.3132094
-0.8806538
0.1675844
0.3819016
- -0.196745
- -0.508979
+ -0.196745
+ -0.508979
0.1047661
0.0632345
- 0.712283
+ 0.712283
-0.7522959
0.0708243
0.0898673
- 0.712283
+ 0.712283
-0.7522959
0.0708243
0.0898673
! !
!fv: 5-by-1 matrix !
s1
-s1 =
+ s1 =
Optim Simplex Object:
=====================
nbve: 5
];
s1 = optimsimplex_new ( coords );
s1
-s1 =
+ s1 =
Optim Simplex Object:
=====================
nbve: 5
-1. + 3.674D-16i 1. - 4.899D-16i
exp(%i*%pi*X/2)
ans =
- i -1. + 1.225D-16i
+ 0. + i -1. + 1.225D-16i
-1.837D-16 - i 1. - 2.449D-16i
exp(%i*%pi*X/4)
ans =
- 0.7071068 + 0.7071068i i
+ 0.7071068 + 0.7071068i 0. + i
-0.7071068 + 0.7071068i -1. + 1.225D-16i
X=[1 20;300 4000]
X =
// %inf had not always same display
A = %inf;
A
-A =
- Inf
+ A =
+ Inf
format('e', 8);
A
-A =
- Inf
+ A =
+ Inf
format('e', 16);
A
-A =
- Inf
+ A =
+ Inf
//Check display
complex(0,%inf)
ans =
- Infi
+ 0. + Infi
complex(1,%inf)
ans =
1. + Infi
A
A =
-1. + Infi 1. + Nani Inf + Nani Nan + Nani
- 1. 2. 3. 4.
+ 1. + 0.i 2. + 0.i 3. + 0.i 4. + 0.i
As
As =
( 2, 4) sparse matrix
( 1, 2) 1. + Nani
( 1, 3) Inf + Nani
( 1, 4) Nan + Nani
-( 2, 1) 1.
-( 2, 2) 2.
-( 2, 3) 3.
-( 2, 4) 4.
+( 2, 1) 1. + 0.i
+( 2, 2) 2. + 0.i
+( 2, 3) 3. + 0.i
+( 2, 4) 4. + 0.i
P
P =
-Real part
- 2 3
- -1 +s +Infs +Nans
-Imaginary part
- 2 3
- Inf +Nans +Nans +Nans
+ -1+Infi +(1+Nani)s +(Inf+Nani)s² -(Nan+Nani)s³
format("e")
// Check string
assert_checkequal(string(complex(0,%inf)),"%i*Inf");
//Check display
complex(0,%inf)
ans =
- Infi
+ 0.000D+00 + Infi
complex(1,%inf)
ans =
1.000D+00 + Infi
Nan + Nani
A
A =
- -1.000D+00 + Infi 1.000D+00 + Nani Inf + Nani Nan + Nani
- 1.000D+00 2.000D+00 3.000D+00 4.000D+00
+ column 1 to 2
+ -1.000D+00 + Infi 1.000D+00 + Nani
+ 1.000D+00 + 0.000D+00i 2.000D+00 + 0.000D+00i
+ column 3 to 4
+ Inf + Nani Nan + Nani
+ 3.000D+00 + 0.000D+00i 4.000D+00 + 0.000D+00i
As
As =
( 2, 4) sparse matrix
( 1, 2) 1.000D+00 + Nani
( 1, 3) Inf + Nani
( 1, 4) Nan + Nani
-( 2, 1) 1.000D+00
-( 2, 2) 2.000D+00
-( 2, 3) 3.000D+00
-( 2, 4) 4.000D+00
+( 2, 1) 1.000D+00 + 0.000D+00i
+( 2, 2) 2.000D+00 + 0.000D+00i
+( 2, 3) 3.000D+00 + 0.000D+00i
+( 2, 4) 4.000D+00 + 0.000D+00i
P
P =
-Real part
- 2 3
- -1.000D+00 +1.000D+00s +Infs +Nans
-Imaginary part
- 2 3
- Inf +Nans +Nans +Nans
+ -1D+00+Infi +(1D+00+Nani)s +(Inf+Nani)s² -(Nan+Nani)s³
ans =
column 1 to 13
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.
- column 14 to 24
- 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24.
- column 25 to 35
- 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35.
- column 36 to 46
- 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46.
- column 47 to 57
- 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57.
- column 58 to 68
- 58. 59. 60. 61. 62. 63. 64. 65. 66. 67. 68.
- column 69 to 79
- 69. 70. 71. 72. 73. 74. 75. 76. 77. 78. 79.
- column 80 to 90
- 80. 81. 82. 83. 84. 85. 86. 87. 88. 89. 90.
- column 91 to 100
- 91. 92. 93. 94. 95. 96. 97. 98. 99. 100.
+ column 14 to 25
+ 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25.
+ column 26 to 37
+ 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37.
+ column 38 to 49
+ 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49.
+ column 50 to 61
+ 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61.
+ column 62 to 73
+ 62. 63. 64. 65. 66. 67. 68. 69. 70. 71. 72. 73.
+ column 74 to 85
+ 74. 75. 76. 77. 78. 79. 80. 81. 82. 83. 84. 85.
+ column 86 to 97
+ 86. 87. 88. 89. 90. 91. 92. 93. 94. 95. 96. 97.
+ column 98 to 100
+ 98. 99. 100.
høyesterettsjustitiarius
deff('[]=%t_p(l)','disp(l(2),l(3))');
disp(tlist('t',1,2));
- 1.
- 2.
+ 1.
+ 2.
text=[ "中文測試"; "азеазеясдвклгхклмвцмзер"; ..
"ድቅስድቅስግጅክልውሽችክልዝ"; ..
"すべての人間は、生まれながらにして自由であり、かつ、尊厳と権利と について平等である。人間は、理性と良心とを授けられており、互いに同 胞の精神をもって行動しなければならない。"; ..
a.titi = zeros(1,100000);
tic();
a
-a =
- toto: [1x100000 constant]
- titi: [1x100000 constant]
+ a =
+ toto: [1x100000 constant]
+ titi: [1x100000 constant]
timeSpent=toc();
assert_checktrue(timeSpent<1);
q1(1)
!X x !
q1(2)
- 91. 93.
+ 91. 93.
q2 = new([10,20,30,40])
q2 =
q2(1)
!X x !
q2(2)
- 10. 20. 30. 40.
+ 10. 20. 30. 40.
q2([1,3]) = q1;
q2_ref = new([91 20 93 40]);
assert_checkequal(q2,q2_ref);
M = mlist("unknown");
if typeof(M) <> "unknown" then bugmes();quit;end
M
-M =
+ M =
Calling %unknown_p...
M(1)
Calling %unknown_e...
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
-
// <-- CLI SHELL MODE -->
-
// <-- Non-regression test for bug 8493 -->
//
// <-- Bugzilla URL -->
// <-- Short Description -->
// Dividing p1./p2 with p1 or/and p2 complex-encoded polynomials with null
// real or imaginary parts for both p1 and p2 prevented some simplifications
-
z = %z;
// With scalar polynomials
assert_checkequal(((1+0*%i)*z^2+z^3+z^4) ./ z^2, rlist(1+z+z^2, 1));
assert_checkequal(((1+0*%i)*z^2+z^3+z^4) / z^2, rlist(1+z+z^2, 1));
assert_checkequal((%i*z^2+%i*z^3+%i*z^4) ./ (%i*z^2), rlist(1+z+z^2, 1));
assert_checkequal((%i*z^2+%i*z^3+%i*z^4) / (%i*z^2), rlist(1+z+z^2, 1));
-
// With matrices of polynomials
p1 = ((1+0*%i)*z^2+z^3+z^4); p1 = [p1 p1];
r = rlist(1+z+z^2, 1); r = [r r];
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- CLI SHELL MODE -->
-// unit tests for detr function
+// unit tests for detr function
// =============================================================================
assert_checkfalse(execstr("detr()" ,"errcatch") == 0);
refMsg = msprintf(_("%s: Wrong number of input argument: %d expected.\n"), "detr", 1);
// =============================================================================
n = 200;
P = [0.1 0.3 0.2 0.01 0.09 0.3 ; ...
- 0.2 0.1 0.1 0.5 0.05 0.05; ...
- 0 0 0.2 0.3 0.4 0.1 ; ...
- 0.4 0 0.1 0.05 0.05 0.4 ; ...
- 0.1 0.1 0.1 0.3 0.2 0.2 ; ...
- 0.2 0.2 0.1 0.1 0.2 0.2];
+0.2 0.1 0.1 0.5 0.05 0.05; ...
+0 0 0.2 0.3 0.4 0.1 ; ...
+0.4 0 0.1 0.05 0.05 0.4 ; ...
+0.1 0.1 0.1 0.3 0.2 0.2 ; ...
+0.2 0.2 0.1 0.1 0.2 0.2];
x0 = [1:3];
a=grand(n, "markov", P, x0);
assert_checkequal(size(a), [3 200]);
Xcos trace: propertyUpdated( 20 , LINK , DESTINATION_PORT ) : NO_CHANGES
Xcos debug: propertyUpdated( 19 , PORT , CONNECTED_SIGNALS ) : SUCCESS
Xcos debug: propertyUpdated( 18 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-<<<<<<< HEAD
-Xcos debug: propertyUpdated( 17 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-Xcos debug: propertyUpdated( 15 , BLOCK , CHILDREN ) : SUCCESS
-Xcos trace: objectReferenced( 15 , BLOCK ) : 1
-Xcos trace: objectReferenced( 15 , BLOCK ) : 2
-Xcos debug: propertyUpdated( 15 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
-Xcos trace: propertyUpdated( 15 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 1
-Xcos debug: propertyUpdated( 14 , DIAGRAM , CHILDREN ) : SUCCESS
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 0
-scs_m.objs(1).model.rpar // Checking 'sb' elements
-Xcos trace: objectReferenced( 15 , BLOCK ) : 1
-Xcos trace: objectReferenced( 15 , BLOCK ) : 2
-Xcos trace: objectReferenced( 15 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 1
- ans =
-Xcos trace: objectReferenced( 15 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace: objectReferenced( 16 , BLOCK ) : 1
-Xcos trace: objectReferenced( 19 , LINK ) : 1
-1
-Xcos trace: objectUnreferenced( 16 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 19 , LINK ) : 0
-scs_m.objs(1).model.rpar.objs // "
-Xcos trace: objectReferenced( 15 , BLOCK ) : 2
-Xcos trace: objectReferenced( 15 , BLOCK ) : 3
-Xcos trace: objectReferenced( 15 , BLOCK ) : 4
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 2
-=======
Xcos debug: propertyUpdated( 16 , BLOCK , CHILDREN ) : SUCCESS
->>>>>>> origin/6.0
Xcos trace: objectReferenced( 16 , BLOCK ) : 1
Xcos debug: propertyUpdated( 16 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
Xcos trace: propertyUpdated( 16 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
Xcos debug: propertyUpdated( 15 , DIAGRAM , CHILDREN ) : SUCCESS
Xcos trace: objectUnreferenced( 16 , BLOCK ) : 0
-<<<<<<< HEAD
-Xcos trace: objectUnreferenced( 19 , LINK ) : 0
- ans =
-Xcos trace: objectReferenced( 15 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 15 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-=======
assert_checkequal(scs_m.objs(1).model.rpar.objs(1).graphics.pout, 2);
->>>>>>> origin/6.0
Xcos trace: objectReferenced( 16 , BLOCK ) : 1
Xcos trace: objectReferenced( 16 , BLOCK ) : 2
Xcos trace: objectReferenced( 16 , BLOCK ) : 3
Xcos trace: objectUnreferenced( 52 , BLOCK ) : 0
Xcos trace: objectUnreferenced( 56 , BLOCK ) : 0
Xcos trace: objectUnreferenced( 60 , LINK ) : 0
-<<<<<<< HEAD
-Xcos trace: objectUnreferenced( 43 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 47 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 51 , LINK ) : 0
-Xcos trace: objectReferenced( 21 , DIAGRAM ) : 1
-Xcos trace: objectUnreferenced( 21 , DIAGRAM ) : 0
-Xcos trace: objectReferenced( 20 , BLOCK ) : 3
-Xcos debug: propertyUpdated( 20 , BLOCK , DESCRIPTION ) : SUCCESS
-Xcos trace: propertyUpdated( 20 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace: objectUnreferenced( 20 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 20 , BLOCK ) : 1
-Xcos trace: propertyUpdated( 20 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 20 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 20 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 20 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos debug: propertyUpdated( 20 , BLOCK , DESCRIPTION ) : SUCCESS
-Xcos trace: propertyUpdated( 20 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 20 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 20 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 20 , BLOCK , UID ) : NO_CHANGES
-Xcos trace: objectUnreferenced( 20 , BLOCK ) : 0
-// Main diagram
-scs_m = scicos_diagram();
-Xcos info: objectCreated( 61 , DIAGRAM )
-Xcos trace: objectReferenced( 61 , DIAGRAM ) : 1
-Xcos trace: propertyUpdated( 61 , DIAGRAM , TITLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 61 , DIAGRAM , PATH ) : NO_CHANGES
-Xcos trace: propertyUpdated( 61 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace: propertyUpdated( 61 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace: propertyUpdated( 61 , DIAGRAM , CONTEXT ) : NO_CHANGES
-Xcos trace: objectUnreferenced( 61 , DIAGRAM ) : 0
-Xcos trace: propertyUpdated( 61 , DIAGRAM , CHILDREN ) : NO_CHANGES
-Xcos debug: propertyUpdated( 61 , DIAGRAM , VERSION_NUMBER ) : SUCCESS
-scs_m.objs(1) = sb;
-Xcos info: objectCreated( 62 , BLOCK )
-Xcos info: objectCloned( 20 , 62 , BLOCK )
-Xcos trace: propertyUpdated( 62 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , INTERFACE_FUNCTION ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , SIM_FUNCTION_NAME ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , GEOMETRY ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , EXPRS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , INPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , OUTPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 62 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos info: objectCreated( 63 , BLOCK )
-Xcos info: objectCloned( 52 , 63 , BLOCK )
-Xcos debug: propertyUpdated( 63 , BLOCK , SIM_FUNCTION_API ) : SUCCESS
-Xcos trace: propertyUpdated( 63 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug: propertyUpdated( 63 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug: propertyUpdated( 63 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace: propertyUpdated( 63 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 63 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug: propertyUpdated( 63 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace: propertyUpdated( 63 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 63 , BLOCK , RPAR ) : SUCCESS
-Xcos trace: propertyUpdated( 63 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 63 , BLOCK , SIM_DEP_UT ) : SUCCESS
-Xcos trace: propertyUpdated( 63 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info: objectCreated( 64 , PORT )
-Xcos info: objectCloned( 53 , 64 , PORT )
-Xcos trace: propertyUpdated( 64 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 64 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 64 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 64 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 64 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 64 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 64 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 64 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos info: objectCreated( 65 , PORT )
-Xcos info: objectCloned( 54 , 65 , PORT )
-Xcos trace: propertyUpdated( 65 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 65 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 65 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 65 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 65 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 65 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 65 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 65 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 63 , BLOCK , INPUTS ) : SUCCESS
-Xcos info: objectCreated( 66 , PORT )
-Xcos info: objectCloned( 55 , 66 , PORT )
-Xcos trace: propertyUpdated( 66 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 66 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 66 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 66 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 66 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 66 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 66 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 66 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 63 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace: propertyUpdated( 63 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 63 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 63 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos info: objectCreated( 67 , BLOCK )
-Xcos info: objectCloned( 56 , 67 , BLOCK )
-Xcos debug: propertyUpdated( 67 , BLOCK , SIM_FUNCTION_API ) : SUCCESS
-Xcos trace: propertyUpdated( 67 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug: propertyUpdated( 67 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug: propertyUpdated( 67 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace: propertyUpdated( 67 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 67 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug: propertyUpdated( 67 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace: propertyUpdated( 67 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 67 , BLOCK , RPAR ) : SUCCESS
-Xcos trace: propertyUpdated( 67 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 67 , BLOCK , SIM_DEP_UT ) : SUCCESS
-Xcos trace: propertyUpdated( 67 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info: objectCreated( 68 , PORT )
-Xcos info: objectCloned( 57 , 68 , PORT )
-Xcos trace: propertyUpdated( 68 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 68 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 68 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 68 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 68 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 68 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 68 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 68 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 68 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos info: objectCreated( 69 , PORT )
-Xcos info: objectCloned( 58 , 69 , PORT )
-Xcos trace: propertyUpdated( 69 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 69 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 69 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 69 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 69 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 69 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 69 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 69 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 69 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 67 , BLOCK , INPUTS ) : SUCCESS
-Xcos info: objectCreated( 70 , PORT )
-Xcos info: objectCloned( 59 , 70 , PORT )
-Xcos trace: propertyUpdated( 70 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 70 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 70 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 70 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 70 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 70 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 70 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 70 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 70 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 67 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace: propertyUpdated( 67 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 67 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 70 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 68 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 69 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 67 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos info: objectCreated( 71 , LINK )
-Xcos info: objectCloned( 60 , 71 , LINK )
-Xcos trace: propertyUpdated( 71 , LINK , COLOR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , KIND ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , DESCRIPTION ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , CONTROL_POINTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , THICK ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos debug: propertyUpdated( 71 , LINK , PARENT_BLOCK ) : SUCCESS
-Xcos debug: propertyUpdated( 71 , LINK , SOURCE_PORT ) : SUCCESS
-Xcos debug: propertyUpdated( 71 , LINK , DESTINATION_PORT ) : SUCCESS
-Xcos trace: propertyUpdated( 70 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 68 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-Xcos trace: propertyUpdated( 71 , LINK , SOURCE_PORT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 71 , LINK , DESTINATION_PORT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 69 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-Xcos debug: propertyUpdated( 62 , BLOCK , CHILDREN ) : SUCCESS
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos debug: propertyUpdated( 62 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
-Xcos trace: propertyUpdated( 62 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos debug: propertyUpdated( 61 , DIAGRAM , CHILDREN ) : SUCCESS
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-scs_m.objs(1).model.rpar // Checking 'sb' elements
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
- ans =
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-1 BIGSOM_f
-2 BIGSOM_f
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-scs_m.objs(1).model.rpar.objs // "
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectReferenced( 62 , BLOCK ) : 4
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
- ans =
- ans(1)
-GUI : BIGSOM_f
-Graphics:
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
- orig = [0,0]
- sz = [2,3]
- exprs = "[1;1]"
- pin = [0;0]
- pout = 3
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = ["E";"E"]
- out_implicit = "E"
- in_style = ["";""]
- out_style = ""
- in_label = ["";""]
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
- sum type: 2
- in = [-1;-1]
- in2 = [1;1]
- intyp = [1;1]
- out = -1
- out2 = 1
- outtyp = 1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = [1;1]
- ipar = []
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%t,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
- ans(2)
-GUI : BIGSOM_f
-Graphics:
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
- orig = [0,0]
- sz = [2,3]
- exprs = "[1;1]"
- pin = [3;0]
- pout = 0
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = ["E";"E"]
- out_implicit = "E"
- in_style = ["";""]
- out_style = ""
- in_label = ["";""]
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
- sum type: 2
- in = [-1;-1]
- in2 = [1;1]
- intyp = [1;1]
- out = -1
- out2 = 1
- outtyp = 1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = [1;1]
- ipar = []
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%t,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
- ans(3)
-Link :
- xx: []
- yy: []
- id:
- thick: 0 0
- ct: 1 1
- from: 1 1 0
- to: 2 1 1
-l = list(1); l(1) = scs_m; // Cloning 'scs_m'
-Xcos info: objectDeleted( 30 , LINK )
-l(1).objs(1).model.rpar
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
- ans =
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-1 BIGSOM_f
-2 BIGSOM_f
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-l(1).objs(1).model.rpar.objs
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectReferenced( 62 , BLOCK ) : 4
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
- ans =
- ans(1)
-GUI : BIGSOM_f
-Graphics:
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
- orig = [0,0]
- sz = [2,3]
- exprs = "[1;1]"
- pin = [0;0]
- pout = 3
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = ["E";"E"]
- out_implicit = "E"
- in_style = ["";""]
- out_style = ""
- in_label = ["";""]
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
- sum type: 2
- in = [-1;-1]
- in2 = [1;1]
- intyp = [1;1]
- out = -1
- out2 = 1
- outtyp = 1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = [1;1]
- ipar = []
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%t,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
- ans(2)
-GUI : BIGSOM_f
-Graphics:
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
- orig = [0,0]
- sz = [2,3]
- exprs = "[1;1]"
- pin = [3;0]
- pout = 0
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = ["E";"E"]
- out_implicit = "E"
- in_style = ["";""]
- out_style = ""
- in_label = ["";""]
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
- sum type: 2
- in = [-1;-1]
- in2 = [1;1]
- intyp = [1;1]
- out = -1
- out2 = 1
- outtyp = 1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = [1;1]
- ipar = []
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%t,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
- ans(3)
-Link :
- xx: []
- yy: []
- id:
- thick: 0 0
- ct: 1 1
- from: 1 1 0
- to: 2 1 1
-assert_checkequal(size(l(1).objs(1).model.rpar.objs), 3);
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectReferenced( 71 , LINK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-// Check connections
-assert_checkequal(l(1).objs(1).model.rpar.objs(1).graphics.pout, 3);
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(2).graphics.pin(1), 3);
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(3).from, [1 1 0]);
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(3).from, [1 1 0]);
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(3).to, [2 1 1]);
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-// Clone a second time
-l2 = list(1); l2(1) = l(1); // Cloning 'l(1)', which is 'scs_m's clone
-l2(1).objs(1).model.rpar
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
- ans =
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-1 BIGSOM_f
-2 BIGSOM_f
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-l2(1).objs(1).model.rpar.objs
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectReferenced( 62 , BLOCK ) : 4
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 63 , BLOCK ) : 1
-Xcos trace: objectReferenced( 67 , BLOCK ) : 1
-Xcos trace: objectReferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
- ans =
- ans(1)
-GUI : BIGSOM_f
-Graphics:
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
- orig = [0,0]
- sz = [2,3]
- exprs = "[1;1]"
- pin = [0;0]
- pout = 3
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = ["E";"E"]
- out_implicit = "E"
- in_style = ["";""]
- out_style = ""
- in_label = ["";""]
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
- sum type: 2
- in = [-1;-1]
- in2 = [1;1]
- intyp = [1;1]
- out = -1
- out2 = 1
- outtyp = 1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = [1;1]
- ipar = []
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%t,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
- ans(2)
-GUI : BIGSOM_f
-Graphics:
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
- orig = [0,0]
- sz = [2,3]
- exprs = "[1;1]"
- pin = [3;0]
- pout = 0
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = ["E";"E"]
- out_implicit = "E"
- in_style = ["";""]
- out_style = ""
- in_label = ["";""]
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
- sum type: 2
- in = [-1;-1]
- in2 = [1;1]
- intyp = [1;1]
- out = -1
- out2 = 1
- outtyp = 1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = [1;1]
- ipar = []
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%t,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
- ans(3)
-Link :
- xx: []
- yy: []
- id:
- thick: 0 0
- ct: 1 1
- from: 1 1 0
- to: 2 1 1
-assert_checkequal(size(l2(1).objs(1).model.rpar.objs), 3);
-Xcos trace: objectReferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 62 , BLOCK ) : 2
-Xcos trace: objectReferenced( 62 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace: objectReferenced( 63 , BLOCK ) : 2
-Xcos trace: objectReferenced( 67 , BLOCK ) : 2
-Xcos trace: objectReferenced( 71 , LINK ) : 2
-Xcos trace: objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 71 , LINK ) : 1
-Xcos trace: objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 71 , LINK ) : 0
-=======
l = list(1); l(1) = scs_m; // Cloning 'scs_m'
Xcos info: objectDeleted( 31 , LINK )
// Check connections
Xcos trace: objectUnreferenced( 60 , LINK ) : 0
// Clone a second time
l2 = list(1); l2(1) = l(1); // Cloning 'l(1)', which is 'scs_m's clone
->>>>>>> origin/6.0
// Check connections
assert_checkequal(l2(1).objs(1).model.rpar.objs(1).graphics.pin, [0 ; 0]);
Xcos trace: objectReferenced( 51 , BLOCK ) : 1
Xcos trace: propertyUpdated( 81 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
Xcos info: objectDeleted( 82 , PORT )
Xcos info: objectDeleted( 81 , BLOCK )
-<<<<<<< HEAD
-Xcos info: objectDeleted( 72 , DIAGRAM )
-scs_m = scicos_diagram();
-Xcos info: objectCreated( 90 , DIAGRAM )
-Xcos trace: objectReferenced( 90 , DIAGRAM ) : 1
-Xcos trace: propertyUpdated( 90 , DIAGRAM , TITLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 90 , DIAGRAM , PATH ) : NO_CHANGES
-Xcos trace: propertyUpdated( 90 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace: propertyUpdated( 90 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace: propertyUpdated( 90 , DIAGRAM , CONTEXT ) : NO_CHANGES
-Xcos trace: objectUnreferenced( 90 , DIAGRAM ) : 0
-Xcos trace: propertyUpdated( 90 , DIAGRAM , CHILDREN ) : NO_CHANGES
-Xcos debug: propertyUpdated( 90 , DIAGRAM , VERSION_NUMBER ) : SUCCESS
-scs_m.objs(1) = sb;
-Xcos info: objectCreated( 91 , BLOCK )
-Xcos info: objectCloned( 83 , 91 , BLOCK )
-Xcos trace: propertyUpdated( 91 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug: propertyUpdated( 91 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug: propertyUpdated( 91 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos debug: propertyUpdated( 91 , BLOCK , SIM_BLOCKTYPE ) : SUCCESS
-Xcos trace: propertyUpdated( 91 , BLOCK , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 91 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos trace: propertyUpdated( 91 , BLOCK , EXPRS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info: objectCreated( 92 , PORT )
-Xcos info: objectCloned( 84 , 92 , PORT )
-Xcos trace: propertyUpdated( 92 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 92 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 92 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 92 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 92 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 92 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 92 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 92 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 91 , BLOCK , INPUTS ) : SUCCESS
-Xcos info: objectCreated( 93 , PORT )
-Xcos info: objectCloned( 85 , 93 , PORT )
-Xcos trace: propertyUpdated( 93 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 93 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 93 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 93 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 93 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 93 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 93 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 93 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 91 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace: propertyUpdated( 91 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 91 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos info: objectCreated( 94 , BLOCK )
-Xcos info: objectCloned( 86 , 94 , BLOCK )
-Xcos trace: propertyUpdated( 94 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug: propertyUpdated( 94 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug: propertyUpdated( 94 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace: propertyUpdated( 94 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 94 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug: propertyUpdated( 94 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace: propertyUpdated( 94 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , NMODE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 94 , BLOCK , IPAR ) : SUCCESS
-Xcos trace: propertyUpdated( 94 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , INPUTS ) : NO_CHANGES
-Xcos info: objectCreated( 95 , PORT )
-Xcos info: objectCloned( 87 , 95 , PORT )
-Xcos trace: propertyUpdated( 95 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 95 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 95 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 95 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 95 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 95 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 95 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 95 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 94 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace: propertyUpdated( 94 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 94 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 94 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos info: objectCreated( 96 , BLOCK )
-Xcos info: objectCloned( 88 , 96 , BLOCK )
-Xcos trace: propertyUpdated( 96 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug: propertyUpdated( 96 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug: propertyUpdated( 96 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace: propertyUpdated( 96 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 96 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug: propertyUpdated( 96 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace: propertyUpdated( 96 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , NMODE ) : NO_CHANGES
-Xcos debug: propertyUpdated( 96 , BLOCK , IPAR ) : SUCCESS
-Xcos trace: propertyUpdated( 96 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info: objectCreated( 97 , PORT )
-Xcos info: objectCloned( 89 , 97 , PORT )
-Xcos trace: propertyUpdated( 97 , PORT , FIRING ) : NO_CHANGES
-Xcos debug: propertyUpdated( 97 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace: propertyUpdated( 97 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace: propertyUpdated( 97 , PORT , UID ) : NO_CHANGES
-Xcos trace: propertyUpdated( 97 , PORT , STYLE ) : NO_CHANGES
-Xcos trace: propertyUpdated( 97 , PORT , LABEL ) : NO_CHANGES
-Xcos debug: propertyUpdated( 97 , PORT , DATATYPE ) : SUCCESS
-Xcos debug: propertyUpdated( 97 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 97 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 96 , BLOCK , INPUTS ) : SUCCESS
-Xcos trace: propertyUpdated( 96 , BLOCK , OUTPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 96 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace: propertyUpdated( 97 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 96 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos trace: propertyUpdated( 97 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace: propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug: propertyUpdated( 91 , BLOCK , CHILDREN ) : SUCCESS
-Xcos trace: objectReferenced( 91 , BLOCK ) : 1
-Xcos trace: objectReferenced( 91 , BLOCK ) : 2
-Xcos debug: propertyUpdated( 91 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
-Xcos trace: propertyUpdated( 91 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 1
-Xcos debug: propertyUpdated( 90 , DIAGRAM , CHILDREN ) : SUCCESS
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 0
-l = list(1); l(1) = scs_m; // Cloning 'scs_m'
-l(1).objs(1).model.rpar
-Xcos trace: objectReferenced( 91 , BLOCK ) : 1
-Xcos trace: objectReferenced( 91 , BLOCK ) : 2
-Xcos trace: objectReferenced( 91 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 1
- ans =
-Xcos trace: objectReferenced( 91 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace: objectReferenced( 94 , BLOCK ) : 1
-Xcos trace: objectReferenced( 96 , BLOCK ) : 1
-1 IN_f
-2 OUT_f
-Xcos trace: objectUnreferenced( 94 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 96 , BLOCK ) : 0
-l(1).objs(1).model.rpar.objs
-Xcos trace: objectReferenced( 91 , BLOCK ) : 2
-Xcos trace: objectReferenced( 91 , BLOCK ) : 3
-Xcos trace: objectReferenced( 91 , BLOCK ) : 4
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 2
-Xcos trace: objectReferenced( 94 , BLOCK ) : 1
-Xcos trace: objectReferenced( 96 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 0
- ans =
- ans(1)
-GUI : IN_f
-Graphics:
-Xcos trace: objectReferenced( 94 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 94 , BLOCK ) : 1
- orig = [40,40]
- sz = [20,20]
- exprs = "1"
- pin = []
- pout = 0
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = []
- out_implicit = "E"
- in_style = ""
- out_style = ""
- in_label = ""
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 94 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 94 , BLOCK ) : 1
- input type: 0
- in = []
- in2 = []
- intyp = 1
- out = -1
- out2 = -2
- outtyp = -1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = []
- ipar = 1
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%f,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
- ans(2)
-GUI : OUT_f
-Graphics:
-Xcos trace: objectReferenced( 96 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 96 , BLOCK ) : 1
- orig = [240,40]
- sz = [20,20]
- exprs = "1"
- pin = 0
- pout = []
- pein = []
- peout = []
- gr_i = []
- id = ""
- in_implicit = "E"
- out_implicit = []
- in_style = ""
- out_style = ""
- in_label = ""
- out_label = ""
- style = ""
-Model :
-Xcos trace: objectReferenced( 96 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 96 , BLOCK ) : 1
- output type: 0
- in = -1
- in2 = -2
- intyp = -1
- out = []
- out2 = []
- outtyp = 1
- evtin = []
- evtout = []
- state = []
- dstate = []
- odstate = list()
- rpar = []
- ipar = 1
- opar = list()
- blocktype = "c"
- firing = []
- dep_ut = [%f,%f]
- label = ""
- nzcross = 0
- nmode = 0
- equations = list()
- uid = ""
-assert_checkequal(size(l(1).objs(1).model.rpar.objs), 2); // Blocks "IN_f" and "OUT_f"
-Xcos trace: objectReferenced( 91 , BLOCK ) : 1
-Xcos trace: objectReferenced( 91 , BLOCK ) : 2
-Xcos trace: objectReferenced( 91 , BLOCK ) : 3
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 1
-Xcos trace: objectReferenced( 94 , BLOCK ) : 2
-Xcos trace: objectReferenced( 96 , BLOCK ) : 2
-Xcos trace: objectUnreferenced( 91 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 94 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 96 , BLOCK ) : 1
-Xcos trace: objectUnreferenced( 94 , BLOCK ) : 0
-Xcos trace: objectUnreferenced( 96 , BLOCK ) : 0
-// Check that all the model items are freed
-clear
-=======
Xcos debug: propertyUpdated( 78 , BLOCK , CHILDREN ) : SUCCESS
->>>>>>> origin/6.0
Xcos debug: propertyUpdated( 83 , BLOCK , INPUTS ) : SUCCESS
Xcos trace: propertyUpdated( 83 , BLOCK , OUTPUTS ) : NO_CHANGES
Xcos trace: propertyUpdated( 83 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
state = []
dstate = []
odstate = list()
-rpar = mlist(["diagram","props","objs","version","contrib"],tlist(["params","wpar","title","tol","tf","context","void1","options","void2","void3","doc"],[6,45,0,0,6,45],["Quat_Conj";""],[0.000001,0.000001,1.000D-10,100001,0,1,0],1,[],[],tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,1,1],[4,1,2,1]),[0.8,0.8,0.8]),[],[],list()),list(mlist(["Link","xx","yy","id","thick","ct","from","to"],[],[],"",[0,0],[1,1],[2,1,0],[3,1,1])),"",list())
+rpar = mlist(["diagram","props","objs","version","contrib"],tlist(["params","wpar","title","tol","tf","context","void1","options","void2","void3","doc"],[600,450,0,0,600,450],["Quat_Conj";""],[0.000001,0.000001,1.000D-10,100001,0,1,0],30,[],[],tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8]),[],[],list()),list(mlist(["Link","xx","yy","id","thick","ct","from","to"],[],[],"",[0,0],[1,1],[2,1,0],[3,1,1])),"",list())
ipar = []
opar = list()
blocktype = "h"
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
-
// <-- CLI SHELL MODE -->
// <-- Non-regression test for bug 9161 -->
//
//
// <-- Short Description -->
// Wrong insertions in sparse when repeated index
-
A = sparse(33);
B = sparse([1 0 3]');
ind = [1 1 1];
A(ind) = B;
assert_checkequal(A, sparse(3));
-
A = sparse([33 -10]);
ind = [2 1 2];
A(ind) = B;
res = legendre(0, 0:2, [1 -1]);
expected = [1 1;0 0;0 0]
expected =
- 1. 1.
- 0. 0.
- 0. 0.
+ 1. 1.
+ 0. 0.
+ 0. 0.
assert_checkequal(res, expected);
if testresult() then bugmes();quit;end
alpha=[];
x=[-7.29999999999999982
- 8.40000000000000036];
+8.40000000000000036];
yref=[];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
x=[3
4
5];
-yref=[-0.260051954901933502+0.376850010012790504*%i
--0.397149809863847292-0.0169407393250650198*%i
+yref=[-0.260051954901933502+0.376850010012790504*%i
+-0.397149809863847292-0.0169407393250650198*%i
-0.177596771314338348-0.308517625249033867*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.260051954901933502-0.376850010012790504*%i
--0.397149809863847292+0.0169407393250650198*%i
+yref=[-0.260051954901933502-0.376850010012790504*%i
+-0.397149809863847292+0.0169407393250650198*%i
-0.177596771314338348+0.308517625249033867*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.31063056052955762-0.336380148284720293*%i
-0.272415233538270574-0.289490760923486856*%i
+yref=[ 0.31063056052955762-0.336380148284720293*%i
+0.272415233538270574-0.289490760923486856*%i
0.245467551730485706-0.257816638947182653*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0];
x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[-0.288216947635014376+0.0627738863740376352*%i
+8.40000000000000036];
+yref=[-0.288216947635014376+0.0627738863740376352*%i
0.0691572616569851861+0.266221867363905018*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.864650842905043127-0.0627738863740379682*%i
+yref=[ 0.864650842905043127-0.0627738863740379682*%i
0.0691572616569851861-0.266221867363905018*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.205009668070646411-0.212086316654584245*%i
- 0.191600335830164975-0.197347715498268128*%i ];
+yref=[-0.205009668070646411-0.212086316654584245*%i
+0.191600335830164975-0.197347715498268128*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0];
x=[3
4
5];
-yref=[ 0.339058958525936538+0.324674424791800087*%i
--0.0660433280235491887+0.397925710557099965*%i
- -0.327579137591465286+0.147863143391226859*%i ];
+yref=[ 0.339058958525936538+0.324674424791800087*%i
+-0.0660433280235491887+0.397925710557099965*%i
+-0.327579137591465286+0.147863143391226859*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.339058958525936538-0.324674424791800087*%i
--0.0660433280235491887-0.397925710557099965*%i
- -0.327579137591465286-0.147863143391226859*%i ];
+yref=[ 0.339058958525936538-0.324674424791800087*%i
+-0.0660433280235491887-0.397925710557099965*%i
+-0.327579137591465286-0.147863143391226859*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.289847767402387269-0.369273247341898037*%i
--0.257982370633597746-0.310083357729930509*%i
+yref=[-0.289847767402387269-0.369273247341898037*%i
+-0.257982370633597746-0.310083357729930509*%i
-0.234711371607197739-0.272180404505854456*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[1];
x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[0.0825704304932578653+0.284594371868072016*%i
- 0.270786268276835496-0.0534845083974161278*%i ];
+8.40000000000000036];
+yref=[0.0825704304932578653+0.284594371868072016*%i
+0.270786268276835496-0.0534845083974161278*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.247711291479773887-0.284594371868071905*%i
- 0.270786268276835496+0.0534845083974161278*%i ];
+yref=[-0.247711291479773887-0.284594371868071905*%i
+0.270786268276835496+0.0534845083974161278*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.198591028778410006+0.219939618485522376*%i
+yref=[-0.198591028778410006+0.219939618485522376*%i
-0.186324039282828008-0.203639750812897008*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
x=[3
4
5];
-yref=[ 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.16040039348492377*%i 0.309062722255251721-0.538541616105031817*%i
--0.0660433280235491887+0.397925710557099965*%i 0.36412814585207276+0.215903594603615023*%i 0.430171473875621879-0.182022115953484942*%i
- -0.327579137591465286+0.147863143391226859*%i 0.0465651162777521929+0.367662882605524655*%i 0.364831230613667068+0.146267162693192898*%i ];
+yref=[ 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.16040039348492377*%i 0.309062722255251721-0.538541616105031817*%i
+-0.0660433280235491887+0.397925710557099965*%i 0.36412814585207276+0.215903594603615023*%i 0.430171473875621879-0.182022115953484942*%i
+-0.327579137591465286+0.147863143391226859*%i 0.0465651162777521929+0.367662882605524655*%i 0.364831230613667068+0.146267162693192898*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.16040039348492377*%i 0.309062722255251721+0.538541616105031817*%i
--0.0660433280235491887-0.397925710557099965*%i 0.36412814585207276-0.215903594603615023*%i 0.430171473875621879+0.182022115953484942*%i
- -0.327579137591465286-0.147863143391226859*%i 0.0465651162777521929-0.367662882605524655*%i 0.364831230613667068-0.146267162693192898*%i ];
+yref=[ 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.16040039348492377*%i 0.309062722255251721+0.538541616105031817*%i
+-0.0660433280235491887-0.397925710557099965*%i 0.36412814585207276-0.215903594603615023*%i 0.430171473875621879+0.182022115953484942*%i
+-0.327579137591465286-0.147863143391226859*%i 0.0465651162777521929-0.367662882605524655*%i 0.364831230613667068-0.146267162693192898*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.0901979833901215833*%i -0.381968773216922741+0.489537225195393555*%i
--0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521546*%i -0.143424048221471756+0.444532439788452083*%i
+yref=[-0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.0901979833901215833*%i -0.381968773216922741+0.489537225195393555*%i
+-0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521546*%i -0.143424048221471756+0.444532439788452083*%i
-0.234711371607197739-0.272180404505854456*%i -0.339352100373364829+0.148944477144840853*%i -0.0367703086914941552+0.391335986221727217*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[1 2 3];
x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[0.0825704304932578653+0.284594371868072016*%i 0.265594911883436868-0.140744947159810785*%i -0.228101889059524665-0.207473852876394915*%i
- 0.270786268276835496-0.0534845083974161278*%i -0.00468434063869100758-0.278956274125194581*%i -0.273016906676212145-0.0793518126145812824*%i ];
+8.40000000000000036];
+yref=[0.0825704304932578653+0.284594371868072016*%i 0.265594911883436868-0.140744947159810785*%i -0.228101889059524665-0.207473852876394915*%i
+0.270786268276835496-0.0534845083974161278*%i -0.00468434063869100758-0.278956274125194581*%i -0.273016906676212145-0.0793518126145812824*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.247711291479773887-0.284594371868071905*%i -0.796784735650310605+0.140744947159811146*%i 0.684305667178574106+0.207473852876394582*%i
- 0.270786268276835496+0.0534845083974161278*%i -0.00468434063869100758+0.278956274125194581*%i -0.273016906676212145+0.0793518126145812824*%i ];
+yref=[-0.247711291479773887-0.284594371868071905*%i -0.796784735650310605+0.140744947159811146*%i 0.684305667178574106+0.207473852876394582*%i
+0.270786268276835496+0.0534845083974161278*%i -0.00468434063869100758+0.278956274125194581*%i -0.273016906676212145+0.0793518126145812824*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.15182888693252336*%i 0.056444086802614292-0.303133529133480351*%i
+yref=[-0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.15182888693252336*%i 0.056444086802614292-0.303133529133480351*%i
-0.186324039282828008-0.203639750812897008*%i -0.235963202326076427+0.148862060542816449*%i 0.0739606096037440097+0.274526446309476313*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
x=[3
4
5];
-yref=[ 0.412044162415464765+0.236105148830688782*%i 0.463422297657139992-0.249464037123650451*%i 0.267641874148340619-0.601985736612042799*%i
-0.0388438196375475442+0.404200660729673644*%i 0.406986020132752646+0.137707238974328822*%i 0.408840802508480261-0.25272269785791196*%i
+yref=[ 0.412044162415464765+0.236105148830688782*%i 0.463422297657139992-0.249464037123650451*%i 0.267641874148340619-0.601985736612042799*%i
+0.0388438196375475442+0.404200660729673644*%i 0.406986020132752646+0.137707238974328822*%i 0.408840802508480261-0.25272269785791196*%i
-0.277293686932808758+0.231079618553641175*%i 0.130302183508562208+0.350580558421466015*%i 0.391959608420343553+0.0774312728572489062*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.412044162415464765-0.236105148830688782*%i 0.463422297657139992+0.249464037123650451*%i 0.267641874148340619+0.601985736612042799*%i
-0.0388438196375475442-0.404200660729673644*%i 0.406986020132752646-0.137707238974328822*%i 0.408840802508480261+0.25272269785791196*%i
+yref=[ 0.412044162415464765-0.236105148830688782*%i 0.463422297657139992+0.249464037123650451*%i 0.267641874148340619+0.601985736612042799*%i
+0.0388438196375475442-0.404200660729673644*%i 0.406986020132752646-0.137707238974328822*%i 0.408840802508480261+0.25272269785791196*%i
-0.277293686932808758-0.231079618553641175*%i 0.130302183508562208-0.350580558421466015*%i 0.391959608420343553-0.0774312728572489062*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.374601468553362349-0.291890001272204935*%i -0.493988964367443439+0.181569366543571309*%i -0.349915679185554551+0.558191738869442844*%i
--0.331290083561390059-0.234806083805821214*%i -0.370240997918180659+0.217996577289598981*%i -0.075975014148608605+0.474602318824380143*%i
- -0.3002455888615011-0.200355097995776388*%i -0.299218405550633115+0.224396374190722392*%i 0.0369333919769440355+0.397823907283612055*%i ];
+yref=[-0.374601468553362349-0.291890001272204935*%i -0.493988964367443439+0.181569366543571309*%i -0.349915679185554551+0.558191738869442844*%i
+-0.331290083561390059-0.234806083805821214*%i -0.370240997918180659+0.217996577289598981*%i -0.075975014148608605+0.474602318824380143*%i
+-0.3002455888615011-0.200355097995776388*%i -0.299218405550633115+0.224396374190722392*%i 0.0369333919769440355+0.397823907283612055*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[1.19999999999999996 2.20000000000000018 3.20000000000000018];
x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[0.174095089182458529+0.240546076055273117*%i 0.197117350906682559-0.228566945221770845*%i -0.29290554726319884-0.10277969811338393*%i
+8.40000000000000036];
+yref=[0.174095089182458529+0.240546076055273117*%i 0.197117350906682559-0.228566945221770845*%i -0.29290554726319884-0.10277969811338393*%i
0.244808700524773382-0.12841584805211595*%i -0.0775662890440067115-0.268892924189574611*%i -0.285438661452586284-0.0124328265233755314*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ -0.173215606457922-0.239907094453251313*%i -0.672527395792539839-0.116838670628740482*%i 0.578574584743836495+0.310330402777423575*%i
+yref=[ -0.173215606457922-0.239907094453251313*%i -0.672527395792539839-0.116838670628740482*%i 0.578574584743836495+0.310330402777423575*%i
0.244808700524773382+0.12841584805211595*%i -0.0775662890440067115+0.268892924189574611*%i -0.285438661452586284+0.0124328265233755314*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.112981679720558184+0.274602721819283191*%i 0.29808070707952472+0.0473918826746817651*%i -0.0666834039986073102-0.303167692198543615*%i
+yref=[-0.112981679720558184+0.274602721819283191*%i 0.29808070707952472+0.0473918826746817651*%i -0.0666834039986073102-0.303167692198543615*%i
-0.236870424138133084-0.142528355256746092*%i -0.189516305562587112+0.205921110625372272*%i 0.1375999783672541+0.250391794155750469*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
1
2];
x=[9.99999999999999955e-08];
-yref=[ 0.999999999999997446-10.3349026794206473*%i
-5.03898043091051198e-08-6366197.72367634624*%i
+yref=[ 0.999999999999997446-10.3349026794206473*%i
+5.03898043091051198e-08-6366197.72367634624*%i
1.27222187258540667e-15-127323954473516.594*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.999999999999997446+10.3349026794206473*%i
-5.03898043091051198e-08+6366197.72367634624*%i
+yref=[ 0.999999999999997446+10.3349026794206473*%i
+5.03898043091051198e-08+6366197.72367634624*%i
1.27222187258540667e-15+127323954473516.594*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.999998966509724529-10.3349027794205952*%i
--0.636619721977829234-6366197.72367631458*%i
- -12732395.4473516364-127323954473515.953*%i ];
+yref=[ 0.999998966509724529-10.3349027794205952*%i
+-0.636619721977829234-6366197.72367631458*%i
+-12732395.4473516364-127323954473515.953*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0
1
2];
x=[1];
-yref=[0.765197686557966383+0.0882569642156769973*%i
-0.440050585744933553-0.781212821300288907*%i
+yref=[0.765197686557966383+0.0882569642156769973*%i
+0.440050585744933553-0.781212821300288907*%i
0.114903484931900571-1.65068260681625478*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[0.765197686557966383-0.0882569642156769973*%i
-0.440050585744933553+0.781212821300288907*%i
+yref=[0.765197686557966383-0.0882569642156769973*%i
+0.440050585744933553+0.781212821300288907*%i
0.114903484931900571+1.65068260681625478*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.487703749086956295-0.596206209606004012*%i
--0.419607575907496144-0.792380888474382039*%i
- -1.32691890090194864-0.988555567342760066*%i ];
+yref=[ 0.487703749086956295-0.596206209606004012*%i
+-0.419607575907496144-0.792380888474382039*%i
+-1.32691890090194864-0.988555567342760066*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0
1
2];
x=[3 4 5];
-yref=[-0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.160400393484923798*%i
--0.397149809863847292-0.0169407393250650198*%i -0.066043328023549161+0.397925710557099965*%i 0.36412814585207276+0.215903594603614996*%i
+yref=[-0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.160400393484923798*%i
+-0.397149809863847292-0.0169407393250650198*%i -0.066043328023549161+0.397925710557099965*%i 0.36412814585207276+0.215903594603614996*%i
-0.177596771314338348-0.308517625249033867*%i -0.327579137591465286+0.147863143391226887*%i 0.0465651162777522137+0.367662882605524655*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.160400393484923798*%i
--0.397149809863847292+0.0169407393250650198*%i -0.066043328023549161-0.397925710557099965*%i 0.36412814585207276-0.215903594603614996*%i
+yref=[-0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.160400393484923798*%i
+-0.397149809863847292+0.0169407393250650198*%i -0.066043328023549161-0.397925710557099965*%i 0.36412814585207276-0.215903594603614996*%i
-0.177596771314338348+0.308517625249033867*%i -0.327579137591465286-0.147863143391226887*%i 0.0465651162777522137-0.367662882605524655*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.090197983390121611*%i
-0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521574*%i
+yref=[ 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.090197983390121611*%i
+0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521574*%i
0.245467551730485706-0.257816638947182653*%i -0.234711371607197766-0.272180404505854456*%i -0.339352100373364829+0.148944477144840881*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
1
2];
x=[-7.29999999999999982 8.40000000000000036];
-yref=[-0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578792+0.284594371868072016*%i 0.265594911883436868-0.140744947159810813*%i
+yref=[-0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578792+0.284594371868072016*%i 0.265594911883436868-0.140744947159810813*%i
0.0691572616569851861+0.266221867363905018*%i 0.270786268276835496-0.0534845083974161417*%i -0.00468434063869102493-0.278956274125194581*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.864650842905043127-0.0627738863740379682*%i -0.24771129147977386-0.284594371868071905*%i -0.796784735650310605+0.14074494715981109*%i
+yref=[ 0.864650842905043127-0.0627738863740379682*%i -0.24771129147977386-0.284594371868071905*%i -0.796784735650310605+0.14074494715981109*%i
0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161417*%i -0.00468434063869102493+0.278956274125194581*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.151828886932523333*%i
- 0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i -0.235963202326076427+0.148862060542816477*%i ];
+yref=[-0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.151828886932523333*%i
+0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i -0.235963202326076427+0.148862060542816477*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0
x=[3
4
5];
-yref=[ -0.260051954901933502+0.376850010012790504*%i
--0.0660433280235491887+0.397925710557099965*%i
- 0.0465651162777522137+0.367662882605524655*%i ];
+yref=[ -0.260051954901933502+0.376850010012790504*%i
+-0.0660433280235491887+0.397925710557099965*%i
+0.0465651162777522137+0.367662882605524655*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ -0.260051954901933502-0.376850010012790504*%i
--0.0660433280235491887-0.397925710557099965*%i
- 0.0465651162777522137-0.367662882605524655*%i ];
+yref=[ -0.260051954901933502-0.376850010012790504*%i
+-0.0660433280235491887-0.397925710557099965*%i
+0.0465651162777522137-0.367662882605524655*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.31063056052955762-0.336380148284720293*%i
--0.257982370633597746-0.310083357729930509*%i
+yref=[ 0.31063056052955762-0.336380148284720293*%i
+-0.257982370633597746-0.310083357729930509*%i
-0.339352100373364829+0.148944477144840881*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
1
2];
x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[-0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057294+0.279108983487138917*%i 0.260718835711755859-0.13767078042426989*%i
+yref=[-0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057294+0.279108983487138917*%i 0.260718835711755859-0.13767078042426989*%i
0.0680949286455164587+0.260860299794333839*%i 0.265388401248268402-0.0527501414166842847*%i -0.00493747580632844518-0.273570232162209104*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.859124750279884219-0.0578395374887053712*%i -0.245747300872034974-0.268032077903665344*%i -0.791998414023906472+0.131456891260273934*%i
+yref=[ 0.859124750279884219-0.0578395374887053712*%i -0.245747300872034974-0.268032077903665344*%i -0.791998414023906472+0.131456891260273934*%i
0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.05422698542193536*%i -0.00442002466557511048+0.284446960322645992*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i 0.259374551315559143+0.152315389993061961*%i
- 0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i -0.235899979077726946+0.149236560997593054*%i ];
+yref=[-0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i 0.259374551315559143+0.152315389993061961*%i
+0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i -0.235899979077726946+0.149236560997593054*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[];
yref=[];
y=besselh(alpha,x);
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[0];
yref=[%nan
%nan
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[9.99999999999999955e-08];
-yref=[ 0.722522753107867954-10.5435018262277929*%i
-3.59141267836093903e-08-8811068.85048608482*%i
- 0.0009765625-179745804549905.625*%i ];
+yref=[ 0.722522753107867954-10.5435018262277929*%i
+3.59141267836093903e-08-8811068.85048608482*%i
+0.0009765625-179745804549905.625*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.722522753107867954+10.5435018262277929*%i
-3.59141267836093903e-08+8811068.85048608482*%i
- 0.0009765625+179745804549905.625*%i ];
+yref=[ 0.722522753107867954+10.5435018262277929*%i
+3.59141267836093903e-08+8811068.85048608482*%i
+0.0009765625+179745804549905.625*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.722521698757681685-10.5435018984800166*%i
--0.881106849177740514-8811068.85048604198*%i
- -17974580.4541015625-179745804549904.75*%i ];
+yref=[ 0.722521698757681685-10.5435018984800166*%i
+-0.881106849177740514-8811068.85048604198*%i
+-17974580.4541015625-179745804549904.75*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[1];
-yref=[0.767624213200681527+0.0643040307807657419*%i
-0.430847058235354241-0.793245652497184595*%i
+yref=[0.767624213200681527+0.0643040307807657419*%i
+0.430847058235354241-0.793245652497184595*%i
0.111303785599441013-1.68252516187502232*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[0.767624213200681527-0.0643040307807657419*%i
-0.430847058235354241+0.793245652497184595*%i
+yref=[0.767624213200681527-0.0643040307807657419*%i
+0.430847058235354241+0.793245652497184595*%i
0.111303785599441013+1.68252516187502232*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.468859108540752967-0.61118988653690054*%i
--0.434705541360321801-0.791137753558994627*%i
- -1.3556584129158098-1.00273113072344833*%i ];
+yref=[ 0.468859108540752967-0.61118988653690054*%i
+-0.434705541360321801-0.791137753558994627*%i
+-1.3556584129158098-1.00273113072344833*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[3 4 5];
-yref=[-0.248113342531625036+0.384820425921874987*%i 0.34741032197772298+0.316452158174697407*%i 0.484352361476476645-0.169632958363080733*%i
--0.397488017750936229-0.00447693217669133808*%i -0.0555197528009769292+0.399776541248366868*%i 0.369172943822437927+0.208362968213358424*%i
+yref=[-0.248113342531625036+0.384820425921874987*%i 0.34741032197772298+0.316452158174697407*%i 0.484352361476476645-0.169632958363080733*%i
+-0.397488017750936229-0.00447693217669133808*%i -0.0555197528009769292+0.399776541248366868*%i 0.369172943822437927+0.208362968213358424*%i
-0.187188738237360874-0.302795423995985136*%i -0.323527150348925874+0.15685459545204769*%i 0.055189660894999118+0.366792098940420641*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.248113342531625036-0.384820425921874987*%i 0.34741032197772298-0.316452158174697407*%i 0.484352361476476645+0.169632958363080733*%i
--0.397488017750936229+0.00447693217669133808*%i -0.0555197528009769292-0.399776541248366868*%i 0.369172943822437927-0.208362968213358424*%i
+yref=[-0.248113342531625036-0.384820425921874987*%i 0.34741032197772298-0.316452158174697407*%i 0.484352361476476645+0.169632958363080733*%i
+-0.397488017750936229+0.00447693217669133808*%i -0.0555197528009769292-0.399776541248366868*%i 0.369172943822437927-0.208362968213358424*%i
-0.187188738237360874+0.302795423995985136*%i -0.323527150348925874-0.15685459545204769*%i 0.055189660894999118-0.366792098940420641*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.299936209020461475-0.345955577303420303*%i -0.299275880887315104-0.36231180956354514*%i -0.503443808023835704+0.0995835468002096852*%i
-0.263203660615266066-0.297893605530577366*%i -0.266261751732053742-0.303328873416572331*%i -0.398997153998613463+0.143195880088125477*%i
+yref=[0.299936209020461475-0.345955577303420303*%i -0.299275880887315104-0.36231180956354514*%i -0.503443808023835704+0.0995835468002096852*%i
+0.263203660615266066-0.297893605530577366*%i -0.266261751732053742-0.303328873416572331*%i -0.398997153998613463+0.143195880088125477*%i
0.237259515744153937-0.265391436758334764*%i -0.242184097696100997-0.265744320636297771*%i -0.336070627604163175+0.156967753938725224*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[-7.29999999999999982 8.40000000000000036];
-yref=[ -0.2861015270808977+0.07180391829547704*%i 0.0922605432719850876+0.281660571010428407*%i 0.260319128687082679-0.150514543618939234*%i
+yref=[ -0.2861015270808977+0.07180391829547704*%i 0.0922605432719850876+0.281660571010428407*%i 0.260319128687082679-0.150514543618939234*%i
0.0774792372615422525+0.26392041753001122*%i 0.269158266698861615-0.0613287659781691918*%i -0.0121122296346758626-0.278814546410423747*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.865048002509834491-0.0353796934361930923*%i -0.240752697743061989-0.291002905498753572*%i -0.797769166428211829+0.116701053328995441*%i
+yref=[ 0.865048002509834491-0.0353796934361930923*%i -0.240752697743061989-0.291002905498753572*%i -0.797769166428211829+0.116701053328995441*%i
0.0774792372615422525-0.26392041753001122*%i 0.269158266698861615+0.0613287659781691918*%i -0.0121122296346758626+0.278814546410423747*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.211576262708756763-0.205536788772230028*%i -0.190998266617662588+0.226637038578893113*%i 0.26495112077725419+0.14220260264881332*%i
- 0.185312011803817039-0.203264549976300057*%i -0.192182330497776832-0.198175028480340659*%i -0.231984863496134286+0.155136328773931631*%i ];
+yref=[-0.211576262708756763-0.205536788772230028*%i -0.190998266617662588+0.226637038578893113*%i 0.26495112077725419+0.14220260264881332*%i
+0.185312011803817039-0.203264549976300057*%i -0.192182330497776832-0.198175028480340659*%i -0.231984863496134286+0.155136328773931631*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[3
4
5];
-yref=[ -0.248113342531625036+0.384820425921874987*%i
--0.0555197528009769431+0.399776541248366868*%i
- 0.0551896608949991249+0.366792098940420641*%i ];
+yref=[ -0.248113342531625036+0.384820425921874987*%i
+-0.0555197528009769431+0.399776541248366868*%i
+0.0551896608949991249+0.366792098940420641*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ -0.248113342531625036-0.384820425921874987*%i
--0.0555197528009769431-0.399776541248366868*%i
- 0.0551896608949991249-0.366792098940420641*%i ];
+yref=[ -0.248113342531625036-0.384820425921874987*%i
+-0.0555197528009769431-0.399776541248366868*%i
+0.0551896608949991249-0.366792098940420641*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.299936209020461475-0.345955577303420303*%i
--0.266261751732053742-0.303328873416572331*%i
+yref=[ 0.299936209020461475-0.345955577303420303*%i
+-0.266261751732053742-0.303328873416572331*%i
-0.336070627604163175+0.156967753938725224*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[-0.280518747912432531+0.0699962983078473294*%i 0.0900627485375180697+0.276248225205322884*%i 0.255562216836810185-0.147262806532555718*%i
+yref=[-0.280518747912432531+0.0699962983078473294*%i 0.0900627485375180697+0.276248225205322884*%i 0.255562216836810185-0.147262806532555718*%i
0.0762491476344531877+0.258594841647395546*%i 0.263784667726966349-0.0604384587417038308*%i -0.0122224672719179299-0.273425197533148701*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.859392120978805685-0.0306266274001191323*%i -0.239301736230959433-0.274428712544276476*%i -0.792729368128768042+0.107498932694273241*%i
+yref=[ 0.859392120978805685-0.0306266274001191323*%i -0.239301736230959433-0.274428712544276476*%i -0.792729368128768042+0.107498932694273241*%i
0.0787275103035753876-0.269354514879212581*%i 0.274640078092432294+0.0622303207195611732*%i -0.0119936004153480373+0.284308702506610222*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.211285760234088904-0.205815354225449693*%i -0.191340413986076152+0.226403734315470978*%i 0.264929169130263764+0.142693333701389785*%i
- 0.185064066088280632-0.203476918530006629*%i -0.192441625422114404-0.197965053817515446*%i -0.231914093404297944+0.155511238858410061*%i ];
+yref=[-0.211285760234088904-0.205815354225449693*%i -0.191340413986076152+0.226403734315470978*%i 0.264929169130263764+0.142693333701389785*%i
+0.185064066088280632-0.203476918530006629*%i -0.192441625422114404-0.197965053817515446*%i -0.231914093404297944+0.155511238858410061*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-1];
x=[3
4
5];
-yref=[-0.339058958525936538-0.324674424791800087*%i
-0.0660433280235491887-0.397925710557099965*%i
- 0.327579137591465286-0.147863143391226859*%i ];
+yref=[-0.339058958525936538-0.324674424791800087*%i
+0.0660433280235491887-0.397925710557099965*%i
+0.327579137591465286-0.147863143391226859*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.339058958525936538+0.324674424791800087*%i
-0.0660433280235491887+0.397925710557099965*%i
- 0.327579137591465286+0.147863143391226859*%i ];
+yref=[-0.339058958525936538+0.324674424791800087*%i
+0.0660433280235491887+0.397925710557099965*%i
+0.327579137591465286+0.147863143391226859*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.289847767402387269+0.369273247341898037*%i
-0.257982370633597746+0.310083357729930509*%i
+yref=[0.289847767402387269+0.369273247341898037*%i
+0.257982370633597746+0.310083357729930509*%i
0.234711371607197739+0.272180404505854456*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-1];
x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[-0.0825704304932578653-0.284594371868072016*%i
- -0.270786268276835496+0.0534845083974161278*%i ];
+8.40000000000000036];
+yref=[-0.0825704304932578653-0.284594371868072016*%i
+-0.270786268276835496+0.0534845083974161278*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.247711291479773887+0.284594371868071905*%i
+yref=[ 0.247711291479773887+0.284594371868071905*%i
-0.270786268276835496-0.0534845083974161278*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.198591028778410006-0.219939618485522376*%i
+yref=[0.198591028778410006-0.219939618485522376*%i
0.186324039282828008+0.203639750812897008*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1
-1.5];
x=[9.99999999999999955e-08];
-yref=[-5.03898043091051198e-08+6366197.72367634624*%i
- -25231325220.2017288-1.0872797214348254e-06*%i ];
+yref=[-5.03898043091051198e-08+6366197.72367634624*%i
+-25231325220.2017288-1.0872797214348254e-06*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-5.03898043091051198e-08-6366197.72367634624*%i
- -25231325220.2017288+1.0872797214348254e-06*%i ];
+yref=[-5.03898043091051198e-08-6366197.72367634624*%i
+-25231325220.2017288+1.0872797214348254e-06*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.636619721977829234+6366197.72367631458*%i
+yref=[0.636619721977829234+6366197.72367631458*%i
-25231325220.2016029+2523.1325234030769*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1
-1.5];
x=[1];
-yref=[-0.440050585744933553+0.781212821300288907*%i
- -1.10249557516017949-0.240297839123426921*%i ];
+yref=[-0.440050585744933553+0.781212821300288907*%i
+-1.10249557516017949-0.240297839123426921*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.440050585744933553-0.781212821300288907*%i
- -1.10249557516017949+0.240297839123426921*%i ];
+yref=[-0.440050585744933553-0.781212821300288907*%i
+-1.10249557516017949+0.240297839123426921*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.419607575907496144+0.792380888474382039*%i
+yref=[ 0.419607575907496144+0.792380888474382039*%i
-0.797884560802865517+0.797884560802865628*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1
-1.5];
x=[3 4 5];
-yref=[-0.339058958525936538-0.324674424791800087*%i 0.0870080907208351517-0.477718215087091835*%i
-0.0660433280235491887-0.397925710557099965*%i 0.367112032460934101-0.185285948354268981*%i
- 0.327579137591465286-0.147863143391226859*%i 0.3219244429611402+0.169651306144740777*%i ];
+yref=[-0.339058958525936538-0.324674424791800087*%i 0.0870080907208351517-0.477718215087091835*%i
+0.0660433280235491887-0.397925710557099965*%i 0.367112032460934101-0.185285948354268981*%i
+0.327579137591465286-0.147863143391226859*%i 0.3219244429611402+0.169651306144740777*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.339058958525936538+0.324674424791800087*%i 0.0870080907208351517+0.477718215087091835*%i
-0.0660433280235491887+0.397925710557099965*%i 0.367112032460934101+0.185285948354268981*%i
- 0.327579137591465286+0.147863143391226859*%i 0.3219244429611402-0.169651306144740777*%i ];
+yref=[-0.339058958525936538+0.324674424791800087*%i 0.0870080907208351517+0.477718215087091835*%i
+0.0660433280235491887+0.397925710557099965*%i 0.367112032460934101+0.185285948354268981*%i
+0.327579137591465286+0.147863143391226859*%i 0.3219244429611402-0.169651306144740777*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.289847767402387269+0.369273247341898037*%i -0.153552955320593432+0.460658865961780795*%i
-0.257982370633597746+0.310083357729930509*%i -0.099735570100358148+0.398942280401432703*%i
+yref=[0.289847767402387269+0.369273247341898037*%i -0.153552955320593432+0.460658865961780795*%i
+0.257982370633597746+0.310083357729930509*%i -0.099735570100358148+0.398942280401432703*%i
0.234711371607197739+0.272180404505854456*%i -0.0713649646461108761+0.356824823230554311*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1
-1.5];
x=[-7.29999999999999982 8.40000000000000036];
-yref=[-0.0825704304932578653-0.284594371868072016*%i 0.120953010973630551-0.272424375376841443*%i
- -0.270786268276835496+0.0534845083974161278*%i -0.218249100772301557-0.170966347821113224*%i ];
+yref=[-0.0825704304932578653-0.284594371868072016*%i 0.120953010973630551-0.272424375376841443*%i
+-0.270786268276835496+0.0534845083974161278*%i -0.218249100772301557-0.170966347821113224*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.247711291479773887+0.284594371868071905*%i -0.12095301097362865-0.27242437537684111*%i
+yref=[ 0.247711291479773887+0.284594371868071905*%i -0.12095301097362865-0.27242437537684111*%i
-0.270786268276835496-0.0534845083974161278*%i -0.218249100772301557+0.170966347821113224*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.198591028778410006-0.219939618485522376*%i 0.295310324905105781-0.0404534691650830225*%i
+yref=[0.198591028778410006-0.219939618485522376*%i 0.295310324905105781-0.0404534691650830225*%i
0.186324039282828008+0.203639750812897008*%i -0.0327733723655391565+0.275296327870529045*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1
-1.5];
x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[-0.0825704304932578653-0.284594371868072016*%i
- -0.218249100772301557-0.170966347821113224*%i ];
+8.40000000000000036];
+yref=[-0.0825704304932578653-0.284594371868072016*%i
+-0.218249100772301557-0.170966347821113224*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.247711291479773887+0.284594371868071905*%i
+yref=[ 0.247711291479773887+0.284594371868071905*%i
-0.218249100772301557+0.170966347821113224*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.198591028778410006-0.219939618485522376*%i
+yref=[ 0.198591028778410006-0.219939618485522376*%i
-0.0327733723655391565+0.275296327870529045*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1
-1.5];
x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[-0.0805588566675057155-0.279108983487138917*%i 0.118980970251344659-0.266959004819083301*%i
- -0.265388401248268402+0.0527501414166842708*%i -0.214192031331076199-0.167365441205606091*%i ];
+yref=[-0.0805588566675057155-0.279108983487138917*%i 0.118980970251344659-0.266959004819083301*%i
+-0.265388401248268402+0.0527501414166842708*%i -0.214192031331076199-0.167365441205606091*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.245747300872035002+0.268032077903665344*%i -0.122956267664942304-0.277999563638954672*%i
+yref=[ 0.245747300872035002+0.268032077903665344*%i -0.122956267664942304-0.277999563638954672*%i
-0.276292676347178967-0.0542269854219353462*%i -0.222382024788788296+0.174643212333444514*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.198923241476530482-0.219693383394633845*%i 0.295475738987752923-0.040048367037329724*%i
+yref=[0.198923241476530482-0.219693383394633845*%i 0.295475738987752923-0.040048367037329724*%i
0.186588090699604608+0.203436398574806665*%i -0.032445291449234602+0.275412789424954285*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-3
-2
-1
- 0
- 1];
+0
+1];
x=[];
yref=[];
y=besselh(alpha,x);
alpha=[-3
-2
-1
- 0
- 1];
+0
+1];
x=[0];
yref=[%nan
%nan
alpha=[-3
-2
-1
- 0
- 1];
+0
+1];
x=[9.99999999999999955e-08];
-yref=[ -311843.447284119495+5.09295817894065707e+21*%i
- 1.27222187258540667e-15-127323954473516.594*%i
--5.03898043091051198e-08+6366197.72367634624*%i
- 0.999999999999997446-10.3349026794206473*%i
- 5.03898043091051198e-08-6366197.72367634624*%i ];
+yref=[ -311843.447284119495+5.09295817894065707e+21*%i
+1.27222187258540667e-15-127323954473516.594*%i
+-5.03898043091051198e-08+6366197.72367634624*%i
+0.999999999999997446-10.3349026794206473*%i
+5.03898043091051198e-08-6366197.72367634624*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ -311843.447284119495-5.09295817894065707e+21*%i
- 1.27222187258540667e-15+127323954473516.594*%i
--5.03898043091051198e-08-6366197.72367634624*%i
- 0.999999999999997446+10.3349026794206473*%i
- 5.03898043091051198e-08+6366197.72367634624*%i ];
+yref=[ -311843.447284119495-5.09295817894065707e+21*%i
+1.27222187258540667e-15+127323954473516.594*%i
+-5.03898043091051198e-08-6366197.72367634624*%i
+0.999999999999997446+10.3349026794206473*%i
+5.03898043091051198e-08+6366197.72367634624*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 509295817582221.438+5.09295817894063191e+21*%i
- -12732395.4473516364-127323954473515.953*%i
- 0.636619721977829234+6366197.72367631458*%i
- 0.999998966509724529-10.3349027794205952*%i
+yref=[ 509295817582221.438+5.09295817894063191e+21*%i
+-12732395.4473516364-127323954473515.953*%i
+0.636619721977829234+6366197.72367631458*%i
+0.999998966509724529-10.3349027794205952*%i
-0.636619721977829234-6366197.72367631458*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-3
-2
-1
- 0
- 1];
+0
+1];
x=[1];
-yref=[-0.0195633539826691495+5.82151760596473089*%i
- 0.114903484931900571-1.65068260681625478*%i
- -0.440050585744933553+0.781212821300288907*%i
- 0.765197686557966383+0.0882569642156769973*%i
- 0.440050585744933553-0.781212821300288907*%i ];
+yref=[-0.0195633539826691495+5.82151760596473089*%i
+0.114903484931900571-1.65068260681625478*%i
+-0.440050585744933553+0.781212821300288907*%i
+0.765197686557966383+0.0882569642156769973*%i
+0.440050585744933553-0.781212821300288907*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.0195633539826691495-5.82151760596473089*%i
- 0.114903484931900571+1.65068260681625478*%i
- -0.440050585744933553-0.781212821300288907*%i
- 0.765197686557966383-0.0882569642156769973*%i
- 0.440050585744933553+0.781212821300288907*%i ];
+yref=[-0.0195633539826691495-5.82151760596473089*%i
+0.114903484931900571+1.65068260681625478*%i
+-0.440050585744933553-0.781212821300288907*%i
+0.765197686557966383-0.0882569642156769973*%i
+0.440050585744933553+0.781212821300288907*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 4.88806802770029858+3.16184138089665856*%i
- -1.32691890090194864-0.988555567342760066*%i
- 0.419607575907496144+0.792380888474382039*%i
- 0.487703749086956295-0.596206209606004012*%i
+yref=[ 4.88806802770029858+3.16184138089665856*%i
+-1.32691890090194864-0.988555567342760066*%i
+0.419607575907496144+0.792380888474382039*%i
+0.487703749086956295-0.596206209606004012*%i
-0.419607575907496144-0.792380888474382039*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-3
-2
-1
- 0
- 1];
+0
+1];
x=[3 4 5];
-yref=[-0.309062722255251721+0.538541616105031817*%i 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i
--0.430171473875621879+0.182022115953484942*%i 0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i
+yref=[-0.309062722255251721+0.538541616105031817*%i 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i
+-0.430171473875621879+0.182022115953484942*%i 0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i
-0.364831230613667068-0.146267162693192898*%i 0.0465651162777522137+0.367662882605524655*%i 0.327579137591465286-0.147863143391226859*%i -0.177596771314338348-0.308517625249033867*%i -0.327579137591465286+0.147863143391226859*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.309062722255251721-0.538541616105031817*%i 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i
--0.430171473875621879-0.182022115953484942*%i 0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i
+yref=[-0.309062722255251721-0.538541616105031817*%i 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i
+-0.430171473875621879-0.182022115953484942*%i 0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i
-0.364831230613667068+0.146267162693192898*%i 0.0465651162777522137-0.367662882605524655*%i 0.327579137591465286+0.147863143391226859*%i -0.177596771314338348+0.308517625249033867*%i -0.327579137591465286-0.147863143391226859*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.381968773216922741-0.489537225195393555*%i -0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i
- 0.143424048221471756-0.444532439788452083*%i -0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i
+yref=[ 0.381968773216922741-0.489537225195393555*%i -0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i
+0.143424048221471756-0.444532439788452083*%i -0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i
0.0367703086914941552-0.391335986221727217*%i -0.339352100373364829+0.148944477144840881*%i 0.234711371607197739+0.272180404505854456*%i 0.245467551730485706-0.257816638947182653*%i -0.234711371607197739-0.272180404505854456*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-3
-2
-1
- 0
- 1];
+0
+1];
x=[-7.29999999999999982 8.40000000000000036];
-yref=[0.228101889059524665+0.207473852876394915*%i 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i
+yref=[0.228101889059524665+0.207473852876394915*%i 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i
0.273016906676212145+0.0793518126145812824*%i -0.00468434063869102493-0.278956274125194581*%i -0.270786268276835496+0.0534845083974161278*%i 0.0691572616569851861+0.266221867363905018*%i 0.270786268276835496-0.0534845083974161278*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.684305667178574106-0.207473852876394582*%i -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i
- 0.273016906676212145-0.0793518126145812824*%i -0.00468434063869102493+0.278956274125194581*%i -0.270786268276835496-0.0534845083974161278*%i 0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161278*%i ];
+yref=[-0.684305667178574106-0.207473852876394582*%i -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i
+0.273016906676212145-0.0793518126145812824*%i -0.00468434063869102493+0.278956274125194581*%i -0.270786268276835496-0.0534845083974161278*%i 0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161278*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ -0.056444086802614292+0.303133529133480351*%i 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i
+yref=[ -0.056444086802614292+0.303133529133480351*%i 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i
-0.0739606096037440097-0.274526446309476313*%i -0.235963202326076427+0.148862060542816477*%i 0.186324039282828008+0.203639750812897008*%i 0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-3
-2
-1
- 0
- 1];
+0
+1];
x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[0.223624092905500088+0.204064898970382769*%i 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i
+yref=[0.223624092905500088+0.204064898970382769*%i 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i
0.268049735447983994+0.077515061198177887*%i -0.00493747580632844518-0.273570232162209104*%i -0.265388401248268402+0.0527501414166842708*%i 0.0680949286455164587+0.260860299794333839*%i 0.265388401248268402-0.0527501414166842708*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.679913121372516915-0.197190400008995986*%i -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i
- 0.278074937671342448-0.0812281915443821972*%i -0.00442002466557511048+0.284446960322645992*%i -0.276292676347178967-0.0542269854219353462*%i 0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.0542269854219353462*%i ];
+yref=[-0.679913121372516915-0.197190400008995986*%i -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i
+0.278074937671342448-0.0812281915443821972*%i -0.00442002466557511048+0.284446960322645992*%i -0.276292676347178967-0.0542269854219353462*%i 0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.0542269854219353462*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.0570299235953570793+0.303542619878177933*%i 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i
+yref=[-0.0570299235953570793+0.303542619878177933*%i 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i
-0.0744246056267901385-0.274768483538119612*%i -0.235899979077726946+0.149236560997593054*%i 0.186588090699604608+0.203436398574806665*%i 0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-2
-1
- 0
- 1];
+0
+1];
x=[];
yref=[];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
alpha=[-2
-1
- 0
- 1];
+0
+1];
x=[0];
yref=[%nan
%nan
if testresult() then bugmes();quit;end
alpha=[-2
-1
- 0
- 1];
+0
+1];
x=[9.99999999999999955e-08];
-yref=[ 1.27222187258540667e-15-127323954473516.594*%i
--5.03898043091051198e-08+6366197.72367634624*%i
- 0.999999999999997446-10.3349026794206473*%i
- 5.03898043091051198e-08-6366197.72367634624*%i ];
+yref=[ 1.27222187258540667e-15-127323954473516.594*%i
+-5.03898043091051198e-08+6366197.72367634624*%i
+0.999999999999997446-10.3349026794206473*%i
+5.03898043091051198e-08-6366197.72367634624*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 1.27222187258540667e-15+127323954473516.594*%i
--5.03898043091051198e-08-6366197.72367634624*%i
- 0.999999999999997446+10.3349026794206473*%i
- 5.03898043091051198e-08+6366197.72367634624*%i ];
+yref=[ 1.27222187258540667e-15+127323954473516.594*%i
+-5.03898043091051198e-08-6366197.72367634624*%i
+0.999999999999997446+10.3349026794206473*%i
+5.03898043091051198e-08+6366197.72367634624*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ -12732395.4473516364-127323954473515.953*%i
- 0.636619721977829234+6366197.72367631458*%i
- 0.999998966509724529-10.3349027794205952*%i
+yref=[ -12732395.4473516364-127323954473515.953*%i
+0.636619721977829234+6366197.72367631458*%i
+0.999998966509724529-10.3349027794205952*%i
-0.636619721977829234-6366197.72367631458*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-2
-1
- 0
- 1];
+0
+1];
x=[1];
-yref=[ 0.114903484931900571-1.65068260681625478*%i
--0.440050585744933553+0.781212821300288907*%i
- 0.765197686557966383+0.0882569642156769973*%i
- 0.440050585744933553-0.781212821300288907*%i ];
+yref=[ 0.114903484931900571-1.65068260681625478*%i
+-0.440050585744933553+0.781212821300288907*%i
+0.765197686557966383+0.0882569642156769973*%i
+0.440050585744933553-0.781212821300288907*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.114903484931900571+1.65068260681625478*%i
--0.440050585744933553-0.781212821300288907*%i
- 0.765197686557966383-0.0882569642156769973*%i
- 0.440050585744933553+0.781212821300288907*%i ];
+yref=[ 0.114903484931900571+1.65068260681625478*%i
+-0.440050585744933553-0.781212821300288907*%i
+0.765197686557966383-0.0882569642156769973*%i
+0.440050585744933553+0.781212821300288907*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ -1.32691890090194864-0.988555567342760066*%i
- 0.419607575907496144+0.792380888474382039*%i
- 0.487703749086956295-0.596206209606004012*%i
+yref=[ -1.32691890090194864-0.988555567342760066*%i
+0.419607575907496144+0.792380888474382039*%i
+0.487703749086956295-0.596206209606004012*%i
-0.419607575907496144-0.792380888474382039*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-2
-1
- 0
- 1];
+0
+1];
x=[3 4 5];
-yref=[ 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i
- 0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i
+yref=[ 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i
+0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i
0.0465651162777522137+0.367662882605524655*%i 0.327579137591465286-0.147863143391226859*%i -0.177596771314338348-0.308517625249033867*%i -0.327579137591465286+0.147863143391226859*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i
- 0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i
+yref=[ 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i
+0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i
0.0465651162777522137-0.367662882605524655*%i 0.327579137591465286+0.147863143391226859*%i -0.177596771314338348+0.308517625249033867*%i -0.327579137591465286-0.147863143391226859*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i
--0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i
+yref=[-0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i
+-0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i
-0.339352100373364829+0.148944477144840881*%i 0.234711371607197739+0.272180404505854456*%i 0.245467551730485706-0.257816638947182653*%i -0.234711371607197739-0.272180404505854456*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-2
-1
- 0
- 1];
+0
+1];
x=[-7.29999999999999982 8.40000000000000036];
-yref=[ 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i
+yref=[ 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i
-0.00468434063869102493-0.278956274125194581*%i -0.270786268276835496+0.0534845083974161278*%i 0.0691572616569851861+0.266221867363905018*%i 0.270786268276835496-0.0534845083974161278*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i
+yref=[ -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i
-0.00468434063869102493+0.278956274125194581*%i -0.270786268276835496-0.0534845083974161278*%i 0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161278*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i
+yref=[ 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i
-0.235963202326076427+0.148862060542816477*%i 0.186324039282828008+0.203639750812897008*%i 0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[-2
-1
- 0
- 1];
+0
+1];
x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[ 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i
+yref=[ 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i
-0.00493747580632844518-0.273570232162209104*%i -0.265388401248268402+0.0527501414166842708*%i 0.0680949286455164587+0.260860299794333839*%i 0.265388401248268402-0.0527501414166842708*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i
+yref=[ -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i
-0.00442002466557511048+0.284446960322645992*%i -0.276292676347178967-0.0542269854219353462*%i 0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.0542269854219353462*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i
+yref=[ 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i
-0.235899979077726946+0.149236560997593054*%i 0.186588090699604608+0.203436398574806665*%i 0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[];
yref=[];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
alpha=[ -1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[0];
yref=[%nan
%nan
if testresult() then bugmes();quit;end
alpha=[ -1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[9.99999999999999955e-08];
-yref=[ -716418914.617646098+520508809.337161541*%i
- 119.403152436272933-86.7425820843251927*%i
-8.52879747981205583e-06-53316.8312102425552*%i
- 0.0001220703125-746435636856.653198*%i ];
+yref=[ -716418914.617646098+520508809.337161541*%i
+119.403152436272933-86.7425820843251927*%i
+8.52879747981205583e-06-53316.8312102425552*%i
+0.0001220703125-746435636856.653198*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ -716418914.617646098-520508809.337161541*%i
- 119.403152436272933+86.7425820843251927*%i
-8.52879747981205583e-06+53316.8312102425552*%i
- 0.0001220703125+746435636856.653198*%i ];
+yref=[ -716418914.617646098-520508809.337161541*%i
+119.403152436272933+86.7425820843251927*%i
+8.52879747981205583e-06+53316.8312102425552*%i
+0.0001220703125+746435636856.653198*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ -716418862.566761613+520508880.979050338*%i
- 119.403143762014125-86.7425940246399847*%i
--0.00532315432428731583-53316.8312102422933*%i
- -74643.5635986328125-746435636856.649536*%i ];
+yref=[ -716418862.566761613+520508880.979050338*%i
+119.403143762014125-86.7425940246399847*%i
+-0.00532315432428731583-53316.8312102422933*%i
+-74643.5635986328125-746435636856.649536*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[1];
-yref=[-0.96267128684022385+0.314183689901754326*%i
-0.633870726369384796+0.454431262899762989*%i
-0.582348851018592462-0.586842447641611864*%i
+yref=[-0.96267128684022385+0.314183689901754326*%i
+0.633870726369384796+0.454431262899762989*%i
+0.582348851018592462-0.586842447641611864*%i
0.181417665056644584-1.27601068959802011*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.96267128684022385-0.314183689901754326*%i
-0.633870726369384796-0.454431262899762989*%i
-0.582348851018592462+0.586842447641611864*%i
+yref=[-0.96267128684022385-0.314183689901754326*%i
+0.633870726369384796-0.454431262899762989*%i
+0.582348851018592462+0.586842447641611864*%i
0.181417665056644584+1.27601068959802011*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.255757057120614473+0.97981412790380662*%i
- 0.7248725373994509-0.287853565155630209*%i
--0.179166465319056278-0.807101988810427939*%i
+yref=[-0.255757057120614473+0.97981412790380662*%i
+0.7248725373994509-0.287853565155630209*%i
+-0.179166465319056278-0.807101988810427939*%i
-0.975705588846130234-0.842089219178969395*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[3 4 5];
-yref=[-0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i
- 0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i
- 0.35944584577841987+0.0416545814756734967*%i -0.0150494093195696621-0.355966921924183777*%i -0.3576399166600715+0.00106144915522857208*%i -0.0850897673452503944+0.356264127687647869*%i ];
+yref=[-0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i
+0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i
+0.35944584577841987+0.0416545814756734967*%i -0.0150494093195696621-0.355966921924183777*%i -0.3576399166600715+0.00106144915522857208*%i -0.0850897673452503944+0.356264127687647869*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i
- 0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i
- 0.35944584577841987-0.0416545814756734967*%i -0.0150494093195696621+0.355966921924183777*%i -0.3576399166600715-0.00106144915522857208*%i -0.0850897673452503944-0.356264127687647869*%i ];
+yref=[-0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i
+0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i
+0.35944584577841987-0.0416545814756734967*%i -0.0150494093195696621+0.355966921924183777*%i -0.3576399166600715-0.00106144915522857208*%i -0.0850897673452503944-0.356264127687647869*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i
-0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i
+yref=[0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i
+0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i
0.0620176048412275638+0.356497176559695039*%i 0.337076374072698137-0.115405598941508536*%i -0.102466769729951307-0.342648504686714039*%i -0.365767069597084549+0.0194640176292286138*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[-7.29999999999999982 8.40000000000000036];
-yref=[0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i
+yref=[0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i
-0.262892922068786006-0.086280619148427995*%i -0.0606892109991265527+0.268366926287592067*%i 0.267227865711580748+0.0671115529850285913*%i 0.105227188617723372-0.257181667456753915*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i
+yref=[ 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i
-0.262892922068786006+0.086280619148427995*%i -0.0606892109991265527-0.268366926287592067*%i 0.267227865711580748-0.0671115529850285913*%i 0.105227188617723372+0.257181667456753915*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i
+yref=[ 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i
0.0627819887644752439+0.269472550738063421*%i 0.260861300871524204-0.0874949665087225992*%i -0.081414938826726943-0.263222910273154698*%i -0.274430457342645373+0.0436244814631968347*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i
+yref=[0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i
-0.257841240101032931-0.0842758673723411206*%i -0.0591735817167325096+0.26311716547420122*%i 0.262023152985124297+0.0654718271887456127*%i 0.102869840386841327-0.252309232987196319*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i
+yref=[ 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i
-0.268042418096517854+0.0883312018516905356*%i -0.0622417085009255161-0.273720247940547168*%i 0.272534780013686639-0.0687904516700227342*%i 0.107636616697512302+0.262147089547452361*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i
+yref=[ 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i
0.0631218629428649258+0.269449807661711782*%i 0.26075102821782209-0.0878026901637817547*%i -0.0817318984576275442-0.263133877327358878*%i -0.274477351685756932+0.0439797256650979601*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[];
yref=[];
y=besselh(alpha,x);
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[0];
yref=[%nan
%nan
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[9.99999999999999955e-08];
-yref=[ 18626891780058596-13533229042766080*%i
- -716418914.617646098+520508809.337161541*%i
- 119.403152436272933-86.7425820843251927*%i
-8.52879747981205583e-06-53316.8312102425552*%i
- 0.0001220703125-746435636856.653198*%i ];
+yref=[ 18626891780058596-13533229042766080*%i
+-716418914.617646098+520508809.337161541*%i
+119.403152436272933-86.7425820843251927*%i
+8.52879747981205583e-06-53316.8312102425552*%i
+0.0001220703125-746435636856.653198*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 18626891780058596+13533229042766080*%i
- -716418914.617646098-520508809.337161541*%i
- 119.403152436272933+86.7425820843251927*%i
-8.52879747981205583e-06+53316.8312102425552*%i
- 0.0001220703125+746435636856.653198*%i ];
+yref=[ 18626891780058596+13533229042766080*%i
+-716418914.617646098-520508809.337161541*%i
+119.403152436272933+86.7425820843251927*%i
+8.52879747981205583e-06+53316.8312102425552*%i
+0.0001220703125+746435636856.653198*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 18626890426735600-13533230905455192*%i
- -716418862.566761613+520508880.979050338*%i
- 119.403143762014125-86.7425940246399847*%i
--0.00532315432428731583-53316.8312102422933*%i
- -74643.5635986328125-746435636856.649536*%i ];
+yref=[ 18626890426735600-13533230905455192*%i
+-716418862.566761613+520508880.979050338*%i
+119.403143762014125-86.7425940246399847*%i
+-0.00532315432428731583-53316.8312102422933*%i
+-74643.5635986328125-746435636856.649536*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[1];
-yref=[ 1.86907461941519504-1.2713088566443258*%i
--0.96267128684022385+0.314183689901754326*%i
-0.633870726369384796+0.454431262899762989*%i
-0.582348851018592462-0.586842447641611864*%i
+yref=[ 1.86907461941519504-1.2713088566443258*%i
+-0.96267128684022385+0.314183689901754326*%i
+0.633870726369384796+0.454431262899762989*%i
+0.582348851018592462-0.586842447641611864*%i
0.181417665056644584-1.27601068959802011*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 1.86907461941519504+1.2713088566443258*%i
--0.96267128684022385-0.314183689901754326*%i
-0.633870726369384796-0.454431262899762989*%i
-0.582348851018592462+0.586842447641611864*%i
+yref=[ 1.86907461941519504+1.2713088566443258*%i
+-0.96267128684022385-0.314183689901754326*%i
+0.633870726369384796-0.454431262899762989*%i
+0.582348851018592462+0.586842447641611864*%i
0.181417665056644584+1.27601068959802011*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.0599041888858562466-2.2596631673942662*%i
- -0.255757057120614473+0.97981412790380662*%i
- 0.7248725373994509-0.287853565155630209*%i
- -0.179166465319056278-0.807101988810427939*%i
- -0.975705588846130234-0.842089219178969395*%i ];
+yref=[-0.0599041888858562466-2.2596631673942662*%i
+-0.255757057120614473+0.97981412790380662*%i
+0.7248725373994509-0.287853565155630209*%i
+-0.179166465319056278-0.807101988810427939*%i
+-0.975705588846130234-0.842089219178969395*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[3 4 5];
-yref=[ 0.499083518338036936+0.191545604801620417*%i -0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i
- 0.169694481385489565+0.398572570979558949*%i 0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i
+yref=[ 0.499083518338036936+0.191545604801620417*%i -0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i
+0.169694481385489565+0.398572570979558949*%i 0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i
-0.171862430485208495+0.334306539556833759*%i 0.35944584577841987+0.0416545814756734967*%i -0.0150494093195696621-0.355966921924183777*%i -0.3576399166600715+0.00106144915522857208*%i -0.0850897673452503944+0.356264127687647869*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[ 0.499083518338036936-0.191545604801620417*%i -0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i
- 0.169694481385489565-0.398572570979558949*%i 0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i
+yref=[ 0.499083518338036936-0.191545604801620417*%i -0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i
+0.169694481385489565-0.398572570979558949*%i 0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i
-0.171862430485208495-0.334306539556833759*%i 0.35944584577841987-0.0416545814756734967*%i -0.0150494093195696621+0.355966921924183777*%i -0.3576399166600715-0.00106144915522857208*%i -0.0850897673452503944-0.356264127687647869*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[-0.467058021038170568-0.260059381640809106*%i 0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i
--0.412560431532010941-0.132099211519474513*%i 0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i
+yref=[-0.467058021038170568-0.260059381640809106*%i 0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i
+-0.412560431532010941-0.132099211519474513*%i 0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i
-0.369325528590136676-0.069972932869532628*%i 0.0620176048412275638+0.356497176559695039*%i 0.337076374072698137-0.115405598941508536*%i -0.102466769729951307-0.342648504686714039*%i -0.365767069597084549+0.0194640176292286138*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[-7.29999999999999982 8.40000000000000036];
-yref=[0.300843170468579835-0.0316156999516793158*%i 0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i
+yref=[0.300843170468579835-0.0316156999516793158*%i 0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i
0.142060829734702965-0.241661020360697809*%i -0.262892922068786006-0.086280619148427995*%i -0.0606892109991265527+0.268366926287592067*%i 0.267227865711580748+0.0671115529850285913*%i 0.105227188617723372-0.257181667456753915*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.478652371164440149+0.276349069082910681*%i 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i
- 0.142060829734702965+0.241661020360697809*%i -0.262892922068786006+0.086280619148427995*%i -0.0606892109991265527-0.268366926287592067*%i 0.267227865711580748-0.0671115529850285913*%i 0.105227188617723372+0.257181667456753915*%i ];
+yref=[-0.478652371164440149+0.276349069082910681*%i 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i
+0.142060829734702965+0.241661020360697809*%i -0.262892922068786006+0.086280619148427995*%i -0.0606892109991265527-0.268366926287592067*%i 0.267227865711580748-0.0671115529850285913*%i 0.105227188617723372+0.257181667456753915*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.185153977266883929+0.239215740291636808*%i 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i
+yref=[ 0.185153977266883929+0.239215740291636808*%i 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i
-0.280293821203385529+0.00408679604217940251*%i 0.0627819887644752439+0.269472550738063421*%i 0.260861300871524204-0.0874949665087225992*%i -0.081414938826726943-0.263222910273154698*%i -0.274430457342645373+0.0436244814631968347*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
-0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[0.295208883882440876-0.0305740967814102649*%i 0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i
+yref=[0.295208883882440876-0.0305740967814102649*%i 0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i
0.139043239894831056-0.237221943806996016*%i -0.257841240101032931-0.0842758673723411206*%i -0.0591735817167325096+0.26311716547420122*%i 0.262023152985124297+0.0654718271887456127*%i 0.102869840386841327-0.252309232987196319*%i ];
y=besselh(alpha,x);
if testresult() then bugmes();quit;end
-yref=[-0.481489589165971232+0.269202238903625657*%i 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i
- 0.145141652219097028+0.246182257025218565*%i -0.268042418096517854+0.0883312018516905356*%i -0.0622417085009255161-0.273720247940547168*%i 0.272534780013686639-0.0687904516700227342*%i 0.107636616697512302+0.262147089547452361*%i ];
+yref=[-0.481489589165971232+0.269202238903625657*%i 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i
+0.145141652219097028+0.246182257025218565*%i -0.268042418096517854+0.0883312018516905356*%i -0.0622417085009255161-0.273720247940547168*%i 0.272534780013686639-0.0687904516700227342*%i 0.107636616697512302+0.262147089547452361*%i ];
y=besselh(alpha,2,x);
if testresult() then bugmes();quit;end
-yref=[ 0.184966673823006966+0.239718851959764251*%i 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i
+yref=[ 0.184966673823006966+0.239718851959764251*%i 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i
-0.280487209938313775+0.00444855012972955599*%i 0.0631218629428649258+0.269449807661711782*%i 0.26075102821782209-0.0878026901637817547*%i -0.0817318984576275442-0.263133877327358878*%i -0.274477351685756932+0.0439797256650979601*%i ];
y=besselh(alpha,1,x,1);
if testresult() then bugmes();quit;end
// This file is distributed under the same license as the Scilab package.
// =============================================================================
function [x,y]=erf_ref()
-//reference Yr=erf(X) generee par Maple
-//pm:=array(1..1001):x:=-5:
-//for k from 1 to 1001 do
-//pm[k]:=evalf[24](erf(x)):
-//x:=x+0.01:end do;
- x=-5:0.01:5;
- y=[-0.999999999998462540205572
- -0.999999999998297733894900
- -0.999999999998115631480261
- -0.999999999997914458007001
- -0.999999999997692260661541
- -0.999999999997446891397149
- -0.999999999997175987908301
- -0.999999999996876952801260
- -0.999999999996546930794861
- -0.999999999996182783770717
- -0.999999999995781063475994
- -0.999999999995337981664472
- -0.999999999994849377442675
- -0.999999999994310681567322
- -0.999999999993716877418075
- -0.999999999993062458345374
- -0.999999999992341381066975
- -0.999999999991547014758366
- -0.999999999990672085451468
- -0.999999999989708615322670
- -0.999999999988647856415078
- -0.999999999987480218300757
- -0.999999999986195189146334
- -0.999999999984781249599477
- -0.999999999983225778864110
- -0.999999999981514952278515
- -0.999999999979633629652374
- -0.999999999977565233555991
- -0.999999999975291616686970
- -0.999999999972792917366275
- -0.999999999970047402136203
- -0.999999999967031294347156
- -0.999999999963718587527495
- -0.999999999960080842230859
- -0.999999999956086964947412
- -0.999999999951702967549089
- -0.999999999946891705613252
- -0.999999999941612593833703
- -0.999999999935821296581860
- -0.999999999929469391523360
- -0.999999999922504004025582
- -0.999999999914867409908580
- -0.999999999906496603894840
- -0.999999999897322830900966
- -0.999999999887271077085832
- -0.999999999876259517323697
- -0.999999999864198915505960
- -0.999999999850991973790366
- -0.999999999836532626610029
- -0.999999999820705274925103
- -0.999999999803383955845711
- -0.999999999784431442373954
- -0.999999999763698267603729
- -0.999999999741021667277623
- -0.999999999716224434128131
- -0.999999999689113676923764
- -0.999999999659479476596644
- -0.999999999627093431244556
- -0.999999999591707081174197
- -0.999999999553050204480830
- -0.999999999510828972939411
- -0.999999999464723957210342
- -0.999999999414387969535759
- -0.999999999359443731215952
- -0.999999999299481351206210
- -0.999999999234055601157792
- -0.999999999162682971138542
- -0.999999999084838489103913
- -0.999999998999952285943071
- -0.999999998907405886591731
- -0.999999998806528206277959
- -0.999999998696591229443244
- -0.999999998576805347252390
- -0.999999998446314327865434
- -0.999999998304189891785759
- -0.999999998149425862613257
- -0.999999997980931861411821
- -0.999999997797526510638154
- -0.999999997597930111164948
- -0.999999997380756753356393
- -0.999999997144505820407811
- -0.999999996887552839233372
- -0.999999996608139631065173
- -0.999999996304363710601733
- -0.999999995974166879001692
- -0.999999995615322952246180
- -0.999999995225424562376994
- -0.999999994801868964843021
- -0.999999994341842780638679
- -0.999999993842305597079599
- -0.999999993299972345915102
- -0.999999992711294372006456
- -0.999999992072439099985541
- -0.999999991379268200130508
- -0.999999990627314148132540
- -0.999999989811755066458970
- -0.999999988927387727619661
- -0.999999987968598591791738
- -0.999999986929332742926881
- -0.999999985803060578628974
- -0.999999984582742099719981
- -0.999999983260788635479157
- -0.999999981829021830014495
- -0.999999980278629704073472
- -0.999999978600119594788978
- -0.999999976783267763350693
- -0.999999974817065447355071
- -0.999999972689661120580137
- -0.999999970388298708114035
- -0.999999967899251489096719
- -0.999999965207751402768258
- -0.999999962297913456009131
- -0.999999959152654912059634
- -0.999999955753608920567185
- -0.999999952081032228479841
- -0.999999948113706589527419
- -0.999999943828833467051722
- -0.999999939201921600705774
- -0.999999934206666981977303
- -0.999999928814824756540487
- -0.999999922996072543035871
- -0.999999916717864627952817
- -0.999999909945276464770342
- -0.999999902640838872326778
- -0.999999894764361292459493
- -0.999999886272743430203347
- -0.999999877119774561178120
- -0.999999867255919750145400
- -0.999999856628092181986012
- -0.999999845179410761448597
- -0.999999832848942090853798
- -0.999999819571425885409310
- -0.999999805276982833797809
- -0.999999789890803857138683
- -0.999999773332819662188394
- -0.999999755517349424622676
- -0.999999736352727375323111
- -0.999999715740905996653838
- -0.999999693577034466641037
- -0.999999669749010916634964
- -0.999999644137006992314701
- -0.999999616612963128659530
- -0.999999587040052866624547
- -0.999999555272114452585247
- -0.999999521153047871016725
- -0.999999484516175366204968
- -0.999999445183563409904602
- -0.999999402965303968610622
- -0.999999357658752816349255
- -0.999999309047722526460751
- -0.999999256901627658587254
- -0.999999200974579534832405
- -0.999999141004427871663589
- -0.999999076711746401418634
- -0.999999007798759479089598
- -0.999998933948206526218906
- -0.999998854822141014087435
- -0.999998770060660532728832
- -0.999998679280564330496742
- -0.999998582073934540768369
- -0.999998478006637137714638
- -0.999998366616738481729930
- -0.999998247412833126918517
- -0.999998119872278367806604
- -0.999997983439330800015059
- -0.999997837523179959816750
- -0.999997681495873890143584
- -0.999997514690131255533768
- -0.999997336397034395554135
- -0.999997145863597465233101
- -0.999996942290203561838538
- -0.999996724827904479777092
- -0.999996492575576469327953
- -0.999996244576925100210857
- -0.999995979817332047487635
- -0.999995697220536324878170
- -0.999995395645142189112255
- -0.999995073880945628324028
- -0.999994730645071027620088
- -0.999994364577909275721057
- -0.999993974238848237905028
- -0.999993558101786172297790
- -0.999993114550418308799710
- -0.999992641873286442566995
- -0.999992138258581016945169
- -0.999991601788684784070191
- -0.999991030434446735009890
- -0.999990422049174585335565
- -0.999989774362333686430315
- -0.999989084972939807716761
- -0.999988351342632800403966
- -0.999987570788417709415870
- -0.999986740475059447000171
- -0.999985857407116679281056
- -0.999984918420600105892450
- -0.999983920174239833019164
- -0.999982859140346051919802
- -0.999981731595246738576625
- -0.999980533609285585815045
- -0.999979261036362867394040
- -0.999977909503001414558627
- -0.999976474396919359773184
- -0.999974950855090770264459
- -0.999973333751274756079605
- -0.999971617682993094132439
- -0.999969796957935861737626
- -0.999967865579774021028779
- -0.999965817233357340078774
- -0.999963645269275478192029
- -0.999961342687759502470105
- -0.999958902121900541164316
- -0.999956315820161717373451
- -0.999953575628158945224767
- -0.999950672969685610748981
- -0.999947598826955602236751
- -0.999944343720038601012541
- -0.999940897685460994406321
- -0.999937250253945229426789
- -0.999933390427259889483441
- -0.999929306654152248770470
- -0.999924986805334540975777
- -0.999920418147494672237463
- -0.999915587316301614224693
- -0.999910480288375233419033
- -0.999905082352189848729210
- -0.999899378077880363163096
- -0.999893351285919388145981
- -0.999886985014633373018311
- -0.999880261486525369137321
- -0.999873162073371699777589
- -0.999865667260059475670860
- -0.999857756607131593604098
- -0.999849408712005584127087
- -0.999840601168832436289035
- -0.999831310526961324669729
- -0.999821512247975999096039
- -0.999811180661268472697860
- -0.999800288918115561773568
- -0.999788808944223793772524
- -0.999776711390708210081766
- -0.999763965583470650796009
- -0.999750539470943221871744
- -0.999736399570162813678909
- -0.999721510911142766670001
- -0.999705836979508067426713
- -0.999689339657360809492885
- -0.999671979162343070964282
- -0.999653713984864847611602
- -0.999634500823465239215587
- -0.999614294518275720661921
- -0.999593047982555041060436
- -0.999570712132266086606323
- -0.999547235813665918980236
- -0.999522565728881163674247
- -0.999496646359441974605568
- -0.999469419887748945596554
- -0.999440826116448578590456
- -0.999410802385694255639232
- -0.999379283488271099505731
- -0.999346201582564648884856
- -0.999311486103354921430255
- -0.999275063670419193575791
- -0.999236857994928693095374
- -0.999196789783626380902110
- -0.999154776640775095111632
- -0.999110732967867545150889
- -0.999064569861091978842036
- -0.999016195006549802974103
- -0.998965512573224019809696
- -0.998912423103700050040183
- -0.998856823402643348534653
- -0.998798606423041184302075
- -0.998737661150219051712021
- -0.998673872483645407328131
- -0.998607121116541786642636
- -0.998537283413318848302089
- -0.998464231284862520615845
- -0.998387832061698186549948
- -0.998307948365064739107359
- -0.998224437975934368814823
- -0.998137153702018108556548
- -0.998045943242801457529124
- -0.997950649052658834678793
- -0.997851108202100171372239
- -0.997747152237207641699493
- -0.997638607037325344858751
- -0.997525292671069695356701
- -0.997407023250733340776017
- -0.997283606785160610778704
- -0.997154845031177801648948
- -0.997020533343667014496115
- -0.996880460524377788338765
- -0.996734408669576397404104
- -0.996582153016638410456033
- -0.996423461789695933775340
- -0.996258096044456873132539
- -0.996085809512319547895015
- -0.995906348443912066070672
- -0.995719451452192015978668
- -0.995524849355248241312063
- -0.995322265018952734162069
- -0.995111413199616997238347
- -0.994892000386813583757223
- -0.994663724646529912575485
- -0.994426275464827868000969
- -0.994179333592189118776836
- -0.993922570888732519066544
- -0.993655650170496375504198
- -0.993378225056984767759469
- -0.993089939820183484438217
- -0.992790429235257469948358
- -0.992479318433147959270642
- -0.992156222755293694076721
- -0.991820747610706752658708
- -0.991472488335639574649461
- -0.991111030056085706155210
- -0.990735947553362618000491
- -0.990346805133030645297762
- -0.989943156497407646205095
- -0.989524544621944366953582
- -0.989090501635730714183733
- -0.988640548706408159263284
- -0.988174195929768317289394
- -0.987690942224322340437041
- -0.987190275231130125566791
- -0.986671671219182443772211
- -0.986134594996632938939331
- -0.985578499828180497431188
- -0.985002827358905745666562
- -0.984407007544868370574912
- -0.983790458590774563626243
- -0.983152586895026146341339
- -0.982492787002464827943096
- -0.981810441565126558280198
- -0.981104921311322055650339
- -0.980375585023360294162452
- -0.979621779524232013515387
- -0.978842839673570150500483
- -0.978038088373203471420329
- -0.977206836582618593554779
- -0.976348383344644007774283
- -0.975462015821667639794134
- -0.974547009342696901235481
- -0.973602627461567070965916
- -0.972628122026600200033799
- -0.971622733262012538372566
- -0.970585689861363727448927
- -0.969516209093335679948252
- -0.968413496920123165931304
- -0.967276748128711635913826
- -0.966105146475310727066976
- -0.964897864843204212102907
- -0.963654065414268855166142
- -0.962372899854405729886811
- -0.961053509513118027313721
- -0.959695025637459232377443
- -0.958296569600564774513511
- -0.956857253144968859850497
- -0.955376178640896168788291
- -0.953852439359705454847226
- -0.952285119762648810516483
- -0.950673295805096476827758
- -0.949016035256362570111835
- -0.947312398035251987699776
- -0.945561436561433041323207
- -0.943762196122724061065830
- -0.941913715258365323657307
- -0.940015026158330197754595
- -0.938065155078711378050909
- -0.936063122773199513379509
- -0.934007944940652436603893
- -0.931898632688733592554243
- -0.929734193013578152514172
- -0.927513629295424719100128
- -0.925235941810129484510736
- -0.922900128256458230136523
- -0.920505184299029669863949
- -0.918050104126761367892733
- -0.915533881026646830667193
- -0.912955507972669409081356
- -0.910313978229635380238406
- -0.907608285971685037790485
- -0.904837426915216837567545
- -0.902000398965935653353894
- -0.899096202879712030000041
- -0.896123842936915012419506
- -0.893082327629856715369185
- -0.889970670362962317254718
- -0.886787890165254649549837
- -0.883533012414718050732089
- -0.880205069574081699771868
- -0.876803101937538279856830
- -0.873326158387889589649984
- -0.869773297163586659132690
- -0.866143586635108082774537
- -0.862436106090096697765226
- -0.858649946526651453191925
- -0.854784211454148381612389
- -0.850838017700942042052444
- -0.846810496228276697886304
- -0.842700792949714869341221
- -0.838508069555369803579790
- -0.834231504340207880514292
- -0.829870293035667064651115
- -0.825423649643818267103596
- -0.820890807273277941907934
- -0.816271018976062450999077
- -0.811563558584557736234438
- -0.806767721547761677691787
- -0.801882825765941237429626
- -0.796908212422832128518725
- -0.791843246814495351087002
- -0.786687319173932540042657
- -0.781439845490550711651092
- -0.776100268323556715663465
- -0.770668057608352532380083
- -0.765142711454994534663544
- -0.759523756937772996814901
- -0.753810750874962507155164
- -0.748003280597789559230994
- -0.742100964707660486167111
- -0.736103453820691090374864
- -0.730010431298578831244359
- -0.723821613964859289254273
- -0.717536752805590846718625
- -0.711155633653515131598938
- -0.704678077854745777673723
- -0.698103942917044475821896
- -0.691433123138751138842000
- -0.684665550217444285287115
- -0.677801193837418472975629
- -0.670840062235077784356887
- -0.663782202741357985424868
- -0.656627702300305046439084
- -0.649376687962954222750275
- -0.642029327355671841292946
- -0.634585829122141313859706
- -0.627046443338195690464736
- -0.619411461898721260562292
- -0.611681218875880289504687
- -0.603856090847925922562622
- -0.595936497197908576518189
- -0.587922900381600743987037
- -0.579815806163996030236782
- -0.571615763823768395668684
- -0.563323366325108955991688
- -0.554939250456390260497539
- -0.546464096935141688222533
- -0.537898630478854431106614
- -0.529243619841170429010070
- -0.520499877813046537682747
- -0.511668261188523099211697
- -0.502749670694764894533266
- -0.493745050886082136517092
- -0.484655390001679655026703
- -0.475481719786923675319682
- -0.466225115277957539319705
- -0.456886694549540304987442
- -0.447467618426025319819411
- -0.437969090155439536373130
- -0.428392355046668455103604
- -0.418738700069796075759558
- -0.409009453419694044918239
- -0.399205984042999234582144
- -0.389329701128664204753628
- -0.379382053562310320297300
- -0.369364529344658637204124
- -0.359278654974358972988254
- -0.349125994795582757315695
- -0.338908150310790248699499
- -0.328626759459127427638914
- -0.318283495860952262338992
- -0.307880068029034016649000
- -0.297418218547012757893882
- -0.286899723215749152048332
- -0.276326390168236932985068
- -0.265700058953792029795712
- -0.255022599592273160770179
- -0.244295911599128684869262
- -0.233521922982103572925263
- -0.222702589210478454140139
- -0.211839892157749742936947
- -0.200935839018695792648413
- -0.189992461201808793395082
- -0.179011813198105671155184
- -0.167995971427363494770210
- -0.156947033062855800871902
- -0.145867114835695749082958
- -0.134758351819920069295014
- -0.123622896199474309769839
- -0.112462916018284892203275
- -0.101280593914626883352498
- -0.0900781258410181607233922
- -0.0788577197708907433569970
- -0.0676215943933084420794315
- -0.0563719777970166238312711
- -0.0451111061451247520897491
- -0.0338412223417354333022167
- -0.0225645746918449442243659
- -0.0112834155558496169159095
- 0.
- 0.0112834155558496169159095
- 0.0225645746918449442243659
- 0.0338412223417354333022167
- 0.0451111061451247520897491
- 0.0563719777970166238312711
- 0.0676215943933084420794315
- 0.0788577197708907433569970
- 0.0900781258410181607233922
- 0.101280593914626883352498
- 0.112462916018284892203275
- 0.123622896199474309769839
- 0.134758351819920069295014
- 0.145867114835695749082958
- 0.156947033062855800871902
- 0.167995971427363494770210
- 0.179011813198105671155184
- 0.189992461201808793395082
- 0.200935839018695792648413
- 0.211839892157749742936947
- 0.222702589210478454140139
- 0.233521922982103572925263
- 0.244295911599128684869262
- 0.255022599592273160770179
- 0.265700058953792029795712
- 0.276326390168236932985068
- 0.286899723215749152048332
- 0.297418218547012757893882
- 0.307880068029034016649000
- 0.318283495860952262338992
- 0.328626759459127427638914
- 0.338908150310790248699499
- 0.349125994795582757315695
- 0.359278654974358972988254
- 0.369364529344658637204124
- 0.379382053562310320297300
- 0.389329701128664204753628
- 0.399205984042999234582144
- 0.409009453419694044918239
- 0.418738700069796075759558
- 0.428392355046668455103604
- 0.437969090155439536373130
- 0.447467618426025319819411
- 0.456886694549540304987442
- 0.466225115277957539319705
- 0.475481719786923675319682
- 0.484655390001679655026703
- 0.493745050886082136517092
- 0.502749670694764894533266
- 0.511668261188523099211697
- 0.520499877813046537682747
- 0.529243619841170429010070
- 0.537898630478854431106614
- 0.546464096935141688222533
- 0.554939250456390260497539
- 0.563323366325108955991688
- 0.571615763823768395668684
- 0.579815806163996030236782
- 0.587922900381600743987037
- 0.595936497197908576518189
- 0.603856090847925922562622
- 0.611681218875880289504687
- 0.619411461898721260562292
- 0.627046443338195690464736
- 0.634585829122141313859706
- 0.642029327355671841292946
- 0.649376687962954222750275
- 0.656627702300305046439084
- 0.663782202741357985424868
- 0.670840062235077784356887
- 0.677801193837418472975629
- 0.684665550217444285287115
- 0.691433123138751138842000
- 0.698103942917044475821896
- 0.704678077854745777673723
- 0.711155633653515131598938
- 0.717536752805590846718625
- 0.723821613964859289254273
- 0.730010431298578831244359
- 0.736103453820691090374864
- 0.742100964707660486167111
- 0.748003280597789559230994
- 0.753810750874962507155164
- 0.759523756937772996814901
- 0.765142711454994534663544
- 0.770668057608352532380083
- 0.776100268323556715663465
- 0.781439845490550711651092
- 0.786687319173932540042657
- 0.791843246814495351087002
- 0.796908212422832128518725
- 0.801882825765941237429626
- 0.806767721547761677691787
- 0.811563558584557736234438
- 0.816271018976062450999077
- 0.820890807273277941907934
- 0.825423649643818267103596
- 0.829870293035667064651115
- 0.834231504340207880514292
- 0.838508069555369803579790
- 0.842700792949714869341221
- 0.846810496228276697886304
- 0.850838017700942042052444
- 0.854784211454148381612389
- 0.858649946526651453191925
- 0.862436106090096697765226
- 0.866143586635108082774537
- 0.869773297163586659132690
- 0.873326158387889589649984
- 0.876803101937538279856830
- 0.880205069574081699771868
- 0.883533012414718050732089
- 0.886787890165254649549837
- 0.889970670362962317254718
- 0.893082327629856715369185
- 0.896123842936915012419506
- 0.899096202879712030000041
- 0.902000398965935653353894
- 0.904837426915216837567545
- 0.907608285971685037790485
- 0.910313978229635380238406
- 0.912955507972669409081356
- 0.915533881026646830667193
- 0.918050104126761367892733
- 0.920505184299029669863949
- 0.922900128256458230136523
- 0.925235941810129484510736
- 0.927513629295424719100128
- 0.929734193013578152514172
- 0.931898632688733592554243
- 0.934007944940652436603893
- 0.936063122773199513379509
- 0.938065155078711378050909
- 0.940015026158330197754595
- 0.941913715258365323657307
- 0.943762196122724061065830
- 0.945561436561433041323207
- 0.947312398035251987699776
- 0.949016035256362570111835
- 0.950673295805096476827758
- 0.952285119762648810516483
- 0.953852439359705454847226
- 0.955376178640896168788291
- 0.956857253144968859850497
- 0.958296569600564774513511
- 0.959695025637459232377443
- 0.961053509513118027313721
- 0.962372899854405729886811
- 0.963654065414268855166142
- 0.964897864843204212102907
- 0.966105146475310727066976
- 0.967276748128711635913826
- 0.968413496920123165931304
- 0.969516209093335679948252
- 0.970585689861363727448927
- 0.971622733262012538372566
- 0.972628122026600200033799
- 0.973602627461567070965916
- 0.974547009342696901235481
- 0.975462015821667639794134
- 0.976348383344644007774283
- 0.977206836582618593554779
- 0.978038088373203471420329
- 0.978842839673570150500483
- 0.979621779524232013515387
- 0.980375585023360294162452
- 0.981104921311322055650339
- 0.981810441565126558280198
- 0.982492787002464827943096
- 0.983152586895026146341339
- 0.983790458590774563626243
- 0.984407007544868370574912
- 0.985002827358905745666562
- 0.985578499828180497431188
- 0.986134594996632938939331
- 0.986671671219182443772211
- 0.987190275231130125566791
- 0.987690942224322340437041
- 0.988174195929768317289394
- 0.988640548706408159263284
- 0.989090501635730714183733
- 0.989524544621944366953582
- 0.989943156497407646205095
- 0.990346805133030645297762
- 0.990735947553362618000491
- 0.991111030056085706155210
- 0.991472488335639574649461
- 0.991820747610706752658708
- 0.992156222755293694076721
- 0.992479318433147959270642
- 0.992790429235257469948358
- 0.993089939820183484438217
- 0.993378225056984767759469
- 0.993655650170496375504198
- 0.993922570888732519066544
- 0.994179333592189118776836
- 0.994426275464827868000969
- 0.994663724646529912575485
- 0.994892000386813583757223
- 0.995111413199616997238347
- 0.995322265018952734162069
- 0.995524849355248241312063
- 0.995719451452192015978668
- 0.995906348443912066070672
- 0.996085809512319547895015
- 0.996258096044456873132539
- 0.996423461789695933775340
- 0.996582153016638410456033
- 0.996734408669576397404104
- 0.996880460524377788338765
- 0.997020533343667014496115
- 0.997154845031177801648948
- 0.997283606785160610778704
- 0.997407023250733340776017
- 0.997525292671069695356701
- 0.997638607037325344858751
- 0.997747152237207641699493
- 0.997851108202100171372239
- 0.997950649052658834678793
- 0.998045943242801457529124
- 0.998137153702018108556548
- 0.998224437975934368814823
- 0.998307948365064739107359
- 0.998387832061698186549948
- 0.998464231284862520615845
- 0.998537283413318848302089
- 0.998607121116541786642636
- 0.998673872483645407328131
- 0.998737661150219051712021
- 0.998798606423041184302075
- 0.998856823402643348534653
- 0.998912423103700050040183
- 0.998965512573224019809696
- 0.999016195006549802974103
- 0.999064569861091978842036
- 0.999110732967867545150889
- 0.999154776640775095111632
- 0.999196789783626380902110
- 0.999236857994928693095374
- 0.999275063670419193575791
- 0.999311486103354921430255
- 0.999346201582564648884856
- 0.999379283488271099505731
- 0.999410802385694255639232
- 0.999440826116448578590456
- 0.999469419887748945596554
- 0.999496646359441974605568
- 0.999522565728881163674247
- 0.999547235813665918980236
- 0.999570712132266086606323
- 0.999593047982555041060436
- 0.999614294518275720661921
- 0.999634500823465239215587
- 0.999653713984864847611602
- 0.999671979162343070964282
- 0.999689339657360809492885
- 0.999705836979508067426713
- 0.999721510911142766670001
- 0.999736399570162813678909
- 0.999750539470943221871744
- 0.999763965583470650796009
- 0.999776711390708210081766
- 0.999788808944223793772524
- 0.999800288918115561773568
- 0.999811180661268472697860
- 0.999821512247975999096039
- 0.999831310526961324669729
- 0.999840601168832436289035
- 0.999849408712005584127087
- 0.999857756607131593604098
- 0.999865667260059475670860
- 0.999873162073371699777589
- 0.999880261486525369137321
- 0.999886985014633373018311
- 0.999893351285919388145981
- 0.999899378077880363163096
- 0.999905082352189848729210
- 0.999910480288375233419033
- 0.999915587316301614224693
- 0.999920418147494672237463
- 0.999924986805334540975777
- 0.999929306654152248770470
- 0.999933390427259889483441
- 0.999937250253945229426789
- 0.999940897685460994406321
- 0.999944343720038601012541
- 0.999947598826955602236751
- 0.999950672969685610748981
- 0.999953575628158945224767
- 0.999956315820161717373451
- 0.999958902121900541164316
- 0.999961342687759502470105
- 0.999963645269275478192029
- 0.999965817233357340078774
- 0.999967865579774021028779
- 0.999969796957935861737626
- 0.999971617682993094132439
- 0.999973333751274756079605
- 0.999974950855090770264459
- 0.999976474396919359773184
- 0.999977909503001414558627
- 0.999979261036362867394040
- 0.999980533609285585815045
- 0.999981731595246738576625
- 0.999982859140346051919802
- 0.999983920174239833019164
- 0.999984918420600105892450
- 0.999985857407116679281056
- 0.999986740475059447000171
- 0.999987570788417709415870
- 0.999988351342632800403966
- 0.999989084972939807716761
- 0.999989774362333686430315
- 0.999990422049174585335565
- 0.999991030434446735009890
- 0.999991601788684784070191
- 0.999992138258581016945169
- 0.999992641873286442566995
- 0.999993114550418308799710
- 0.999993558101786172297790
- 0.999993974238848237905028
- 0.999994364577909275721057
- 0.999994730645071027620088
- 0.999995073880945628324028
- 0.999995395645142189112255
- 0.999995697220536324878170
- 0.999995979817332047487635
- 0.999996244576925100210857
- 0.999996492575576469327953
- 0.999996724827904479777092
- 0.999996942290203561838538
- 0.999997145863597465233101
- 0.999997336397034395554135
- 0.999997514690131255533768
- 0.999997681495873890143584
- 0.999997837523179959816750
- 0.999997983439330800015059
- 0.999998119872278367806604
- 0.999998247412833126918517
- 0.999998366616738481729930
- 0.999998478006637137714638
- 0.999998582073934540768369
- 0.999998679280564330496742
- 0.999998770060660532728832
- 0.999998854822141014087435
- 0.999998933948206526218906
- 0.999999007798759479089598
- 0.999999076711746401418634
- 0.999999141004427871663589
- 0.999999200974579534832405
- 0.999999256901627658587254
- 0.999999309047722526460751
- 0.999999357658752816349255
- 0.999999402965303968610622
- 0.999999445183563409904602
- 0.999999484516175366204968
- 0.999999521153047871016725
- 0.999999555272114452585247
- 0.999999587040052866624547
- 0.999999616612963128659530
- 0.999999644137006992314701
- 0.999999669749010916634964
- 0.999999693577034466641037
- 0.999999715740905996653838
- 0.999999736352727375323111
- 0.999999755517349424622676
- 0.999999773332819662188394
- 0.999999789890803857138683
- 0.999999805276982833797809
- 0.999999819571425885409310
- 0.999999832848942090853798
- 0.999999845179410761448597
- 0.999999856628092181986012
- 0.999999867255919750145400
- 0.999999877119774561178120
- 0.999999886272743430203347
- 0.999999894764361292459493
- 0.999999902640838872326778
- 0.999999909945276464770342
- 0.999999916717864627952817
- 0.999999922996072543035871
- 0.999999928814824756540487
- 0.999999934206666981977303
- 0.999999939201921600705774
- 0.999999943828833467051722
- 0.999999948113706589527419
- 0.999999952081032228479841
- 0.999999955753608920567185
- 0.999999959152654912059634
- 0.999999962297913456009131
- 0.999999965207751402768258
- 0.999999967899251489096719
- 0.999999970388298708114035
- 0.999999972689661120580137
- 0.999999974817065447355071
- 0.999999976783267763350693
- 0.999999978600119594788978
- 0.999999980278629704073472
- 0.999999981829021830014495
- 0.999999983260788635479157
- 0.999999984582742099719981
- 0.999999985803060578628974
- 0.999999986929332742926881
- 0.999999987968598591791738
- 0.999999988927387727619661
- 0.999999989811755066458970
- 0.999999990627314148132540
- 0.999999991379268200130508
- 0.999999992072439099985541
- 0.999999992711294372006456
- 0.999999993299972345915102
- 0.999999993842305597079599
- 0.999999994341842780638679
- 0.999999994801868964843021
- 0.999999995225424562376994
- 0.999999995615322952246180
- 0.999999995974166879001692
- 0.999999996304363710601733
- 0.999999996608139631065173
- 0.999999996887552839233372
- 0.999999997144505820407811
- 0.999999997380756753356393
- 0.999999997597930111164948
- 0.999999997797526510638154
- 0.999999997980931861411821
- 0.999999998149425862613257
- 0.999999998304189891785759
- 0.999999998446314327865434
- 0.999999998576805347252390
- 0.999999998696591229443244
- 0.999999998806528206277959
- 0.999999998907405886591731
- 0.999999998999952285943071
- 0.999999999084838489103913
- 0.999999999162682971138542
- 0.999999999234055601157792
- 0.999999999299481351206210
- 0.999999999359443731215952
- 0.999999999414387969535759
- 0.999999999464723957210342
- 0.999999999510828972939411
- 0.999999999553050204480830
- 0.999999999591707081174197
- 0.999999999627093431244556
- 0.999999999659479476596644
- 0.999999999689113676923764
- 0.999999999716224434128131
- 0.999999999741021667277623
- 0.999999999763698267603729
- 0.999999999784431442373954
- 0.999999999803383955845711
- 0.999999999820705274925103
- 0.999999999836532626610029
- 0.999999999850991973790366
- 0.999999999864198915505960
- 0.999999999876259517323697
- 0.999999999887271077085832
- 0.999999999897322830900966
- 0.999999999906496603894840
- 0.999999999914867409908580
- 0.999999999922504004025582
- 0.999999999929469391523360
- 0.999999999935821296581860
- 0.999999999941612593833703
- 0.999999999946891705613252
- 0.999999999951702967549089
- 0.999999999956086964947412
- 0.999999999960080842230859
- 0.999999999963718587527495
- 0.999999999967031294347156
- 0.999999999970047402136203
- 0.999999999972792917366275
- 0.999999999975291616686970
- 0.999999999977565233555991
- 0.999999999979633629652374
- 0.999999999981514952278515
- 0.999999999983225778864110
- 0.999999999984781249599477
- 0.999999999986195189146334
- 0.999999999987480218300757
- 0.999999999988647856415078
- 0.999999999989708615322670
- 0.999999999990672085451468
- 0.999999999991547014758366
- 0.999999999992341381066975
- 0.999999999993062458345374
- 0.999999999993716877418075
- 0.999999999994310681567322
- 0.999999999994849377442675
- 0.999999999995337981664472
- 0.999999999995781063475994
- 0.999999999996182783770717
- 0.999999999996546930794861
- 0.999999999996876952801260
- 0.999999999997175987908301
- 0.999999999997446891397149
- 0.999999999997692260661541
- 0.999999999997914458007001
- 0.999999999998115631480261
- 0.999999999998297733894900
- 0.999999999998462540205572]';
+ //reference Yr=erf(X) generee par Maple
+ //pm:=array(1..1001):x:=-5:
+ //for k from 1 to 1001 do
+ //pm[k]:=evalf[24](erf(x)):
+ //x:=x+0.01:end do;
+ x=-5:0.01:5;
+ y=[-0.999999999998462540205572
+ -0.999999999998297733894900
+ -0.999999999998115631480261
+ -0.999999999997914458007001
+ -0.999999999997692260661541
+ -0.999999999997446891397149
+ -0.999999999997175987908301
+ -0.999999999996876952801260
+ -0.999999999996546930794861
+ -0.999999999996182783770717
+ -0.999999999995781063475994
+ -0.999999999995337981664472
+ -0.999999999994849377442675
+ -0.999999999994310681567322
+ -0.999999999993716877418075
+ -0.999999999993062458345374
+ -0.999999999992341381066975
+ -0.999999999991547014758366
+ -0.999999999990672085451468
+ -0.999999999989708615322670
+ -0.999999999988647856415078
+ -0.999999999987480218300757
+ -0.999999999986195189146334
+ -0.999999999984781249599477
+ -0.999999999983225778864110
+ -0.999999999981514952278515
+ -0.999999999979633629652374
+ -0.999999999977565233555991
+ -0.999999999975291616686970
+ -0.999999999972792917366275
+ -0.999999999970047402136203
+ -0.999999999967031294347156
+ -0.999999999963718587527495
+ -0.999999999960080842230859
+ -0.999999999956086964947412
+ -0.999999999951702967549089
+ -0.999999999946891705613252
+ -0.999999999941612593833703
+ -0.999999999935821296581860
+ -0.999999999929469391523360
+ -0.999999999922504004025582
+ -0.999999999914867409908580
+ -0.999999999906496603894840
+ -0.999999999897322830900966
+ -0.999999999887271077085832
+ -0.999999999876259517323697
+ -0.999999999864198915505960
+ -0.999999999850991973790366
+ -0.999999999836532626610029
+ -0.999999999820705274925103
+ -0.999999999803383955845711
+ -0.999999999784431442373954
+ -0.999999999763698267603729
+ -0.999999999741021667277623
+ -0.999999999716224434128131
+ -0.999999999689113676923764
+ -0.999999999659479476596644
+ -0.999999999627093431244556
+ -0.999999999591707081174197
+ -0.999999999553050204480830
+ -0.999999999510828972939411
+ -0.999999999464723957210342
+ -0.999999999414387969535759
+ -0.999999999359443731215952
+ -0.999999999299481351206210
+ -0.999999999234055601157792
+ -0.999999999162682971138542
+ -0.999999999084838489103913
+ -0.999999998999952285943071
+ -0.999999998907405886591731
+ -0.999999998806528206277959
+ -0.999999998696591229443244
+ -0.999999998576805347252390
+ -0.999999998446314327865434
+ -0.999999998304189891785759
+ -0.999999998149425862613257
+ -0.999999997980931861411821
+ -0.999999997797526510638154
+ -0.999999997597930111164948
+ -0.999999997380756753356393
+ -0.999999997144505820407811
+ -0.999999996887552839233372
+ -0.999999996608139631065173
+ -0.999999996304363710601733
+ -0.999999995974166879001692
+ -0.999999995615322952246180
+ -0.999999995225424562376994
+ -0.999999994801868964843021
+ -0.999999994341842780638679
+ -0.999999993842305597079599
+ -0.999999993299972345915102
+ -0.999999992711294372006456
+ -0.999999992072439099985541
+ -0.999999991379268200130508
+ -0.999999990627314148132540
+ -0.999999989811755066458970
+ -0.999999988927387727619661
+ -0.999999987968598591791738
+ -0.999999986929332742926881
+ -0.999999985803060578628974
+ -0.999999984582742099719981
+ -0.999999983260788635479157
+ -0.999999981829021830014495
+ -0.999999980278629704073472
+ -0.999999978600119594788978
+ -0.999999976783267763350693
+ -0.999999974817065447355071
+ -0.999999972689661120580137
+ -0.999999970388298708114035
+ -0.999999967899251489096719
+ -0.999999965207751402768258
+ -0.999999962297913456009131
+ -0.999999959152654912059634
+ -0.999999955753608920567185
+ -0.999999952081032228479841
+ -0.999999948113706589527419
+ -0.999999943828833467051722
+ -0.999999939201921600705774
+ -0.999999934206666981977303
+ -0.999999928814824756540487
+ -0.999999922996072543035871
+ -0.999999916717864627952817
+ -0.999999909945276464770342
+ -0.999999902640838872326778
+ -0.999999894764361292459493
+ -0.999999886272743430203347
+ -0.999999877119774561178120
+ -0.999999867255919750145400
+ -0.999999856628092181986012
+ -0.999999845179410761448597
+ -0.999999832848942090853798
+ -0.999999819571425885409310
+ -0.999999805276982833797809
+ -0.999999789890803857138683
+ -0.999999773332819662188394
+ -0.999999755517349424622676
+ -0.999999736352727375323111
+ -0.999999715740905996653838
+ -0.999999693577034466641037
+ -0.999999669749010916634964
+ -0.999999644137006992314701
+ -0.999999616612963128659530
+ -0.999999587040052866624547
+ -0.999999555272114452585247
+ -0.999999521153047871016725
+ -0.999999484516175366204968
+ -0.999999445183563409904602
+ -0.999999402965303968610622
+ -0.999999357658752816349255
+ -0.999999309047722526460751
+ -0.999999256901627658587254
+ -0.999999200974579534832405
+ -0.999999141004427871663589
+ -0.999999076711746401418634
+ -0.999999007798759479089598
+ -0.999998933948206526218906
+ -0.999998854822141014087435
+ -0.999998770060660532728832
+ -0.999998679280564330496742
+ -0.999998582073934540768369
+ -0.999998478006637137714638
+ -0.999998366616738481729930
+ -0.999998247412833126918517
+ -0.999998119872278367806604
+ -0.999997983439330800015059
+ -0.999997837523179959816750
+ -0.999997681495873890143584
+ -0.999997514690131255533768
+ -0.999997336397034395554135
+ -0.999997145863597465233101
+ -0.999996942290203561838538
+ -0.999996724827904479777092
+ -0.999996492575576469327953
+ -0.999996244576925100210857
+ -0.999995979817332047487635
+ -0.999995697220536324878170
+ -0.999995395645142189112255
+ -0.999995073880945628324028
+ -0.999994730645071027620088
+ -0.999994364577909275721057
+ -0.999993974238848237905028
+ -0.999993558101786172297790
+ -0.999993114550418308799710
+ -0.999992641873286442566995
+ -0.999992138258581016945169
+ -0.999991601788684784070191
+ -0.999991030434446735009890
+ -0.999990422049174585335565
+ -0.999989774362333686430315
+ -0.999989084972939807716761
+ -0.999988351342632800403966
+ -0.999987570788417709415870
+ -0.999986740475059447000171
+ -0.999985857407116679281056
+ -0.999984918420600105892450
+ -0.999983920174239833019164
+ -0.999982859140346051919802
+ -0.999981731595246738576625
+ -0.999980533609285585815045
+ -0.999979261036362867394040
+ -0.999977909503001414558627
+ -0.999976474396919359773184
+ -0.999974950855090770264459
+ -0.999973333751274756079605
+ -0.999971617682993094132439
+ -0.999969796957935861737626
+ -0.999967865579774021028779
+ -0.999965817233357340078774
+ -0.999963645269275478192029
+ -0.999961342687759502470105
+ -0.999958902121900541164316
+ -0.999956315820161717373451
+ -0.999953575628158945224767
+ -0.999950672969685610748981
+ -0.999947598826955602236751
+ -0.999944343720038601012541
+ -0.999940897685460994406321
+ -0.999937250253945229426789
+ -0.999933390427259889483441
+ -0.999929306654152248770470
+ -0.999924986805334540975777
+ -0.999920418147494672237463
+ -0.999915587316301614224693
+ -0.999910480288375233419033
+ -0.999905082352189848729210
+ -0.999899378077880363163096
+ -0.999893351285919388145981
+ -0.999886985014633373018311
+ -0.999880261486525369137321
+ -0.999873162073371699777589
+ -0.999865667260059475670860
+ -0.999857756607131593604098
+ -0.999849408712005584127087
+ -0.999840601168832436289035
+ -0.999831310526961324669729
+ -0.999821512247975999096039
+ -0.999811180661268472697860
+ -0.999800288918115561773568
+ -0.999788808944223793772524
+ -0.999776711390708210081766
+ -0.999763965583470650796009
+ -0.999750539470943221871744
+ -0.999736399570162813678909
+ -0.999721510911142766670001
+ -0.999705836979508067426713
+ -0.999689339657360809492885
+ -0.999671979162343070964282
+ -0.999653713984864847611602
+ -0.999634500823465239215587
+ -0.999614294518275720661921
+ -0.999593047982555041060436
+ -0.999570712132266086606323
+ -0.999547235813665918980236
+ -0.999522565728881163674247
+ -0.999496646359441974605568
+ -0.999469419887748945596554
+ -0.999440826116448578590456
+ -0.999410802385694255639232
+ -0.999379283488271099505731
+ -0.999346201582564648884856
+ -0.999311486103354921430255
+ -0.999275063670419193575791
+ -0.999236857994928693095374
+ -0.999196789783626380902110
+ -0.999154776640775095111632
+ -0.999110732967867545150889
+ -0.999064569861091978842036
+ -0.999016195006549802974103
+ -0.998965512573224019809696
+ -0.998912423103700050040183
+ -0.998856823402643348534653
+ -0.998798606423041184302075
+ -0.998737661150219051712021
+ -0.998673872483645407328131
+ -0.998607121116541786642636
+ -0.998537283413318848302089
+ -0.998464231284862520615845
+ -0.998387832061698186549948
+ -0.998307948365064739107359
+ -0.998224437975934368814823
+ -0.998137153702018108556548
+ -0.998045943242801457529124
+ -0.997950649052658834678793
+ -0.997851108202100171372239
+ -0.997747152237207641699493
+ -0.997638607037325344858751
+ -0.997525292671069695356701
+ -0.997407023250733340776017
+ -0.997283606785160610778704
+ -0.997154845031177801648948
+ -0.997020533343667014496115
+ -0.996880460524377788338765
+ -0.996734408669576397404104
+ -0.996582153016638410456033
+ -0.996423461789695933775340
+ -0.996258096044456873132539
+ -0.996085809512319547895015
+ -0.995906348443912066070672
+ -0.995719451452192015978668
+ -0.995524849355248241312063
+ -0.995322265018952734162069
+ -0.995111413199616997238347
+ -0.994892000386813583757223
+ -0.994663724646529912575485
+ -0.994426275464827868000969
+ -0.994179333592189118776836
+ -0.993922570888732519066544
+ -0.993655650170496375504198
+ -0.993378225056984767759469
+ -0.993089939820183484438217
+ -0.992790429235257469948358
+ -0.992479318433147959270642
+ -0.992156222755293694076721
+ -0.991820747610706752658708
+ -0.991472488335639574649461
+ -0.991111030056085706155210
+ -0.990735947553362618000491
+ -0.990346805133030645297762
+ -0.989943156497407646205095
+ -0.989524544621944366953582
+ -0.989090501635730714183733
+ -0.988640548706408159263284
+ -0.988174195929768317289394
+ -0.987690942224322340437041
+ -0.987190275231130125566791
+ -0.986671671219182443772211
+ -0.986134594996632938939331
+ -0.985578499828180497431188
+ -0.985002827358905745666562
+ -0.984407007544868370574912
+ -0.983790458590774563626243
+ -0.983152586895026146341339
+ -0.982492787002464827943096
+ -0.981810441565126558280198
+ -0.981104921311322055650339
+ -0.980375585023360294162452
+ -0.979621779524232013515387
+ -0.978842839673570150500483
+ -0.978038088373203471420329
+ -0.977206836582618593554779
+ -0.976348383344644007774283
+ -0.975462015821667639794134
+ -0.974547009342696901235481
+ -0.973602627461567070965916
+ -0.972628122026600200033799
+ -0.971622733262012538372566
+ -0.970585689861363727448927
+ -0.969516209093335679948252
+ -0.968413496920123165931304
+ -0.967276748128711635913826
+ -0.966105146475310727066976
+ -0.964897864843204212102907
+ -0.963654065414268855166142
+ -0.962372899854405729886811
+ -0.961053509513118027313721
+ -0.959695025637459232377443
+ -0.958296569600564774513511
+ -0.956857253144968859850497
+ -0.955376178640896168788291
+ -0.953852439359705454847226
+ -0.952285119762648810516483
+ -0.950673295805096476827758
+ -0.949016035256362570111835
+ -0.947312398035251987699776
+ -0.945561436561433041323207
+ -0.943762196122724061065830
+ -0.941913715258365323657307
+ -0.940015026158330197754595
+ -0.938065155078711378050909
+ -0.936063122773199513379509
+ -0.934007944940652436603893
+ -0.931898632688733592554243
+ -0.929734193013578152514172
+ -0.927513629295424719100128
+ -0.925235941810129484510736
+ -0.922900128256458230136523
+ -0.920505184299029669863949
+ -0.918050104126761367892733
+ -0.915533881026646830667193
+ -0.912955507972669409081356
+ -0.910313978229635380238406
+ -0.907608285971685037790485
+ -0.904837426915216837567545
+ -0.902000398965935653353894
+ -0.899096202879712030000041
+ -0.896123842936915012419506
+ -0.893082327629856715369185
+ -0.889970670362962317254718
+ -0.886787890165254649549837
+ -0.883533012414718050732089
+ -0.880205069574081699771868
+ -0.876803101937538279856830
+ -0.873326158387889589649984
+ -0.869773297163586659132690
+ -0.866143586635108082774537
+ -0.862436106090096697765226
+ -0.858649946526651453191925
+ -0.854784211454148381612389
+ -0.850838017700942042052444
+ -0.846810496228276697886304
+ -0.842700792949714869341221
+ -0.838508069555369803579790
+ -0.834231504340207880514292
+ -0.829870293035667064651115
+ -0.825423649643818267103596
+ -0.820890807273277941907934
+ -0.816271018976062450999077
+ -0.811563558584557736234438
+ -0.806767721547761677691787
+ -0.801882825765941237429626
+ -0.796908212422832128518725
+ -0.791843246814495351087002
+ -0.786687319173932540042657
+ -0.781439845490550711651092
+ -0.776100268323556715663465
+ -0.770668057608352532380083
+ -0.765142711454994534663544
+ -0.759523756937772996814901
+ -0.753810750874962507155164
+ -0.748003280597789559230994
+ -0.742100964707660486167111
+ -0.736103453820691090374864
+ -0.730010431298578831244359
+ -0.723821613964859289254273
+ -0.717536752805590846718625
+ -0.711155633653515131598938
+ -0.704678077854745777673723
+ -0.698103942917044475821896
+ -0.691433123138751138842000
+ -0.684665550217444285287115
+ -0.677801193837418472975629
+ -0.670840062235077784356887
+ -0.663782202741357985424868
+ -0.656627702300305046439084
+ -0.649376687962954222750275
+ -0.642029327355671841292946
+ -0.634585829122141313859706
+ -0.627046443338195690464736
+ -0.619411461898721260562292
+ -0.611681218875880289504687
+ -0.603856090847925922562622
+ -0.595936497197908576518189
+ -0.587922900381600743987037
+ -0.579815806163996030236782
+ -0.571615763823768395668684
+ -0.563323366325108955991688
+ -0.554939250456390260497539
+ -0.546464096935141688222533
+ -0.537898630478854431106614
+ -0.529243619841170429010070
+ -0.520499877813046537682747
+ -0.511668261188523099211697
+ -0.502749670694764894533266
+ -0.493745050886082136517092
+ -0.484655390001679655026703
+ -0.475481719786923675319682
+ -0.466225115277957539319705
+ -0.456886694549540304987442
+ -0.447467618426025319819411
+ -0.437969090155439536373130
+ -0.428392355046668455103604
+ -0.418738700069796075759558
+ -0.409009453419694044918239
+ -0.399205984042999234582144
+ -0.389329701128664204753628
+ -0.379382053562310320297300
+ -0.369364529344658637204124
+ -0.359278654974358972988254
+ -0.349125994795582757315695
+ -0.338908150310790248699499
+ -0.328626759459127427638914
+ -0.318283495860952262338992
+ -0.307880068029034016649000
+ -0.297418218547012757893882
+ -0.286899723215749152048332
+ -0.276326390168236932985068
+ -0.265700058953792029795712
+ -0.255022599592273160770179
+ -0.244295911599128684869262
+ -0.233521922982103572925263
+ -0.222702589210478454140139
+ -0.211839892157749742936947
+ -0.200935839018695792648413
+ -0.189992461201808793395082
+ -0.179011813198105671155184
+ -0.167995971427363494770210
+ -0.156947033062855800871902
+ -0.145867114835695749082958
+ -0.134758351819920069295014
+ -0.123622896199474309769839
+ -0.112462916018284892203275
+ -0.101280593914626883352498
+ -0.0900781258410181607233922
+ -0.0788577197708907433569970
+ -0.0676215943933084420794315
+ -0.0563719777970166238312711
+ -0.0451111061451247520897491
+ -0.0338412223417354333022167
+ -0.0225645746918449442243659
+ -0.0112834155558496169159095
+ 0.
+ 0.0112834155558496169159095
+ 0.0225645746918449442243659
+ 0.0338412223417354333022167
+ 0.0451111061451247520897491
+ 0.0563719777970166238312711
+ 0.0676215943933084420794315
+ 0.0788577197708907433569970
+ 0.0900781258410181607233922
+ 0.101280593914626883352498
+ 0.112462916018284892203275
+ 0.123622896199474309769839
+ 0.134758351819920069295014
+ 0.145867114835695749082958
+ 0.156947033062855800871902
+ 0.167995971427363494770210
+ 0.179011813198105671155184
+ 0.189992461201808793395082
+ 0.200935839018695792648413
+ 0.211839892157749742936947
+ 0.222702589210478454140139
+ 0.233521922982103572925263
+ 0.244295911599128684869262
+ 0.255022599592273160770179
+ 0.265700058953792029795712
+ 0.276326390168236932985068
+ 0.286899723215749152048332
+ 0.297418218547012757893882
+ 0.307880068029034016649000
+ 0.318283495860952262338992
+ 0.328626759459127427638914
+ 0.338908150310790248699499
+ 0.349125994795582757315695
+ 0.359278654974358972988254
+ 0.369364529344658637204124
+ 0.379382053562310320297300
+ 0.389329701128664204753628
+ 0.399205984042999234582144
+ 0.409009453419694044918239
+ 0.418738700069796075759558
+ 0.428392355046668455103604
+ 0.437969090155439536373130
+ 0.447467618426025319819411
+ 0.456886694549540304987442
+ 0.466225115277957539319705
+ 0.475481719786923675319682
+ 0.484655390001679655026703
+ 0.493745050886082136517092
+ 0.502749670694764894533266
+ 0.511668261188523099211697
+ 0.520499877813046537682747
+ 0.529243619841170429010070
+ 0.537898630478854431106614
+ 0.546464096935141688222533
+ 0.554939250456390260497539
+ 0.563323366325108955991688
+ 0.571615763823768395668684
+ 0.579815806163996030236782
+ 0.587922900381600743987037
+ 0.595936497197908576518189
+ 0.603856090847925922562622
+ 0.611681218875880289504687
+ 0.619411461898721260562292
+ 0.627046443338195690464736
+ 0.634585829122141313859706
+ 0.642029327355671841292946
+ 0.649376687962954222750275
+ 0.656627702300305046439084
+ 0.663782202741357985424868
+ 0.670840062235077784356887
+ 0.677801193837418472975629
+ 0.684665550217444285287115
+ 0.691433123138751138842000
+ 0.698103942917044475821896
+ 0.704678077854745777673723
+ 0.711155633653515131598938
+ 0.717536752805590846718625
+ 0.723821613964859289254273
+ 0.730010431298578831244359
+ 0.736103453820691090374864
+ 0.742100964707660486167111
+ 0.748003280597789559230994
+ 0.753810750874962507155164
+ 0.759523756937772996814901
+ 0.765142711454994534663544
+ 0.770668057608352532380083
+ 0.776100268323556715663465
+ 0.781439845490550711651092
+ 0.786687319173932540042657
+ 0.791843246814495351087002
+ 0.796908212422832128518725
+ 0.801882825765941237429626
+ 0.806767721547761677691787
+ 0.811563558584557736234438
+ 0.816271018976062450999077
+ 0.820890807273277941907934
+ 0.825423649643818267103596
+ 0.829870293035667064651115
+ 0.834231504340207880514292
+ 0.838508069555369803579790
+ 0.842700792949714869341221
+ 0.846810496228276697886304
+ 0.850838017700942042052444
+ 0.854784211454148381612389
+ 0.858649946526651453191925
+ 0.862436106090096697765226
+ 0.866143586635108082774537
+ 0.869773297163586659132690
+ 0.873326158387889589649984
+ 0.876803101937538279856830
+ 0.880205069574081699771868
+ 0.883533012414718050732089
+ 0.886787890165254649549837
+ 0.889970670362962317254718
+ 0.893082327629856715369185
+ 0.896123842936915012419506
+ 0.899096202879712030000041
+ 0.902000398965935653353894
+ 0.904837426915216837567545
+ 0.907608285971685037790485
+ 0.910313978229635380238406
+ 0.912955507972669409081356
+ 0.915533881026646830667193
+ 0.918050104126761367892733
+ 0.920505184299029669863949
+ 0.922900128256458230136523
+ 0.925235941810129484510736
+ 0.927513629295424719100128
+ 0.929734193013578152514172
+ 0.931898632688733592554243
+ 0.934007944940652436603893
+ 0.936063122773199513379509
+ 0.938065155078711378050909
+ 0.940015026158330197754595
+ 0.941913715258365323657307
+ 0.943762196122724061065830
+ 0.945561436561433041323207
+ 0.947312398035251987699776
+ 0.949016035256362570111835
+ 0.950673295805096476827758
+ 0.952285119762648810516483
+ 0.953852439359705454847226
+ 0.955376178640896168788291
+ 0.956857253144968859850497
+ 0.958296569600564774513511
+ 0.959695025637459232377443
+ 0.961053509513118027313721
+ 0.962372899854405729886811
+ 0.963654065414268855166142
+ 0.964897864843204212102907
+ 0.966105146475310727066976
+ 0.967276748128711635913826
+ 0.968413496920123165931304
+ 0.969516209093335679948252
+ 0.970585689861363727448927
+ 0.971622733262012538372566
+ 0.972628122026600200033799
+ 0.973602627461567070965916
+ 0.974547009342696901235481
+ 0.975462015821667639794134
+ 0.976348383344644007774283
+ 0.977206836582618593554779
+ 0.978038088373203471420329
+ 0.978842839673570150500483
+ 0.979621779524232013515387
+ 0.980375585023360294162452
+ 0.981104921311322055650339
+ 0.981810441565126558280198
+ 0.982492787002464827943096
+ 0.983152586895026146341339
+ 0.983790458590774563626243
+ 0.984407007544868370574912
+ 0.985002827358905745666562
+ 0.985578499828180497431188
+ 0.986134594996632938939331
+ 0.986671671219182443772211
+ 0.987190275231130125566791
+ 0.987690942224322340437041
+ 0.988174195929768317289394
+ 0.988640548706408159263284
+ 0.989090501635730714183733
+ 0.989524544621944366953582
+ 0.989943156497407646205095
+ 0.990346805133030645297762
+ 0.990735947553362618000491
+ 0.991111030056085706155210
+ 0.991472488335639574649461
+ 0.991820747610706752658708
+ 0.992156222755293694076721
+ 0.992479318433147959270642
+ 0.992790429235257469948358
+ 0.993089939820183484438217
+ 0.993378225056984767759469
+ 0.993655650170496375504198
+ 0.993922570888732519066544
+ 0.994179333592189118776836
+ 0.994426275464827868000969
+ 0.994663724646529912575485
+ 0.994892000386813583757223
+ 0.995111413199616997238347
+ 0.995322265018952734162069
+ 0.995524849355248241312063
+ 0.995719451452192015978668
+ 0.995906348443912066070672
+ 0.996085809512319547895015
+ 0.996258096044456873132539
+ 0.996423461789695933775340
+ 0.996582153016638410456033
+ 0.996734408669576397404104
+ 0.996880460524377788338765
+ 0.997020533343667014496115
+ 0.997154845031177801648948
+ 0.997283606785160610778704
+ 0.997407023250733340776017
+ 0.997525292671069695356701
+ 0.997638607037325344858751
+ 0.997747152237207641699493
+ 0.997851108202100171372239
+ 0.997950649052658834678793
+ 0.998045943242801457529124
+ 0.998137153702018108556548
+ 0.998224437975934368814823
+ 0.998307948365064739107359
+ 0.998387832061698186549948
+ 0.998464231284862520615845
+ 0.998537283413318848302089
+ 0.998607121116541786642636
+ 0.998673872483645407328131
+ 0.998737661150219051712021
+ 0.998798606423041184302075
+ 0.998856823402643348534653
+ 0.998912423103700050040183
+ 0.998965512573224019809696
+ 0.999016195006549802974103
+ 0.999064569861091978842036
+ 0.999110732967867545150889
+ 0.999154776640775095111632
+ 0.999196789783626380902110
+ 0.999236857994928693095374
+ 0.999275063670419193575791
+ 0.999311486103354921430255
+ 0.999346201582564648884856
+ 0.999379283488271099505731
+ 0.999410802385694255639232
+ 0.999440826116448578590456
+ 0.999469419887748945596554
+ 0.999496646359441974605568
+ 0.999522565728881163674247
+ 0.999547235813665918980236
+ 0.999570712132266086606323
+ 0.999593047982555041060436
+ 0.999614294518275720661921
+ 0.999634500823465239215587
+ 0.999653713984864847611602
+ 0.999671979162343070964282
+ 0.999689339657360809492885
+ 0.999705836979508067426713
+ 0.999721510911142766670001
+ 0.999736399570162813678909
+ 0.999750539470943221871744
+ 0.999763965583470650796009
+ 0.999776711390708210081766
+ 0.999788808944223793772524
+ 0.999800288918115561773568
+ 0.999811180661268472697860
+ 0.999821512247975999096039
+ 0.999831310526961324669729
+ 0.999840601168832436289035
+ 0.999849408712005584127087
+ 0.999857756607131593604098
+ 0.999865667260059475670860
+ 0.999873162073371699777589
+ 0.999880261486525369137321
+ 0.999886985014633373018311
+ 0.999893351285919388145981
+ 0.999899378077880363163096
+ 0.999905082352189848729210
+ 0.999910480288375233419033
+ 0.999915587316301614224693
+ 0.999920418147494672237463
+ 0.999924986805334540975777
+ 0.999929306654152248770470
+ 0.999933390427259889483441
+ 0.999937250253945229426789
+ 0.999940897685460994406321
+ 0.999944343720038601012541
+ 0.999947598826955602236751
+ 0.999950672969685610748981
+ 0.999953575628158945224767
+ 0.999956315820161717373451
+ 0.999958902121900541164316
+ 0.999961342687759502470105
+ 0.999963645269275478192029
+ 0.999965817233357340078774
+ 0.999967865579774021028779
+ 0.999969796957935861737626
+ 0.999971617682993094132439
+ 0.999973333751274756079605
+ 0.999974950855090770264459
+ 0.999976474396919359773184
+ 0.999977909503001414558627
+ 0.999979261036362867394040
+ 0.999980533609285585815045
+ 0.999981731595246738576625
+ 0.999982859140346051919802
+ 0.999983920174239833019164
+ 0.999984918420600105892450
+ 0.999985857407116679281056
+ 0.999986740475059447000171
+ 0.999987570788417709415870
+ 0.999988351342632800403966
+ 0.999989084972939807716761
+ 0.999989774362333686430315
+ 0.999990422049174585335565
+ 0.999991030434446735009890
+ 0.999991601788684784070191
+ 0.999992138258581016945169
+ 0.999992641873286442566995
+ 0.999993114550418308799710
+ 0.999993558101786172297790
+ 0.999993974238848237905028
+ 0.999994364577909275721057
+ 0.999994730645071027620088
+ 0.999995073880945628324028
+ 0.999995395645142189112255
+ 0.999995697220536324878170
+ 0.999995979817332047487635
+ 0.999996244576925100210857
+ 0.999996492575576469327953
+ 0.999996724827904479777092
+ 0.999996942290203561838538
+ 0.999997145863597465233101
+ 0.999997336397034395554135
+ 0.999997514690131255533768
+ 0.999997681495873890143584
+ 0.999997837523179959816750
+ 0.999997983439330800015059
+ 0.999998119872278367806604
+ 0.999998247412833126918517
+ 0.999998366616738481729930
+ 0.999998478006637137714638
+ 0.999998582073934540768369
+ 0.999998679280564330496742
+ 0.999998770060660532728832
+ 0.999998854822141014087435
+ 0.999998933948206526218906
+ 0.999999007798759479089598
+ 0.999999076711746401418634
+ 0.999999141004427871663589
+ 0.999999200974579534832405
+ 0.999999256901627658587254
+ 0.999999309047722526460751
+ 0.999999357658752816349255
+ 0.999999402965303968610622
+ 0.999999445183563409904602
+ 0.999999484516175366204968
+ 0.999999521153047871016725
+ 0.999999555272114452585247
+ 0.999999587040052866624547
+ 0.999999616612963128659530
+ 0.999999644137006992314701
+ 0.999999669749010916634964
+ 0.999999693577034466641037
+ 0.999999715740905996653838
+ 0.999999736352727375323111
+ 0.999999755517349424622676
+ 0.999999773332819662188394
+ 0.999999789890803857138683
+ 0.999999805276982833797809
+ 0.999999819571425885409310
+ 0.999999832848942090853798
+ 0.999999845179410761448597
+ 0.999999856628092181986012
+ 0.999999867255919750145400
+ 0.999999877119774561178120
+ 0.999999886272743430203347
+ 0.999999894764361292459493
+ 0.999999902640838872326778
+ 0.999999909945276464770342
+ 0.999999916717864627952817
+ 0.999999