tests/rtest_ask.mac

   1 /* Test askinteger and asksign -- these are interactive,
   2  * therefore this script SHOULD NOT be included in testsuite_files.
   3  *
   4  * You can run this script via batch("tests/rtest_ask.mac", test);
   5  * and respond as indicated by the messages.
   6  * The appropriate inputs are also contained in tests/rtest_ask_input.mac
   7  * and therefore you can run all tests automatically like this:
   8  *
   9  * maxima --batch-string='batch("tests/rtest_ask.mac", test);' < tests/rtest_ask_input.mac
  10  */
  11
  12 (kill(all),0);
  13 0$
  14
  15 /* commit 3137b946 tried to fix *LOCAL-SIGNS* craziness,
  16  * but screwed up in its own way. Fixed for good this time?
  17  * Nicked from mailing list circa 2013-08-28
  18  */
  19 block (print ("Please enter 'p;' now:"), 0);
  20 0;
  21
  22 integrate(sin(omega*t)*exp(-s*t),t,0,inf);
  23 omega/(s^2+omega^2);
  24
  25 block (print ("Please enter 'p;' now:"), 0);
  26 0;
  27
  28 [asksign (foo), sign (foo), sign (foo)];
  29 [pos, pos, pos];
  30
  31 block (print ("Please enter 'n;' now:"), 0);
  32 0;
  33
  34 [asksign (foo), sign (foo), sign (foo)];
  35 [neg, neg, neg];
  36
  37 block (print ("Please enter 'z;' now:"), 0);
  38 0;
  39
  40 [asksign (foo), sign (foo), sign (foo)];
  41 [zero, zero, zero];
  42
  43 block (print ("Please enter 'p;' now:"), 0);
  44 0;
  45
  46 limit((exp(a*x)-1)/(exp(a*x)+1),x,inf);
  47 1;
  48
  49 block (print ("Please enter 'n;' now:"), 0);
  50 0;
  51
  52 limit((exp(a*x)-1)/(exp(a*x)+1),x,inf);
  53 -1;
  54
  55 block (print ("Please enter 'z;' now:"), 0);
  56 0;
  57
  58 limit((exp(a*x)-1)/(exp(a*x)+1),x,inf);
  59 0;
  60
  61 /* mailing list 2017-11-25: "bug in Laplace transform"
  62  * root cause is asksign(-a^2) forgot the minus sign,
  63  * so include some cases to handle that and then the Laplace transform.
  64  */
  65
  66 (print ("Please enter 'z;' now:"), 0);
  67 0;
  68 asksign (a^2);
  69 zero;
  70
  71 (print ("Please enter 'nz;' now:"), 0);
  72 0;
  73 asksign (a^2);
  74 pos;
  75
  76 (print ("Please enter 'p;' now:"), 0);
  77 0;
  78 asksign (a^3);
  79 pos;
  80
  81 (print ("Please enter 'n;' now:"), 0);
  82 0;
  83 asksign (a^3);
  84 neg;
  85
  86 (print ("Please enter 'z;' now:"), 0);
  87 0;
  88 asksign (a^3);
  89 zero;
  90
  91 (print ("Please enter 'z;' now:"), 0);
  92 0;
  93 asksign (-a^2);
  94 zero;
  95
  96 (print ("Please enter 'nz;' now:"), 0);
  97 0;
  98 asksign (-a^2);
  99 neg;
 100
 101 (print ("Please enter 'p;' now:"), 0);
 102 0;
 103 asksign (-a^3);
 104 neg;
 105
 106 (print ("Please enter 'n;' now:"), 0);
 107 0;
 108 asksign (-a^3);
 109 pos;
 110
 111 (print ("Please enter 'z;' now:"), 0);
 112 0;
 113 asksign (-a^3);
 114 zero;
 115
 116 (print ("Please enter 'z;' now:"), 0);
 117 0;
 118 asksign (a^4);
 119 zero;
 120
 121 (print ("Please enter 'nz;' now:"), 0);
 122 0;
 123 asksign (a^4);
 124 pos;
 125
 126 (print ("Please enter 'p;' now:"), 0);
 127 0;
 128 asksign (a^5);
 129 pos;
 130
 131 (print ("Please enter 'n;' now:"), 0);
 132 0;
 133 asksign (a^5);
 134 neg;
 135
 136 (print ("Please enter 'z;' now:"), 0);
 137 0;
 138 asksign (a^5);
 139 zero;
 140
 141 (print ("Please enter 'z;' now:"), 0);
 142 0;
 143 asksign (-a^4);
 144 zero;
 145
 146 (print ("Please enter 'nz;' now:"), 0);
 147 0;
 148 asksign (-a^4);
 149 neg;
 150
 151 (print ("Please enter 'p;' now:"), 0);
 152 0;
 153 asksign (-a^5);
 154 neg;
 155
 156 (print ("Please enter 'n;' now:"), 0);
 157 0;
 158 asksign (-a^5);
 159 pos;
 160
 161 (print ("Please enter 'z;' now:"), 0);
 162 0;
 163 asksign (-a^5);
 164 zero;
 165
 166 (print ("Please enter 'p;' now:"), 0);
 167 0;
 168 asksign (a*b^2);
 169 pos;
 170
 171 (print ("Please enter 'n;' now:"), 0);
 172 0;
 173 asksign (a*b^2);
 174 neg;
 175
 176 (print ("Please enter 'z;' now:"), 0);
 177 0;
 178 asksign (a*b^2);
 179 zero;
 180
 181 (print ("Please enter 'p;' now:"), 0);
 182 0;
 183 asksign (a*b^3);
 184 pos;
 185
 186 (print ("Please enter 'n;' now:"), 0);
 187 0;
 188 asksign (a*b^3);
 189 neg;
 190
 191 (print ("Please enter 'z;' now:"), 0);
 192 0;
 193 asksign (a*b^3);
 194 zero;
 195
 196 (print ("Please enter 'p;' now:"), 0);
 197 0;
 198 asksign (-a*b^2);
 199 neg;
 200
 201 (print ("Please enter 'n;' now:"), 0);
 202 0;
 203 asksign (-a*b^2);
 204 pos;
 205
 206 (print ("Please enter 'z;' now:"), 0);
 207 0;
 208 asksign (-a*b^2);
 209 zero;
 210
 211 (print ("Please enter 'p;' now:"), 0);
 212 0;
 213 asksign (-a*b^3);
 214 neg;
 215
 216 (print ("Please enter 'n;' now:"), 0);
 217 0;
 218 asksign (-a*b^3);
 219 pos;
 220
 221 (print ("Please enter 'z;' now:"), 0);
 222 0;
 223 asksign (-a*b^3);
 224 zero;
 225
 226 (print ("Please enter 'p;' now:"), 0);
 227 0;
 228 asksign (a*b^4);
 229 pos;
 230
 231 (print ("Please enter 'n;' now:"), 0);
 232 0;
 233 asksign (a*b^4);
 234 neg;
 235
 236 (print ("Please enter 'z;' now:"), 0);
 237 0;
 238 asksign (a*b^4);
 239 zero;
 240
 241 (print ("Please enter 'p;' now:"), 0);
 242 0;
 243 asksign (-a*b^4);
 244 neg;
 245
 246 (print ("Please enter 'n;' now:"), 0);
 247 0;
 248 asksign (-a*b^4);
 249 pos;
 250
 251 (print ("Please enter 'z;' now:"), 0);
 252 0;
 253 asksign (-a*b^4);
 254 zero;
 255
 256 (print ("Please enter 'z;' now:"), 0);
 257 0;
 258 asksign (a^2*b^2);
 259 zero;
 260
 261 (print ("Please enter 'nz;' now:"), 0);
 262 0;
 263 asksign (a^2*b^2);
 264 pos;
 265
 266 (print ("Please enter 'p;' now:"), 0);
 267 0;
 268 asksign (a^2*b^3);
 269 pos;
 270
 271 (print ("Please enter 'n;' now:"), 0);
 272 0;
 273 asksign (a^2*b^3);
 274 neg;
 275
 276 (print ("Please enter 'z;' now:"), 0);
 277 0;
 278 asksign (a^2*b^3);
 279 zero;
 280
 281 (print ("Please enter 'z;' now:"), 0);
 282 0;
 283 asksign (-a^2*b^2);
 284 zero;
 285
 286 (print ("Please enter 'nz;' now:"), 0);
 287 0;
 288 asksign (-a^2*b^2);
 289 neg;
 290
 291 (print ("Please enter 'p;' now:"), 0);
 292 0;
 293 asksign (-a^2*b^3);
 294 neg;
 295
 296 (print ("Please enter 'n;' now:"), 0);
 297 0;
 298 asksign (-a^2*b^3);
 299 pos;
 300
 301 (print ("Please enter 'z;' now:"), 0);
 302 0;
 303 asksign (-a^2*b^3);
 304 zero;
 305
 306 (print ("Please enter 'z;' now:"), 0);
 307 0;
 308 asksign (a^2*b^4);
 309 zero;
 310
 311 (print ("Please enter 'nz;' now:"), 0);
 312 0;
 313 asksign (a^2*b^4);
 314 pos;
 315
 316 (print ("Please enter 'p;' now:"), 0);
 317 0;
 318 asksign (a^2*b^5);
 319 pos;
 320
 321 (print ("Please enter 'n;' now:"), 0);
 322 0;
 323 asksign (a^2*b^5);
 324 neg;
 325
 326 (print ("Please enter 'z;' now:"), 0);
 327 0;
 328 asksign (a^2*b^5);
 329 zero;
 330
 331 (print ("Please enter 'z;' now:"), 0);
 332 0;
 333 asksign (-a^2*b^4);
 334 zero;
 335
 336 (print ("Please enter 'nz;' now:"), 0);
 337 0;
 338 asksign (-a^2*b^4);
 339 neg;
 340
 341 (print ("Please enter 'p;' now:"), 0);
 342 0;
 343 asksign (-a^2*b^5);
 344 neg;
 345
 346 (print ("Please enter 'n;' now:"), 0);
 347 0;
 348 asksign (-a^2*b^5);
 349 pos;
 350
 351 (print ("Please enter 'z;' now:"), 0);
 352 0;
 353 asksign (-a^2*b^5);
 354 zero;
 355
 356 /* here's the Laplace transform that exposed the bug */
 357
 358 (print ("Please enter 'z;' now:"), 0);
 359 0;
 360 laplace (delta (t - x^2), t, s);
 361 1;
 362
 363 (print ("Please enter 'nz;' now:"), 0);
 364 0;
 365 laplace (delta (t - x^2), t, s);
 366 exp(-s*x^2);