{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Input" 2 19 "" 0 1 255 0 0 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
257 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 261 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
262 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 265 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 266 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
267 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 270 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 271 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
272 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 273 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 274 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 275 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 276 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
277 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 278 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 279 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 280 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 281 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
282 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 283 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 284 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 285 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 286 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
287 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 288 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 289 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 290 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 291 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
292 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 293 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 294 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 295 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 296 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
297 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 298 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 299 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 300 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 301 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
302 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 303 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 304 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 305 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 306 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
307 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 308 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 309 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 310 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 311 "" 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 
312 "" 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 313 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 314 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 315 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 316 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
317 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 318 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 319 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 320 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 321 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
322 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 323 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 324 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 325 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 326 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
327 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 328 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 329 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 330 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 331 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
332 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 333 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 334 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 335 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 336 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 
337 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 338 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 339 "" 0 1 0 0 0 0 0 1 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 340 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 341 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
342 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 343 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 344 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 345 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 346 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
347 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 348 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 349 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 350 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 351 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
352 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 353 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 354 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 355 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 356 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
357 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 358 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 359 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 360 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 361 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
362 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 363 "" 0 1 0 0 
0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 364 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 365 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 366 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
367 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 368 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 369 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 370 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 371 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
372 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 373 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 374 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 375 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 376 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
377 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 378 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 379 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 380 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 381 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
382 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 383 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 384 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 385 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 386 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
387 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 388 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 389 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 390 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 391 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
392 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 393 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 394 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 395 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 396 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
397 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 398 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 399 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 400 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 401 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
402 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 403 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 404 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 405 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 406 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
407 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 408 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 409 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 410 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 411 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
412 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 413 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 414 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 415 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 416 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
417 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 418 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 419 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 420 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 421 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
422 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 423 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 424 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 425 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 426 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
427 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 428 "" 0 1 0 0 
0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 429 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 430 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 431 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
432 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 433 "" 0 1 0 0 
0 0 1 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 434 "" 0 1 0 0 0 0 1 1 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 435 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 436 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
437 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 438 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 439 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 440 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 441 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
442 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 443 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 444 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 445 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 446 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
447 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 448 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 449 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 450 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 451 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
452 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 453 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 454 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 455 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 456 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
457 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 458 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 459 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 460 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 461 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
462 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 463 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 464 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 465 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 466 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
467 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 468 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 469 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 470 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 471 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
472 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 473 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 474 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 475 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 476 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
477 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 478 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 479 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 480 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 481 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
482 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 483 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 484 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 485 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 486 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
487 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 488 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 489 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 490 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 491 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
492 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 493 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 494 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 495 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 496 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
497 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 498 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 499 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 500 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 501 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
502 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 503 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 504 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 505 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 506 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
507 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 508 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 509 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 510 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 511 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
512 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 513 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 514 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 515 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 516 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
517 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 518 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 519 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 520 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 521 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
522 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 523 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 524 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 525 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 526 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
527 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 528 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 529 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 530 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 531 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
532 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 533 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 534 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 535 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 536 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
537 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 538 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 539 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 540 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 541 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
542 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 543 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 544 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 545 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 546 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
547 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 548 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 549 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 550 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 551 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
552 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 553 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 554 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 555 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 556 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
557 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 558 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 561 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 562 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 
{CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 
4 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier
" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1 10 255 0 255 1 2 
2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output
" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }
3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "
" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 
2 2 0 1 }{PSTYLE "Heading 1" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 18 0 
0 0 1 2 1 1 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Norma
l" -1 257 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 1 2 2 2 1 1 1 1 
}1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Normal" -1 258 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 
0 1 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "\324\340\351\353: \"...
\312\356\354\357\322\345\365\355\\\312\361\345\355\356\364\356\355\362
\356\342\\\304\353\377\307\340\352\340\347\367\350\352\340\\\320\345
\370\321\304\323\361\317\312_\313\376\341\373\345\312\356\360\355\350
\304\353\377\307\340\352.mws\" " }}{PARA 0 "" 0 "" {TEXT -1 20 "05.03.
12. \322\350\362\356\342 \312.\302." }}{PARA 0 "" 0 "" {TEXT -1 73 "
\321\354. \362\340\352\346\345 \"...\312\356\354\357\322\345\365\355\\
Maple\\\304\350\364\323\360\\\320\345\370\321\304\323\361\317\312_\322
\356\353\374\352\356\312\360\340\362\355\312\356\360\355\350\317\360
\350\354\345\3606.mws\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 67 "\315
\305\317\320\310\303\316\304\305\315 \344\353\377 \361\350\354\342\356
\353\374\355\373\365 \342\373\367\350\361\353\345\355\350\351 \342 \+
\362\340\352\356\354 \342\350\344\345. \315\340\344\356 \344\356\360
\340\341\356\362\340\362\374." }}{PARA 0 "" 0 "" {TEXT -1 35 "\315\345
 \360\340\341\356\362\340\345\362 \361 \342\373\360\356\346\344\345
\355\355\356\351 \354\340\362\360\350\366\345\351." }}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 20 "\303\353 2, \3172, \3575_\317\360\350\354\345\360
6" }}{PARA 258 "" 0 "" {TEXT -1 75 "5. \300\353\343\356\360\350\362
\354 \360\345\370\345\355\350\377 \353\350\355\345\351\355\356\351 \+
\356\344\355\356\360\356\344\355\356\351 \361\350\361\362\345\354\373 \+
\344\350\364\364\345\360\345\355\366\350\340\353\374\355\373\365 \363
\360\340\342\355\345\355\350\351 " }}{PARA 258 "" 0 "" {TEXT -1 73 "
\361 \357\356\361\362\356\377\355\355\373\354\350 \352\356\375\364\364
\350\366\350\345\355\362\340\354\350 \344\353\377 \361\353\363\367\340
\377 \353\376\341\373\365 \352\356\360\355\345\351 \365\340\360\340
\352\362\345\360\350\361\362\350\367\345\361\352\356\343\356 " }}
{PARA 258 "" 0 "" {TEXT -1 21 "\363\360\340\342\355\345\355\350\377 (
\354\340\362\360\350\366\373). " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 22 "restart; with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning
, the protected names norm and trace have been redefined and unprotect
ed\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 19 "\307\340\344\340\344\350
\354 \357\356\360\377\344\356\352 \321\304\323" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 6 "n:=4: " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "
\350 \354\340\362\360\350\366\363 " }{TEXT 505 1 "\300" }{TEXT -1 47 "
 \357\360\340\342\373\365 \367\340\361\362\345\351 \321\304\323  (\342
\340\360\350\340\355\362\356\354 \347\340\344\340\355\350\377 \354\340
\362\360\350\366\373 " }{TEXT 506 1 "\300" }{TEXT -1 18 " \354\356\346
\345\362 \341\373\362\374 \362\340\352\346\345 " }}{PARA 0 "" 0 "" 
{TEXT -1 43 "\357\360\356\366\345\344\363\360\340: seq(seq(a[i,j],j=1.
.n),i=1..n) )" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "A:=matrix(
n,n,[]):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 81 "-------------\316\341
\353\340\361\362\374 \357\345\360\345\355\356\361\340 \344\340\355\355
\373\365 \350\347 \344\360\363\343\356\351 \357\360\356\343\360\340
\354\354\373.------------------------" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 47 "\317\360\356\342\345\344\345\354 \342 \350\355\362\345
\360\340\352\362\350\342\355\356\354 \360\345\346\350\354\345 \342\373
\341\356\360 \352\356\355\361\362\340\355\362 " }{TEXT 561 1 "\312" }
{TEXT -1 20 " \350 \347\340\344\340\344\350\354 \350\365 \361\342\377
\347\350:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "H[1]:=H[3]: H[
2]:=0: H[4]:=0: H[5]:=H[7]: H[6]:=0:  H[8]:=0:  H[9]:=0:  H[10]:" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 41 "\342 \352\356\362\356\360\373\351 \+
\341\363\344\345\354 \347\340\357\350\361\373\342\340\362\374 \375\362
\350 \352\356\355\361\362\340\355\362\373 " }{TEXT 562 1 "\312" }
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 327 "A[1,1]:=-H
[1]-H[3]-H[10]: A[1,2]:=H[2]: A[1,3]:=H[4]: A[1,4]:=H[9]:             \+
        A[2,1]:=H[1]:  A[2,2]:=-H[2]-H[5]: A[2,3]:=0: A[2,4]:=H[6]:   \+
                         A[3,1]:=H[3]: A[3,2]:=0: A[3,3]:=-H[4]-H[7]: \+
A[3,4]:=H[8]:                            A[4,1]:=H[10]: A[4,2]:=H[5]: \+
A[4,3]:=H[7]:A[4,4]:=-H[6]-H[8]-H[9]:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 31 "\317\360\345\344\361\362\340\342\350\354 \357\356\353\363
\367\345\355\355\373\351 \360\345\347\363\353\374\362\340\362" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "eval(A);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#K%'matrixG6#7&7&,&*&\"\"#\"\"\"&%\"HG6#\"\"$F+!\"\"&F-6
#\"#5F0\"\"!F4F47&F,,$&F-6#\"\"(F0F4F47&F,F4F6F47&F1F7F7F4Q)pprint226
\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 63 "----------\312\356\355\345
\366 \356\341\353\340\361\362\350 \357\345\360\345\355\356\361\340 \+
\344\340\355\355\373\365------------------------" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 23 "\307\340\357\350\370\345\354 \342\345\352\362\356
\360 \360\345\370\345\355\350\351:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 57 "X:=vector(n,[seq(x[j](t),j=1..n)]):                  \+
    " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "\323\352\340\346\345\354 \+
\342\345\352\362\356\360 \355\340\367\340\353\374\355\373\365 \363\361
\353\356\342\350\351 " }{TEXT 507 1 "\325" }{TEXT -1 2 "0:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "X0:=vector(n,[1000,0,0,0]): X0[1]:
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 75 "\324\356\360\354\350\360\356
\342\340\355\350\345 \344\340\355\355\373\365 \347\340\352\356\355\367
\345\355\356. \304\340\353\374\355\345\351\370\345\345 \360\345\370
\345\355\350\345 \342\345\344\345\362\361\377 \342 \340\342\362\356
\354\340\362\350\367\345\361\352\356\354 " }}{PARA 0 "" 0 "" {TEXT -1 
7 "\360\345\346\350\354\345." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 11 "
\317\356 \354\340\362\360\350\366\345 " }{TEXT 553 1 "\300" }{TEXT -1 
19 " \350 \342\345\352\362\356\360\363 \360\345\370\345\355\350\351 " 
}{TEXT 554 1 "\325" }{TEXT -1 45 "  \347\340\357\350\370\345\354 \321
\304\323 \342 \355\356\360\354\340\353\374\355\356\351 \364\356\360
\354\345 \361 \363\352\340\347\340\355\350\345\354 " }}{PARA 0 "" 0 "
" {TEXT -1 66 "\355\340\367\340\353\374\355\373\365 \363\361\353\356
\342\350\351, \350\361\357\356\353\374\347\363\377 \344\353\377 \375
\362\356\343\356 \342\345\352\362\356\360\355\356-\354\340\362\360\350
\367\355\373\345 \356\357\345\360\340\366\350\350" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 102 "seq(diff(x[j](t),t)=evalm(row(A,j)&*X),j=1.
.n);                             seq(x[j](0)=X0[j],j=1..n);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6&/-%%diffG6$-&%\"xG6#\"\"\"6#%\"tGF-*&,&*&\"
\"#F+&%\"HG6#\"\"$F+!\"\"&F36#\"#5F6F+F'F+/-F%6$-&F)6#F1F,F-,&*&F2F+F'
F+F+*&&F36#\"\"(F+F=F+F6/-F%6$-&F)F4F,F-,&FAF+*&FCF+FIF+F6/-F%6$-&F)6#
\"\"%F,F-,(*&F7F+F'F+F+FBF+FLF+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&/-&
%\"xG6#\"\"\"6#\"\"!\"%+5/-&F&6#\"\"#F)F*/-&F&6#\"\"$F)F*/-&F&6#\"\"%F
)F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 28 "\302\373\367\350\361\353
\350\354 \361\356\341\361\362\342\345\355\355\373\345 \367\350\361\353
\340  " }{TEXT 256 1 "k" }{TEXT -1 9 " \354\340\362\360\350\366\373 " 
}{TEXT 257 1 "\300" }{TEXT -1 1 ":" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "ke:=eigenvals(A); Re(ke[2]): Im(ke[3]):" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#keG6&,&*&\"\"#\"\"\"&%\"HG6#\"\"$F)!\"\"&F+6#
\"#5F.,$&F+6#\"\"(F.F2\"\"!" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "
\350 \361\356\341\361\362\342\345\355\355\373\345 \342\345\352\362\356
\360\373 (\357\356\361\353\345\344\355\350\345 \350\361\357\356\353
\374\347\363\376\362\361\377 \362\356\353\374\352\356 \352\340\352 \+
\361\357\360\340\342\356\367\355\340\377 " }}{PARA 0 "" 0 "" {TEXT -1 
11 "\350\355\364\356\360\354\340\366\350\377)" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 20 "kev:=eigenvects(A); " }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$kevG6%7%,$&%\"HG6#\"\"(!\"\"\"\"#<$K%'vectorG6#7&\"
\"!F,F3\"\"\"Q)pprint236\"KF06#7&F3F,F4F3Q)pprint24F67%,&*&F-F4&F)6#\"
\"$F4F,&F)6#\"#5F,F4<#KF06#7&,$*&,(F(F,*&F-F4F>F4F4FAF4F4F>F,F,F4F4,$*
&,&FAF,F(F4F4F>F,F,Q)pprint25F67%F3F4<#KF06#7&F3F3F3F4Q)pprint26F6" }}
}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 43 "H[3]:=10^(-4):H[7]:=10^(-2):H[10]:=10^(-2):" }}}{SECT 0 {PARA 
256 "" 0 "" {TEXT -1 0 "" }{TEXT 307 77 "\300\353\343\356\360\350\362
\354 \364\356\360\354\350\360\356\342\340\355\350\377 \361\357\350\361
\352\340 \352\356\360\355\345\351 \350 \350\365 \352\360\340\362\355
\356\361\362\345\351, \357\360\345\344\361\362\340\342\353\377\345\354
\373\365 \342\345\352\362\356\360\340\354\350" }}{PARA 257 "" 0 "" 
{TEXT 308 1 "k" }{TEXT -1 3 " \350 " }{TEXT 309 2 "r " }{TEXT -1 63 "
\342 \361\362\360\356\343\356\354 \361\356\356\362\342\345\362\361\362
\342\350\350 \361 \355\356\354\345\360\340\354\350 \352\356\354\357
\356\355\345\355\362. \316\357\360\345\344\345\353\345\355\350\345 \+
\367\350\361\353\340 " }{TEXT 310 2 "J " }{TEXT -1 9 "\352\356\354\357
\356\355\345\355\362" }}{PARA 0 "" 0 "" {TEXT 336 9 "\342\345\352\362
\356\360\356\342 " }{TEXT 311 1 "k" }{TEXT 337 3 " \350 " }{TEXT 312 
1 "r" }{TEXT -1 1 "." }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 24 "\302\342
\345\344\345\354 \345\344\350\355\350\367\355\363\376 \354\340\362\360
\350\366\363" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "E:=matrix(n
,n,[]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to \+
n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 1 to n do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "if i=j then E[i,j]:=1" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 18 "else E[i,j]:=0 fi:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "od:od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 52 "\302
\342\345\344\345\354 \357\360\356\354\345\346\363\362\356\367\355\373
\351 \342\345\352\362\356\360, \342 \352\356\362\356\360\373\351 \347
\340\357\350\370\345\354 \352\356\360\355\350" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 34 "kk:=vector(n,[seq(ke[j],j=1..n)]);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#kkGK%'vectorG6#7&#!#^\"%+]#!\"\"\"$+\"F,\"\"!
Q)pprint276\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "\302\342\345\344
\345\354 \342\361\357\356\354\356\343\340\362\345\353\374\355\363\376 \+
\354\340\362\360\350\366\363, " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 18 "K:=matrix(n,n,[]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"KG-%
&arrayG6%;\"\"\"\"\"%F(7\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "
\342 \352\356\362\356\360\363\376  \341\363\344\345\354 \347\340\357
\350\361\373\342\340\362\374 \355\363\353\350 \350 \345\344\350\355
\350\366\373 \342 \361\356\356\362\342\345\362\361\362\342\350\350 \+
\361 \355\350\346\345 \357\360\350\342\356\344\350\354\373\354 " }}
{PARA 0 "" 0 "" {TEXT -1 39 "\340\353\343\356\360\350\362\354\356\354 \+
\342\373\367\350\361\353\345\355\350\377 \352\360\340\362\355\356\361
\362\350 \352\356\360\355\377. " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
77 "\317\360\350\342\345\344\345\354 \340\353\343\356\360\350\362\354 \+
\342\373\367\350\361\353\345\355\350\377 \352\360\340\362\355\356\361
\362\350 \352\356\360\355\377 \342 \357\360\345\344\357\356\353\356
\346\345\355\350\350, \367\362\356 \361\340\354\350 \352\356\360\355
\350 " }}{PARA 0 "" 0 "" {TEXT -1 81 "\350\347\342\345\361\362\355\373
 (\355\340\357\360\350\354\345\360, \352\356\360\355\350 \356\357\360
\345\344\345\353\377\376\362\361\377 \357\360\356\366\345\344\363\360
\356\351 eigenvals(A)) \350 \357\360\345\344\361\362\340\342\353\345
\355\373 \342 " }}{PARA 0 "" 0 "" {TEXT -1 24 "\342\350\344\345 \361
\357\350\361\352\340 \350\353\350 \342\345\352\362\356\360\340." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for i from 1 to n-1 do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for j from i+1 to n do" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 34 "if kk[i]=kk[j] and kk[i]<>999 then" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 23 "K[i,j]:=1: kk[j]:=999: " }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 18 "else K[i,j]:=0 fi:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "od:od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "\312
\360\340\362\355\356\361\362\374 \352\356\360\355\377 \347\340\357\350
\370\345\354 \342 \342\345\352\362\356\360" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "rv:=vector(n,[]):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 11 "\317\356 \354\340\362\360\350\366\345 " }{TEXT 316 1 "\312" }
{TEXT -1 28 " \356\357\360\345\344\345\353\377\345\354 \352\360\340
\362\355\356\361\362\374 \352\356\360\355\377 " }{TEXT 317 2 "kk" }
{TEXT -1 1 "[" }{TEXT 318 1 "i" }{TEXT -1 1 "]" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 20 "for i from 1 to n do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "if  kk[i]<>999 then" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 31 "rv[i]:=add(K[i,j], j=i+1..n)+1:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "else rv[i]:=0 fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "\302 \360\345\347\363\353\374\362
\340\362\345 \357\356\353\363\367\350\353\350 \342\345\352\362\356\360
, \352\356\354\357\356\355\345\355\362\373 \352\356\362\356\360\356
\343\356 \363\352\340\347\373\342\340\376\362 \352\360\340\362\355\356
\361\362\374 \352\356\360\355\377: \355\356\354\345\360" }}{PARA 0 "" 
0 "" {TEXT -1 85 "\352\356\354\357\356\355\345\355\362\373 \375\362
\356 \355\356\354\345\360 \352\356\360\355\377, \340 \345\270 \347\355
\340\367\345\355\350\345 - \352\360\340\362\355\356\361\362\374 \352
\356\360\355\377 (\341\345\360\363\362\361\377 \362\356\353\374\352
\356 \362\345 \352\356\354\357\356-" }}{PARA 0 "" 0 "" {TEXT -1 80 "
\355\345\355\362\373, \347\355\340\367\345\355\350\345 \352\356\362
\356\360\373\365 \356\362\353\350\367\355\356 \356\362 \355\363\353
\377. \312\356\360\355\377 \355\363\353\345\342\356\351 \352\360\340
\362\355\356\361\362\350 \341\373\362\374 \355\345 \354\356\346\345
\362)." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "eval(rv); rv[1]:
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'vectorG6#7&\"\"\"\"\"#\"\"!F'Q)
pprint286\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "\302\373\367\350
\361\353\345\355\350\345 \367\350\361\353\340 " }{TEXT 321 1 "J" }
{TEXT -1 29 " \360\340\347\353\350\367\355\373\365 \352\356\354\357
\356\355\345\355\362 \342\345\352\362\356\360\340 " }{TEXT 320 3 "kk \+
" }{TEXT -1 11 "\357\356 \342\345\352\362\356\360\363 " }{TEXT 322 2 "
rv" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "J:=0:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to n do" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 28 "if  rv[i]<>0 then J:=J+1 fi:" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 "\317
\356\353\363\367\350\353\350 \367\350\361\353\356 " }{TEXT 335 2 "J " 
}{TEXT -1 20 "\360\340\347\355\373\365 \352\356\360\355\345\351. \305
\361\353\350 " }{TEXT 508 1 "J" }{TEXT -1 1 "<" }{TEXT 509 1 "n" }
{TEXT -1 29 ", \362\356 \350\354\345\376\362\361\377 \352\360\340\362
\355\373\345 \352\356\360\355\350.  " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 2 "J;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 29 "\317\360\350\367\345\354 \361\363
\354\354\340 \342\361\345\365 \352\360\340\362\355\356\361\362\345\351
 " }{TEXT 313 2 "rv" }{TEXT -1 1 "[" }{TEXT 315 1 "i" }{TEXT -1 33 "] \+
\344\356\353\346\355\340 \341\373\362\374 \360\340\342\355\340 \367
\350\361\353\363 \352\356\360\355\345\351 " }{TEXT 314 1 "n" }{TEXT 
-1 1 "," }{TEXT 319 1 " " }{TEXT -1 7 "\362\356 \345\361\362\374" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "sr:=sum(rv[jj], jj=1..n);  \+
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#srG\"\"%" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 74 "\316\357\345\360\340\366\350\377 \353\356\343\350
\367\345\361\352\356\343\356 \361\360\340\342\355\345\355\350\377, \+
\357\356\344\362\342\345\360\346\344\340\376\371\340\377 \342\373\370
\345 \361\364\356\360\354\363\353\350\360\356\342\340\355\355\373\351 \+
\342\373\342\356\344" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "eva
lb(sr=n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 53 "\323\357\360\356\361\362\350\354 \347\340\344
\340\367\363 \357\360\345\344\361\362\340\342\353\345\355\350\377 \352
\356\360\355\345\351 \350 \350\365 \352\360\340\362\355\356\361\362
\345\351." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "\320\340\347\353\350
\367\355\373\345 (\341\345\347 \357\356\342\362\356\360\345\355\350
\351) \352\356\354\357\356\355\345\355\362\373  \342\345\352\362\356
\360\340 " }{TEXT 323 2 "kk" }{TEXT -1 0 "" }{TEXT 324 0 "" }{TEXT -1 
21 "  \357\345\360\345\357\350\370\345\354 \342 \342\345\352\362\356
\360 " }{TEXT 333 1 "k" }{TEXT -1 11 ", \340 \347\340\356\344\355\356 \+
" }}{PARA 0 "" 0 "" {TEXT -1 19 "\350 \347\355\340\367\350\354\373\345
 \357\356\347\350\366\350\350 " }{TEXT 330 2 "rv" }{TEXT -1 1 "[" }
{TEXT 331 1 "i" }{TEXT -1 29 "]>0 \362\340\352\346\345 \357\345\360
\345\357\350\370\345\354 \342 \342\345\352\362\356\360 " }{TEXT 332 2 
"rr" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "k:=vector(J,[]):" }}
}{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "\357\356 \361\353\345\344\363\376
\371\345\354\363 \340\353\343\356\360\350\362\354\363" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "ir:=1:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "for j from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 54 "if rv[j]=0 then next else k[ir]:=kk[j]: rr[ir]:=rv[j] " }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 13 "fi: ir:=ir+1:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "r:=c
onvert(rr,list):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 30 "\317\356\361
\353\345\344\356\342\340\362\345\353\374\355\356\361\362\374 \352\356
\354\356\355\345\355\362 \342 " }{TEXT 543 5 "list " }{TEXT -1 43 "
\354\356\346\345\362 \341\373\362\374 \361\353\363\367\340\351\355\356
\351. \316\344\355\340\352\356, \342\340\346\355\340 \362\356\353\374
\352\356 " }}{PARA 0 "" 0 "" {TEXT -1 10 "\357\360\350\342\377\347\352
\340  " }{TEXT 544 1 "r" }{TEXT -1 3 " \352 " }{TEXT 545 1 "k" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 54 "\317\360\356\342\345\344\345\354 \+
\342\350\347\363\340\353\350\347\340\366\350\376 \357\356\353\363\367
\345\355\355\373\365 \362\340\352\350\354 \356\341\360\340\347\356\354
 \352\356\360\355\345\351 " }{TEXT 334 1 "k" }{TEXT -1 1 "[" }{TEXT 
325 1 "i" }{TEXT -1 19 "]  \350 \352\360\340\362\355\356\361\362\345
\351 \350\365 " }}{PARA 0 "" 0 "" {TEXT -1 11 "\357\356\342\362\356
\360\345\355\350\377 " }{TEXT 329 1 "r" }{TEXT -1 1 "[" }{TEXT 326 1 "
i" }{TEXT -1 37 "], \357\345\360\345\367\350\361\353\345\355\355\373
\365 \355\350\346\345 \361\353\345\342\340 \355\340\357\360\340\342
\356, " }{TEXT 327 1 "i" }{TEXT -1 7 "=1,...," }{TEXT 328 1 "J" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " eval(k); eval(r);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#K%'vectorG6#7%#!#^\"%+]#!\"\"\"$+\"\"\"!Q)pp
rint296\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"\"\"\"#F$" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 40 "\302\342\345\344\345\354 \357\356
\352\356\354\357\356\355\345\355\362\355\373\351 \352\356\355\362\360
\356\353\374 \342\345\352\362\356\360\356\342 " }{TEXT 546 3 "rr " }
{TEXT -1 2 "\350 " }{TEXT 547 3 "r, " }{TEXT -1 29 "\357\356\347\342
\356\353\377\376\371\350\351 \342\373\377\342\350\362\374 \350\365 \+
\361\354\345\371\345-" }}{PARA 0 "" 0 "" {TEXT -1 31 "\355\350\345, \+
\350 \342\373\344\340\362\374 \355\340 \357\345\367\340\362\374 \356
\370\350\341\352\363." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "fo
r j from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "if rr[j]<>r[j
] then print(`\316\330\310\301\312\300 \321\314\305\331\305\315\310
\337 \312\316\314\317\316\315\305\315\322`) fi:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "eval
b(r[3]=rr[3]):" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "\317\345\360
\345\351\344\345\354 \352 \342\373\367\350\361\353\345\355\350\376 \+
\360\345\370\345\355\350\377 \321\304\323,  \361\356\356\362\342\345
\362\361\362\342\363\376\371\345\343\356 \344\340\355\355\356\354\363 \+
\352\356\360\355\376. \307\340\357\350\370\345\354 " }}{PARA 0 "" 0 "
" {TEXT -1 27 "\365\340\360\340\352\362\345\360\350\361\362\350\367
\345\361\352\363\376 \354\340\362\360\350\366\363 " }{TEXT 496 6 "M=A-
kE" }{TEXT -1 21 "  \344\353\377  \352\340\346\344\356\343\356 \352
\356\360\355\377 " }{TEXT 258 1 "k" }{TEXT -1 1 "[" }{TEXT 259 1 "i" }
{TEXT -1 2 "]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j fro
m 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "M[j]:=evalm(A-k[j]*E
)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 39 "\302\350\347\363\340\353\350\347\340\366\350\377 \365\340
\360\340\352\362\345\360\350\361\362\350\367\345\361\352\356\351 \354
\340\362\360\350\366\373" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 
"eval(M[2]): evalm(Re(M[2])): evalm(Im(M[2])):" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT 303 10 "\317\360\350\354\345\367\340\355\350\345" }{TEXT 
-1 69 ". \317\356\352\340\346\345\354, \367\362\356 \354\340\362\360
\350\366\340, \342\356\347\342\345\344\345\355\355\340\377 \342 \361
\362\345\357\345\355\374, \360\340\342\355\363\376 \352\360\340\362
\355\356\361\362\350 \352\356\360\355\377" }}{PARA 0 "" 0 "" {TEXT 
260 1 "k" }{TEXT -1 1 "[" }{TEXT 261 1 "i" }{TEXT -1 37 "], \361\356
\342\357\340\344\340\376\371\345\351 \361 \352\356\353\350\367\345\361
\362\342\356\354 \352\356\360\355\345\351 (" }{TEXT 304 1 "J" }{TEXT 
-1 4 "=1, " }{TEXT 305 1 "r" }{TEXT -1 4 "[1]=" }{TEXT 306 1 "n" }
{TEXT -1 37 "), \360\340\342\355\340 \355\363\353\376 - \362\356\353
\374\352\356 \342 \375\362\356\354 \361\353\363\367\340\345!" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "if r[2]-n<>0 then print(`
\355\345 \362\356\362 \361\353\363\367\340\351`) fi:" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#%.|hy|`y~|]z|iy|]z~|\\z|fy|^z|bz|[y|dyG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "evalm(M[2]^r[2]):" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 61 "\304\353\377 \352\360\340\362\355\356\343\356 \+
\352\356\360\355\377 \360\345\370\345\355\350\345 \321\304\323 \361
\342\377\347\340\355\356 \361 \342\373\367\350\361\353\345\355\350\345
\354 \354\340\362\360\350\366\373 " }{TEXT 286 1 "b" }{TEXT -1 19 ", \+
\356\357\350\361\340\355\350\345 \352\356\362\356\360\356\351 " }}
{PARA 0 "" 0 "" {TEXT -1 32 "\357\360\350\342\356\344\350\362\361\377 \+
\355\350\346\345. \302\342\345\344\345\354 \354\340\362\360\350\366
\363 " }{TEXT 262 1 "b" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "f
or i from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b[i]:=matrix
(n,r[i],[])" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 41 "evalm(b[1]): evalm(b[2]): col(b[2],2)[1]:
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 77 "\304\353\377 \342\373\367\350
\361\353\345\355\350\377 \361\356\341\361\362\342\345\355\355\373\365 \+
 \342\345\352\362\356\360\356\342 \352\356\360\355\345\351 \361 \345
\344\350\355\350\367\355\356\351 \352\360\340\362\355\356\361\362\374
\376  \347\340\344\340\344\350\354  " }}{PARA 0 "" 0 "" {TEXT -1 30 "
\355\356\353\374-\342\345\352\362\356\360 \357\360\340\342\373\365 \+
\367\340\361\362\345\351 \321\313\300\323" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "p0:=vector(n,[]):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "for i from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 8 "p0[i]:=0" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 80 "\310\362\340\352, \342 \361\353\363\367
\340\345 \352\360\340\362\355\356\343\356 \352\356\360\355\377 \360
\345\370\345\355\350\345 \355\340\344\356 \350\361\352\340\362\374, \+
\352\340\352 \363\352\340\347\373\342\340\353\356\361\374 \360\340\355
\345\345, \342 \342\350\344\345" }}{PARA 0 "" 0 "" {TEXT -1 7 "(24-26)
" }}{PARA 0 "" 0 "" {TEXT -1 12 "            " }{OLE 1 6166 1 "[xm]Br=
WfoRrB:::wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy:::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::fyyyyya:nYf::G:I:K:M:O
:wAyA:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::NDYmq^H;C:ELq^H_mvJ::::::::gj<vyyuyJ<j;tV;B:;JZC:bKB::>\\b
`sAiytas;V:>jFZ:j:vCSmlJ::::::::::OJ;@jyyyyyy;jysy;Z:::::::^<>:fB]mtFF
cmnvGWMJnC==nHE=;:::::JJN:yyyxI:;Z::::::j:>:_h:>Z:j:VBYmp>HYLkNG>:::::
:::N<?:xI:;Z::::::j<>:MM:>:nyyM;j;<J:^:n;n:nY>;F;N;;j?J@j@>:gJ:v;;JB<Z
:F<N<;jCJDjDJykEB:k:m:o:q:s:u:w:y:;C:<jJ<:?;A;C;E;G;I;K;M;O;Q;S;U;W;Y;
[[:F@nYvY:::::::::::::::::::::::::::::::::::::::::::::::::::j:b:B:::KB
nm:;::::::JHJ;fj;qp<B:CGt_Z:>:Sn__ibQ<ER:PJ;LncpNdP]:V\\QGghGbf_g<GfmG
g]Wbi_f_?d[wf_WH]R;cTTUUSaEBWTSiEB_tUUURWmBHjc`qpDpql`KfZ=wgoOhcgfl?^H
gF;R>CRMcDBEDXceV=MC>[[v_?wk>w_;?dnA\\IvbYGbJOxYn];?dni\\IFb:^x?_x_^xI
PbYGB<[=we;kAQNteli\\NtyrZ<ZJBJcy]=tYKDw[r==dDyDKyTKcyQE\\;w[FF:=j:DJ;
DJ;<J;FZ;F:Aj:^:dJ<<j:@:r:;R:;b:HrZNZ>njLN^gN:AvTDJ<fr\\vt<F:wyyAb<vYx
y;tV;J:>R<:TNE>:UTRcETcTX[US;SGWCF;SK]UW=EWMuUWM@B::P`?oBY:ETV:WCKaTML
]nIalHH<J::::::vYxy;<:CZ:F:;jysy?:;:CtE<j;Q:?D<F:MZ=F^>J;nf;B:<j<B:?R:
?ja^G>D_mlVH[KR<:;B:::::::JFNZ;F:;J;<J:vYxY:>Z::::::j=J<]:;B:F:Y<>Z:>:
::::::::J?<Z:vYxI:;Z::::::JywYB:::::::::::::yay=J:B:::::::::::::::::::
jysy:>:<::::::::=J:f:FZ<vyyyYE:WS:mZ:f:V[<Z:f:^[<R;;iDa:Gc;YJHvyyuy;B:
WLBB:;xynnyyyyAndJMM:QB:n>^;UTR:;JB@j<>Z:F[<B:Dj<JDDjVAJQ^=;B:qi:MbyAQ
:>:[V:<Z;>Z<>ZJVdsgGl`:vlAN[<@\\YQ<kTfayW=UfayW;CJeyWub<GE_CZ:f_;j><J:
N`D>:;B:=J:<JN`a:f:^<vr?^=;B:qAJ:>l;Z;b:<;vGfZDN[M>\\YQ<k<==;;:f?=J<Jr
AZ:F;;B:_c<B:=Z:F_sk<<:cjYLJQ^=<jw;>:[V:R:DZJ:Y=i^=@\\YMfjjJJ::UK:^:>Z
=hB;b:;b_KK;<ZcJ;L:B:AvRDJ:HrqN:l`<bZKK;Vj\\c:DRPN:KVF;b:DrNNZ>b>Z?c:C
j\\;A=AvUJpJ;]<HRkJ;m<\\RSN:?VDjXfa<B\\[K;<ZfB:=j;FZ=R:;b:HrZB;D;Vje;E
@fB;ZP@?RDB;:H@HrqZf[<@?Vj\\[<`??j;Qa<jOV_<B\\][:Njc:_:DRNj;;Q;:?VDj\\
;EL;:rRrZY=l@DRNj;E@DRPj;QAV?JSN:?VDjXZB@`:B:l<@RJN:Pa<>:uK;RFD:SK;bED
::JPZbb:NH?Zgb:N`:N:`\\<>:S;<<Z>B:?cB?j:EAnA?ZlB:<::::::::>X=B:MJ:<JSd
:<j:>Z:>?f:<JDj]QJHB:qAB:;JBA:@Z<B>jqj<dZN>\\YQ<k<==;;:f?=J<Jr?Z:F;;B:
_c<B:=Z:F?fZ:JDfm;nvB^=;B:qQ:uI<:[V:B:DJ:<Kd``_;<<ng:>ekXX==;;:f?;J<Jr
G:g:_;<J?JNllR`LNlLS`LRlLY@JmNN?V;wS:[NZ=JyAJWs:EB:^<AC;GI<sZ:VYZ:JBK:
<Z<:VH:nGVX==;;:f?=J<Jr?:mK:<JSJ:<jJ<J:<JNZkF_b^?BBeUI]CEWcEWCEKcVUcFM
CE;CB_eI_KY@J;EJKos;^i<NNSI;wS:Sg:;PyKE?F;Pf?r:>F;=JynIkMZoI;Mjng;nIkP
:HZ:JDfMQQHB:qA>Z:JBG:;J:D:c<a=:WMfVX==;;:f?;J<JrG:m:_;<J@<:=tTEtRYEU?
UKAuU^`<Nl;Fc<>O;P;@JNIJUAJN?R>Z=fZ:JDV>QQHB:qAB:>L>Z:>Z<>:c<a=:W=aqjJ
J::Uk:^:>X;JIJSZ:v;;B:=<RWeUKAuUB:cc:_>J;@J\\@JpMJoIJUA::;r:<:cjHW[<^=
;B:qAB:>L;J:@Z<jcbRY=i^@`gUQ<k<==;;:f?;J<JrAj:>\\:>Z:N`DZ:n:<jPXweqleq
M?DjgDJxPJ`DJhQZ=f:^<Ak?DJF>Z:N@B:QZ:f?hlPhleYwOpMKDP?Djgnb?Nd<Nm<>b<>
s;nb?Np<>vDr:GU:n>Nr<fc[_HRSeTOgg:ER::P]:V\\Q[fkj::F<c\\_WHW<JqF<fg\\w
G@[=;>>>:j\\jjN<K:L>[Dw[j]BN_ALyDB:P>:<[=SJvk?cDr]<ZJBJcqZxQ^>\\IFBZYg
B@>B:=b:?J;<J;F:=j;<:CZD^::HJ:@J:DZ=HBLZL:AvTj\\wTfB;b:;b_K;`<?B;:H@;r
ZY=l`<bZK;AfRbZSK;>kkJ:DrNB;D;RKDJ<fRjkj;y@^GNjbZ=PFNjfZBP@Njc:u;\\RRN
Z:BE<j:V:H:;b:HrZB;D;Vje;E@fB;ZP@?RDB;:H@HrqZf[<@?Vj\\[<`??j;QAV?Q[BH@
<J;a<N<bZK;A>V?:Njc:E@fB?:Z][=xGBUbZK;AfRbZS;AVWjO:_K;Njc:u;\\RR<Z:BER
Z;K;RW>:u;@]<JPN:t<::S;\\\\<JsZg:_K;RDDJ:^?BB:LZ:bBFjl;w;D]:B:QZ:n>^;y
ayI:<J:JHB:qQBvZ:J:^q<>Z:Bm=b:?bBaTXaEWEUULsHdJm>:<jJNk;Z:F:;JXQXC^:<j
P@j:^:>X;j;<J:<J::::nc;ocCK:<:::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::3:" }{TEXT -1 8 "     (*)" }}
{PARA 0 "" 0 "" {TEXT -1 15 "\305\361\353\350, \355\340\357\360\350
\354\345\360," }{TEXT 263 2 " r" }{TEXT -1 71 "[1]=2 , \362\356 \350
\347 \361\350\361\362\345\354\373 (*) \355\340\344\356 \342\347\377
\362\374 \362\356\353\374\352\356 \356\344\355\356 \342\345\360\365
\355\345\345 \363\360\340\342\355\345\355\350\345 \350\353\350 " }}
{PARA 0 "" 0 "" {TEXT -1 24 "\342\356\361\357\356\353\374\347\356\342
\340\362\374\361\377 \364\356\360\354\363\353\356\351" }}{PARA 0 "" 0 
"" {TEXT -1 33 "                                 " }{OLE 1 5654 1 "[xm
]Br=WfoRrB:::wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy:::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::fyyyyya:nYf::G:I:K
:M:wAyA:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::_lqvGcMJ<j\\nGcMsFI>:::::::JEf:yyyxI^:VZHQ:<J:>R<:T><::
[BdSxkuixSX:A:;r<B:F:YLpfF>:::::::::J?NZ;vyyyyyY:vYxY:B:::::::c:;:Elrf
H=MtFGYMq>>Wlj:gmlJ::::::>>?jyyiy=J:B::::::F:;JwAJ:B:F:AlqfG[maNFO=;::
::::::_J;Zy=J:B::::::f:;jn>:;:wyyN:<j;<J:^:n;n:nY>;F;N;;j?J@j@>:_J:v;;
JB<Z:F<nYV<^<f<n<;jEB:k:m:o:q:s:u:w:y:;C:<jJ<:?;A;C;E;G;I;K;M;O;Q;wAyA
:::::::::::::::::::::::::::::::::::::::::::::::::::::::F:D:<::JJLJ@J::
:::::^=N:EVjwX:^nbQ<>:Sn__ibQ<ER:PJ;LncpNdP]:V\\QGghGbf_g<GfmGg]Wbi_f_
?d[wf_WH]R;cTTUUSaEBWTSiEB_tUUURWmBHjc`qpDpql`KfZ=wgoOhcgfl?^HgF;R>CRM
cDBEDXceV=MC>[[v_?wk>w_;?dnA\\IvbYGbJOxYn];?dni\\IFb:^x?_x_^xIPbYGB<[=
we;kAQNteli\\NtyrZ<ZJBJcy]=tYKDw[r==dDyDKyTKcyQE\\;w[FF:=j:DJ;DJ;<J;FZ
;F:Aj:^:dj:<J;Vj]c:;jqN:l`<bZKK;Vj\\c:DRPN:AfT=Jyyy;d:yayYZHQ:>:;`:Z@o
<;j`@Pt\\Pd`QrPPJPMQ<MJPnrPqjLqnxPq^;<:Z_SKGlAj\\@AJQLncp^nBwmcf]]:>::
::::yayYZ:J<B:=J:vYxY;J:Z]J@MZ:nwAj:F;HjuI:CJwC:;j<B:?R:?ja^G>D_mlVH[K
R<:;B:::::::JFNZ;F:;J;<J:vYxY:B::::::v:<JR\\:<:=ja:;B:;:::::::::N[:jys
y:>:<::::::wqy[:::::::::::::vYxI:;Z::::::::::::::::::::yay=J:B::::::::
F:;j<j:Djyyyyg:n_;F=<j<j?D:<j<J@DJJLJZykC>:Gc;YJHvyyuy;B:WLB>Z:>ryMVyy
yyY:y;kx:V[:JMJ@fc[;>:;Q>JwE:aB:;B:;Z<^:<jP@:EZ:^\\<b:wg;E:ab:DJiej<j>
DZ:>Z<f:^<se:wv<sZ:Vy<F[xYV;J:>l;J:@J:DZJVdsgGl`:fcCN[^_\\YQ\\:>ekXxqG
fkXxq?^:gxqGaDnft_:f?=j>>:_c<B:=J:>_sC:E:c:iS>sB:<jw;>:[V:R:DZJ:Y=Gd<O
Bicrq_JfjjJJ::UK;^Z:>:[Y:=B:>Z:N`DZ:F:;jN`AE:cJw@JOEKHB:qQKxI;B:>l;Z:b
:;B>;b:DrNNZ>njwRIAj?R:DZBH`:R:bZK[:VJ;b:CJCDlPDZBL;NjcJ:F><Z>Rk?soAB:
=r:;R:;Z=HB?B;D;Vjec:Cj\\c:Hr\\>Z<>ZP@??Zcj;<JH>ZEFZ;F:?B:AfTJCZBL:N[<
^Z@hRjkZi;S=?FDrZ?M;NjfZBL;Njc:S;=FBD:j;e@fAD:_K;NJJQN::ZfZ=PH>:Jd``_;
<<ng:>ekXX==;;:f?=J<JrOZ:F;;B:_;<j:>:]SXsW:EZ:^<WU:WE<sJ:<jw?jxM:<:[V:
B:DZJ^dc;:nGVX==;;:f??J<JrG:MJ:N@B:=:]K:Hj<<:cJj>^<^=VYZ:JBA:<Z<:VH:nG
VX==;;:f?=J<>:[Q;v]:JSZ:><<JNllN\\LP@mNlLJ<LSlLQtLQlLY@Je@jI@KY@JmNNwM
E?Fwd:oOv>F;=;r:EB:^<Sv:[h;s:qAB:>LB:D:js:Jq>EaqjJJ::UK;^:>X=j@B:_;<J<
JN@mN@LuDJK=JBs:<:cJw>wK^=VY?;<:[n:>:;b::a=:W=aqjJJ::Uk:^:>X?j>>:_;<j:
Jo`QXA:^<;MT<JHjw?JB:>l;J:>Z<:::W=aqjJJ::UK;^:>X=JHJSZ:n;Vfi_g\\Og;Wg?
Wfi_GDQN?r:NZ;>m;f^B^`<Nl;nr=>O;@sv:;I;Hj<<:cJ@OnA^=<jw;<:[>;J:DJ::a=:
W=ayW==;;:f?=J<>:[Q;F;;JSZ:F:NG;r:<:cJwVaL^=VY?syB:>l;>:@Z<jcbRY=G\\:a
gUQ\\:>EFF>>:jPN:C:[q:F;;JSd:<j:>:USXsW:JD>FSV;sJ:<jw?JB:>l;Z;b::Y=U\\
c_gUQ<jjJJ::US:=J<JrO:[B:<JSd:<J=<:usoUsoiXIWV;=e:Ob:kx:?u;Hj<JD^KsD<M
B:;JSZ:F:;jP`Q:HJw=:G;OY:UTRc=PpdPOiAj<@:ZojCX?l`<GFrU:F<c\\_WH:nG]:Ue
RY]KrJRTE]HK::E<=MC>;Y;Bw[j]BN_ALyDB:P>:<[=SJvk?cDy\\ID:<[:_X=tYKLBxjZ
:xo\\RJZ:FZ<N:?B:F:=j;FZ:^:dj:<J;Vj]K:vGBUDZ<@?<j;EP:bZS;AfT>Z<H??B;j;
:DZBH@;R:bZK;A>CJC:N:?VD>:=[:NZ>RkVZ:r:;R:;Z=HBLZL:AvTj\\c:fB;b:;b_K;`
<AB:sZE:?B:AfTJCZBL:N[<j\\;A=x@^GNjbZ=PFNjfZBL;Njc:S;=>:AfTjXb:N@NJJQ:
:BErZ_M:V[:B:G;Sjysy=:;:K:oA<:J<B:US:?JHB:qQBv:>:sg:<ZFIZ<NZ\\VdsWhngf
gkVdJm>Z:N[:F>OV:<Z:vYxYXQXC^:f?AJ<JrGZ:V:;B:;:::Ja@Na`>;B::::::::::::
::::::::::::::::::::::::::::::::::::::1:" }{TEXT -1 17 "             (
**)" }}{PARA 0 "" 0 "" {TEXT -1 14 "\357\360\350 \362\356\354, \367
\362\356  " }{OLE 1 4630 1 "[xm]Br=WfoRrB:::wk;nyyI;G:;:j::>:B>N:F:nyy
yyy]::yyyyyy::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::fyyyyya:nYf::G:I:wAyA::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::NDYmq^H;C:ELq^H_mvJ::::::::
gj<vyyuyJ<j;tV;B:;JZC:bKB::>\\b`sAiytas;V:>ZAZ:j:vCSmlJ::::::::::OJ;@j
yyyyyy;jysy;Z:::::::^<>:fB]mtFFcmnvGWMJnC==nHE=;:::::JJN:yyyxI:;Z:::::
:j:>:IT:<Z:j:VBYmp>HYLkNG>::::::::N<?:xI:;Z::::::j<>:MM:>:nyyM;B:AB:;J
<JAJ=JyK>j>J?>:Q:S:UJ:>\\:B:YJ:nYF<N<;jCJDjDJE>:iZ:>=F=N=V=nYvY:::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::F:DZ:B:::ku
:S:;::::::JHJ;fj;Y_;JL]XCJ:^KQPx\\XCfZ;R;?BKaTMcTG<jCXontpZlPpDnjHqnHp
[xPlPPb@pmPpsF\\?^dcgg_WhZnc_whZNdigg[oG]r:aTXUeRYEU@k<HnqPQs`plDQJtnl
>ZK^ZG_dZfbr_hlGF_J>@lQPnAMnQ@NbLYBxj]xoZ<OsyKI@NbLyDxjZ<JtQNtQLtyR[xo
ZB>Hni@>YVKciDyDLcy]=D:<[:_xIHby?cnA\\IFbdve>we?_xYgB@nAlj:F:=b:?b:?B:
?j:@j:V:=J<b<=B:AZ=>Z;>Z<rZ=L;LJ=EKKpL;Vjec:Cj\\EleEZ=hB=Jyyy;d:yayYZH
Q:>:;`:Z@o<;j`@Pt\\Pd`QrPPJPMQ<MJPnrPqjLqnxPq^;<:Z_SKGlAj\\@AJQLncp^nB
wmcf]]:>::::::yayYZ:J<B:=J:vYxY;J:Jfy:=h:<JZLZ:F:MZ=>^<B:?jJ?:;j<>Z:NZ
;N:YLpJbNHEms>@[C:>Z::::::::kJ;@j:>:?B:;B:yayA:;B::::::v:Nj>>:;B:F:Y<>
Z:>:::::::::J?<Z:vYxI:;Z::::::JywYB:::::::::::::yay=J:B:::::::::::::::
::::jysy:>:<::::::::=J:f:FZ<vyyyYE:WS:mZ:f:V[<Z:f:^[<>j<>fHV<n^@v;sjyy
iyAZ:nC[Z:>rymKyyyyYJt:Ac:V[:JMJ@fc[;>:[m<B:Mb:<J:Dj<JDDJXAJQ^=;B:qi:M
byAQ:>:[V:R:;b:;B>aTXU]fC:qb<OB>crq_Jf@usYqj@usYQJ<ntYq_`JmXK<>:US:F[:
>:_c<B:=J:<JN`a:f:^<vr?^=;B:qAJ:>l;Z;b:<;vG^cDN[na\\YQ<k<=ms?>:jPF:C:[
Y:<j>>Z:N`DZ:F:<jN`AE:cJJAJm]JHB:qQ:uI;B:>l;Z:b:;B>cTTP@BBJq<Jf@usGF>>
:jP>:C:;b:TSNNZ:RDNZ>:Vj]c:;rZYM;BUDZ<@??j;E`<bZSK;Vjlc:DrNNZ>RIpM;>kj
J:^<ec;Gd>O:_;<J;<J:vvqYs=r:EB:^<Uu;me@OJ:N@B:?:IQf\\Z=>x;B:U:_;<J<JNl
lN<MY@JY@JyAZ=f:^<;W:QI:s:qi:Z:JBG:;B:;b:<;VH:nGVX==;;:f?=J<JrkC>:_;<J
>>:=tTEtRYEU?eVcc:_V:Md:KOZ=J;@Jb@Z=B:^<V[<^=<jw;<:[N:<J:@Z<jcbRY=qb<D
KrhWC>EFF>>:jP>:C:[q:f;N`DZ:^:f_QytwN[<Ve<Ns?r:=_:n>v`;fc[_HRSeTOQS:ER
::P]:V\\Q[fkj:RRjB^DPps:JqF<fg\\wG@[=;:;:fBFF_J>v?ZnA<I\\JOXBweZ:RK:B>
H^;kAQ^dZID:<[:_X=tYKLBxjZ:xo\\RJZ:FZ<N:?B:F:=j;<j:^:dj:<j;r:;R:;b:HrZ
B;D;Vje;E@fB;b:;b_KK;RDB;:H@;rZY=l@DRNj;E@DRPN:AfVbZM;p=>K>:Q:G;Sjysy=
J:>:^=<jw?\\:v:<J:^q<B:lv:DJ;Dlc`qsLqlp`QVcCJ:N[:F>OV:<Z:F:;JXQXC^:<jP
@j:^:>X;j;<J:<J::::nc;ocCK:<::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::3:" }{TEXT -1 75 ".                                    \+
                                 (***)" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 13 "\310\347 \360\340\342\345\355\361\362\342\340 " }{TEXT 
341 1 "M" }{TEXT -1 1 "*" }{TEXT 342 3 "col" }{TEXT -1 1 "(" }{TEXT 
343 1 "b" }{TEXT -1 1 "," }{TEXT 344 1 "r" }{TEXT -1 27 ")=0, \363\367
\350\362\373\342\340\377 \360\340\355\343 \354\340\362\360\350\366\373
 " }{TEXT 345 1 "\314" }{TEXT -1 29 ", \355\340\365\356\344\350\354 \+
\361\356\341\361\362\342\345\355\355\373\351 \342\345\352\362\356\360 \+
" }}{PARA 0 "" 0 "" {TEXT 266 3 "col" }{TEXT -1 1 "(" }{TEXT 267 1 "b
" }{TEXT -1 1 "[" }{TEXT 358 1 "i" }{TEXT -1 2 "]," }{TEXT 268 1 "r" }
{TEXT -1 1 "[" }{TEXT 354 1 "i" }{TEXT -1 71 "]), \360\345\370\340\377
 \361\350\361\362\345\354\363 \353\350\355\345\351\355\373\365 \363
\360\340\342\355\345\355\350\351. \316\344\355\340\352\356, \350\354
\345\345\362 \361\354\373\361\353 \342\373\367\350\361\353\350\362\374
 \342\361\345" }}{PARA 0 "" 0 "" {TEXT -1 28 "\361\356\341\361\362\342
\345\355\355\373\345 \342\345\352\362\356\360\373 \354\340\362\360\350
\366\373 " }{TEXT 346 1 "\300" }{TEXT -1 42 " (\352\340\352 \360\345
\370\345\355\350\345 \321\313\300\323 \362\340\352\350\354 \356\341
\360\340\347\356\354 linsolve(" }{TEXT 355 1 "M" }{TEXT -1 1 "[" }
{TEXT 356 1 "i" }{TEXT -1 2 "]," }{TEXT 357 1 "p" }{TEXT -1 6 "0 )), \+
" }}{PARA 0 "" 0 "" {TEXT -1 21 "\357\360\345\344\361\362\340\342\353
\377\376\371\350\345 \361\356\341\356\351 " }{TEXT 428 22 "\352\360
\340\351\355\350\345 \357\360\340\342\373\345 \361\362\356\353\341\366
\373" }{TEXT -1 8 " \354\340\362\360\350\366 " }{TEXT 347 1 "b" }
{TEXT -1 1 "[" }{TEXT 348 1 "i" }{TEXT -1 28 "] (\342 \367\340\361\362
\355\356\354 \361\353\363\367\340\345 \354\340\362\360\350\366\340 " }
}{PARA 0 "" 0 "" {TEXT 349 1 "b" }{TEXT -1 1 "[" }{TEXT 350 1 "i" }
{TEXT -1 28 "] \354\356\346\345\362 \350\354\345\362\374 \356\344\350
\355 \361\362\356\353\341\345\366)." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "for i from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 34 "col(b[i],r[i]):=linsolve(M[i],p0) " }{TEXT 351 8 "linsolve" }
{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 8 "" 1 
"" {TEXT -1 37 "Error, (in unknown) division by zero\n" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 46 "\302\350\347\363\340\353\350\347\340\366
\350\377 \357\356\353\363\367\345\355\355\356\343\356 \361\356\341\361
\362\342\345\355\355\356\343\356 \342\345\352\362\356\360\340 " }
{TEXT 264 5 "\360=col" }{TEXT -1 1 "(" }{TEXT 265 3 "b,r" }{TEXT -1 
12 ") \350 \344\360\363\343\350\365. " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 45 "evalm(col(b[1],r[1])): evalm(col(b[2],r[2])):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 83 "\316\357\360\345\344\345\353\345
\355\350\345 \361\356\341\361\362\342\345\355\355\356\343\356 \342\345
\352\362\356\360\340 \357\360\356\342\356\344\350\362\361\377 \361 \+
\362\356\367\355\356\361\362\374\376 \344\356 \352\356\355\361\362\340
\355\362\373, \357\356\375\362\356\354\363 \347\344\345\361\374" }}
{PARA 0 "" 0 "" {TEXT -1 81 "\345\270 \354\356\346\355\356 \356\357
\363\361\362\350\362\374 \350\353\350 \361\367\350\362\340\362\374 \+
\360\340\342\355\356\351 \345\344\350\355\350\366\345. \316\344\355
\340\352\356, \357\356\347\344\355\345\345 \345\270 \361\353\345\344
\363\345\362 \342\342\345\361\362\350 \342" }}{PARA 0 "" 0 "" {TEXT 
-1 71 "\360\345\370\345\355\350\345. \317\360\340\352\362\350\352\340 \+
\357\356\352\340\347\340\353\340, \367\362\356 \353\363\367\370\345 \+
\342\361\270-\362\340\352\350 \375\362\363 \352\356\355\361\362\340
\355\362\363 \356\361\362\340\342\350\362\374. " }}{PARA 0 "" 0 "" 
{TEXT -1 40 "\300 \361\345\351\367\340\361 \347\340\354\345\355\350
\354 \361\350\361\362\345\354\355\363\376 \357\345\360\345\354\345\355
\355\363\376  _" }{TEXT 352 2 "t " }{TEXT -1 2 "\355\340" }{TEXT 353 
1 " " }{TEXT -1 28 "\357\345\360\345\354\345\355\355\363\376 \361 \344
\360\363\343\350\354 \350\354\345\355\345\354, " }}{PARA 0 "" 0 "" 
{TEXT -1 29 "\355\340\357\360\350\354\345\360, g. \302\342\345\344\345
\354 \354\340\362\360\350\366\363 g" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "g:=matrix(J,n,[]):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 46 "\307\340\357\350\370\345\354 \340\353\343\356\360\350\362\354 \+
\347\340\354\345\355\373 \361\350\361\362\345\354\355\356\351 \357\345
\360\345\354\345\355\355\356\351 _" }{TEXT 497 1 "t" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to J do" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 15 "if r[i]=1 then " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
64 "col(b[i],r[i]):=subs(seq(_t[j]=g[i,j],j=1..r[i]),col(b[i],r[i]))" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "else col(b[i],r[i]):=subs(seq(_t[
j]=g[i,r[i]-j+1],j=1..r[i]-1),col(b[i],r[i])) fi:" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 30 "\317\356
\353\363\367\350\353\350 \361\356\341\361\362\342\345\355\355\373\345 \+
\342\345\352\362\356\360\373, " }{TEXT 431 45 "\361\362\356\377\371
\350\345 \342 \356\344\350\355\356\367\355\373\365 \350 \352\360\340
\351\355\350\365 \357\360\340\342\373\365 \361\362\356\353\341\366\340
\365" }{TEXT -1 1 " " }}{PARA 0 "" 0 "" {TEXT -1 7 "\354\340\362\360
\350\366 " }{TEXT 429 1 "b" }{TEXT -1 1 "[" }{TEXT 430 1 "i" }{TEXT 
-1 2 "]." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "evalm(col(b[1],
r[1])):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "\322\345\357\345\360
\374 \355\340 \356\361\355\356\342\340\355\350\350 \364\356\360\354
\363\353\373 (25) \354\356\346\355\356 \357\360\356\342\345\361\362
\350 \342\373\367\350\361\353\345\355\350\345 \356\361\362\340\353\374
\355\373\365 \342\345\352\362\356\360-" }}{PARA 0 "" 0 "" {TEXT -1 16 
"\361\362\356\353\341\366\356\342 \354\340\362\360\350\366 " }{TEXT 
437 1 "b" }{TEXT -1 1 "[" }{TEXT 438 1 "i" }{TEXT -1 14 "], \363 \352
\356\362\356\360\373\365  " }{TEXT 435 1 "r" }{TEXT -1 1 "[" }{TEXT 
436 1 "i" }{TEXT -1 47 "]>1, \360\345\370\340\377 \361\356\356\362\342
\345\362\361\362\342\363\376\371\350\345 \321\313\300\323. \315\340
\367\340\362\374 \361\353\345\344\363\345\362" }}{PARA 0 "" 0 "" 
{TEXT -1 33 "\361 \352\360\340\351\355\350\365 \353\345\342\373\365 \+
\342\345\352\362\356\360-\361\362\356\353\341\366\356\342  " }{TEXT 
359 5 "\360=col" }{TEXT -1 1 "(" }{TEXT 360 1 "b" }{TEXT -1 1 "[" }
{TEXT 362 1 "i" }{TEXT -1 1 "]" }{TEXT 361 1 "," }{TEXT -1 3 "1)." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to J do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "if r[i]>1 then " }{TEXT 363 8 "lins
olve" }{TEXT -1 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "col(b[i],1):
=linsolve(1/(r[i]-1)!*M[i]^(r[i]-1),col(b[i],r[i])) fi:" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 8 "" 1 "" {TEXT -1 37 "Error, (in \+
unknown) division by zero\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 432 32 "
\302\361\345 \352\360\340\351\355\350\345 \353\345\342\373\345 \361
\362\356\353\341\366\373 \354\340\362\360\350\366" }{TEXT -1 1 " " }
{TEXT 433 1 "b" }{TEXT -1 1 "[" }{TEXT 434 1 "i" }{TEXT -1 3 "], " }
{TEXT 439 1 "r" }{TEXT -1 1 "[" }{TEXT 440 1 "i" }{TEXT -1 46 "]>1 \+
\357\356\353\363\367\345\355\373, \342 \362\356\354 \367\350\361\353
\345 \361\356\341\361\362\342\345\355\355\373\345 \342\345\352\362\356
\360\373." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "col(b[1],1): c
ol(b[2],1):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 71 "\317\360\350 \360
\345\370\345\355\350\350 \321\313\300\323 \342\361\345 \357\345\360
\345\354\345\355\355\373\345 \344\345\353\377\362\361\377 \342 \347
\340\342\350\361\350\354\356\361\362\350 \356\362 \360\340\355\343\340
 \354\340\362\360\350\366\373 " }{TEXT 364 2 "\314 " }{TEXT -1 3 "\355
\340 " }}{PARA 0 "" 0 "" {TEXT -1 70 "\361\342\356\341\356\344\355\373
\345 \350 \341\340\347\350\361\355\373\345. \321\342\356\341\356\344
\355\373\345 \357\345\360\345\354\345\355\355\373\345 \341\363\344\345
\354 \347\340\357\350\361\373\342\340\362\374 \342 \354\340\362\360
\350\366\363 " }{TEXT 365 2 "g " }{TEXT -1 1 "\361" }{TEXT 371 1 " " }
{TEXT -1 6 "\352\356\354\357\356-" }}{PARA 0 "" 0 "" {TEXT -1 8 "\355
\345\355\362\340\354\350 " }{TEXT 368 1 "g" }{TEXT -1 1 "[" }{TEXT 
369 3 "i,j" }{TEXT -1 26 "], \363 \352\356\362\356\360\373\365 \355
\356\354\345\360 \361\362\360\356\352\350 " }{TEXT 370 1 "i" }{TEXT 
-1 29 " \361\356\342\357\340\344\340\345\362 \361 \355\356\354\345\360
\356\354 \354\340\362\360\350\366\373 " }{TEXT 366 1 "b" }{TEXT -1 1 "
[" }{TEXT 367 1 "i" }{TEXT -1 9 "]. \317\360\350\367\345\354" }}{PARA 
0 "" 0 "" {TEXT -1 36 "\341\363\344\345\354 \357\356\353\340\343\340
\362\374, \367\362\356 \367\350\361\353\356 \352\356\354\357\356\355
\345\355\362 " }{TEXT 372 1 "g" }{TEXT -1 1 "[" }{TEXT 373 3 "i,j" }
{TEXT -1 11 "] \342 \361\362\360\356\352\345 " }{TEXT 374 2 "i " }
{TEXT -1 19 "\355\345 \354\356\346\345\362 \357\360\345\342\373\370
\340\362\374 " }{TEXT 441 1 "r" }{TEXT -1 1 "[" }{TEXT 442 1 "i" }
{TEXT -1 11 "], \362\356 \345\361\362\374 " }}{PARA 0 "" 0 "" {TEXT 
375 1 "j" }{TEXT -1 7 "=1,...," }{TEXT 443 1 "r" }{TEXT -1 1 "[" }
{TEXT 444 1 "i" }{TEXT -1 73 "]. \317\356-\357\360\345\346\355\345\354
\363 \342 \357\356\353\363\367\345\355\355\356\354 \342\373\360\340
\346\345\355\350\350 \357\345\360\345\351\344\345\354 \356\362 \361
\350\361\362\345\354\355\356\343\356 \357\340\360\340\354\345\362\360
\340 _ " }{TEXT 377 1 "t" }{TEXT -1 1 " " }}{PARA 0 "" 0 "" {TEXT -1 
22 "\352 \357\340\360\340\354\345\362\360\363 \361 \350\354\345\355
\345\354  " }{TEXT 376 2 "g." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 20 "for i from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "if r[
i]>1 then" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "col(b[i],1):=subs(seq(
_t[j]=g[i,j],j=1..n),col(b[i],1)) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 3 "od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "\302\350\347\363\340
\353\350\347\340\366\350\377 \360\345\347\363\353\374\362\340\362\340 \+
\357\356\344\361\362\340\355\356\342\352\350" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 25 "col(b[3],1): col(b[3],2):" }}{PARA 8 "" 1 "" 
{TEXT -1 51 "Error, (in linalg:-col) column index out of bounds\n" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 "\300 \344\340\353\374\370\345, \+
\345\361\353\350 " }{TEXT 383 1 "r" }{TEXT -1 1 "[" }{TEXT 384 1 "i" }
{TEXT -1 38 "]>2 , \342\373\367\350\361\353\377\345\354 \342\361\345 \+
\356\361\362\340\353\374\355\373\345 \361\362\356\353\341\366\373 " }
{TEXT 298 3 "col" }{TEXT -1 1 "(" }{TEXT 299 1 "b" }{TEXT -1 1 "[" }
{TEXT 378 1 "i" }{TEXT -1 2 "]," }{TEXT 300 1 "j" }{TEXT -1 4 "),  " }
{TEXT 301 1 "j" }{TEXT -1 7 "=2,..,(" }{TEXT 302 1 "r" }{TEXT -1 1 "[
" }{TEXT 382 1 "i" }{TEXT -1 9 "]-1) \352\340\352 " }}{PARA 0 "" 0 "" 
{TEXT -1 21 "\364\363\355\352\366\350\350 1-\343\356 \361\362\356\353
\341\366\340 " }{TEXT 296 3 "col" }{TEXT -1 1 "(" }{TEXT 297 1 "b" }
{TEXT -1 1 "[" }{TEXT 380 1 "i" }{TEXT -1 1 "]" }{TEXT 379 1 "," }
{TEXT -1 36 "1) \357\356 \364\356\360\354\363\353\345 (25) , \362\356 \+
\345\361\362\374 - \345\371\270 (" }{TEXT 340 1 "r" }{TEXT -1 1 "[" }
{TEXT 381 1 "i" }{TEXT -1 25 "]-2)- \360\340\347. \315\340\351\344\345
\354 \342\345\352\362\356\360 " }}{PARA 0 "" 0 "" {TEXT 292 5 "\360=co
l" }{TEXT -1 1 "(" }{TEXT 293 1 "b" }{TEXT -1 1 "[" }{TEXT 386 1 "i" }
{TEXT -1 1 "]" }{TEXT 385 2 ",j" }{TEXT -1 24 ") \350\347 \363\360\340
\342\355\345\355\350\377 (25) \344\353\377 " }{TEXT 294 1 "j" }{TEXT 
-1 1 "=" }{TEXT 295 2 "r-" }{TEXT -1 13 "1, \360\345\370\340\377 \321
\313\300\323" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from \+
1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "for j from 2 to r[i]-1
 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "if r[i]>2 then " }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 54 "col(b[i],j):=1/(j-1)!*evalm(M[i]^(j-1)&*col(
b[i],1)): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "col(b[i],j):=convert(
col(b[i],j),vector) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "od:od:" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evalm(col(b[2],2)[1]): J: \+
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 22 "\322\340\352\350\354 \356\341
\360\340\347\356\354 \354\340\362\360\350\366\340 " }{TEXT 269 1 "b" }
{TEXT -1 60 " \357\356\353\363\367\345\355\340. \316\361\362\340\345
\362\361\377 \362\356\353\374\352\356 \347\340\357\350\361\340\362\374
 \345\270 \352\356\354\357\356\355\345\355\362\373, \355\345\356\341
\365\356\344\350-" }}{PARA 0 "" 0 "" {TEXT -1 31 "\354\373\345 \344
\353\377 \344\340\353\374\355\345\351\370\350\365 \342\373\367\350\361
\353\345\355\350\351. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "f
or s from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1
 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for j from 1 to r[s] do
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "b[s][i,j]:=evalm(col(b[s],j)[i]
)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "od:od:od:" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 54 "\302\373\341\356\360\356\367\355\340\377 \342\350
\347\363\340\353\350\347\340\366\350\377 \342\373\367\350\361\353\345
\355\355\373\365 \352\356\354\357\356\355\345\355\362 \354\340\362\360
\350\366\373 " }{TEXT 271 1 "b" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 36 "seq(evalm(b[j]),j=1..3): b[2][1,1]: " }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 12 "\321\362\356\353\341\366\373 col(" }{TEXT 290 1 "b" }
{TEXT -1 1 "," }{TEXT 291 1 "u" }{TEXT -1 3 "), " }{TEXT 288 1 "u" }
{TEXT -1 5 "=1..." }{TEXT 289 1 "r" }{TEXT -1 9 " \354\340\362\360\350
\366\373 " }{TEXT 287 1 "b" }{TEXT -1 47 "  \354\356\346\355\356 \360
\340\361\361\354\340\362\360\350\342\340\362\374 \352\340\352  \342
\345\352\362\356\360\373, \352\356\354\357\356\355\345\355\362\373 " }
}{PARA 0 "" 0 "" {TEXT -1 81 "\352\356\362\356\360\373\365 \347\340
\342\350\361\377\362 \356\362 \357\340\360\340\354\345\362\360\356\342
, \356\357\360\345\344\345\353\377\345\354\373\365 \350\347 \355\340
\367\340\353\374\355\373\365 \363\361\353\356\342\350\351 . \302\342
\345\344\345\354 \342\345\352\362\356\360 " }{TEXT 272 1 "\322" }
{TEXT -1 1 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from
 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "if r[j]>1 then " }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "T[j]:=vector(r[j],[seq(t^(u-1),u=1.
.r[j])]) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "eval(T[2]); eval(T[1]):" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#K%'vectorG6#7$\"\"\"%\"tGQ)pprint306\"" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 10 "\320\340\361\361\354\356\362\360
\350\354" }{TEXT 277 1 " " }{TEXT -1 6 "\352\356\360\345\355\374" }
{TEXT 273 3 "  k" }{TEXT -1 1 "[" }{TEXT 388 1 "j" }{TEXT -1 3 "], " }
{TEXT 389 1 "j" }{TEXT -1 6 "=1,..," }{TEXT 390 1 "J" }{TEXT -1 15 " -
  \352\360\340\362\355\356\361\362\350  " }{OLE 1 4107 1 "[xm]Br=WfoRr
B:::wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::fyyyyya:nYf::G:jy;:::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
JcvGYMt>^:fBWMtNHm=;:::::::n<Ejyyiy=C:Abm?Z:>:;`:Z@[::JB`kaYvxeY`Aj;JZ
PZ:B:F:YLpfF>:::::::::J?NZ;vyyyyyY:vYxY:B:::::::c:;:ElrfH=MtFGYMq>>Wlj
:gmlJ::::::>>?jyyiy=J:B::::::F:;jy=:;:=j[vGUMrvC?MoJ::::::::JCN:ry:>:<
::::::E:MM:>:nyyM;B:AB:;J<>:wAG:J>j>J?>:Q:S:UJ:n;v;;JB<Z:F<N<;jCJDJyky
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:F:DZ:B:::[BqSjP>@[;f?>@jPVB[KRjP>@[;^=N:AVjAa:^nbQ<>:Sn__ibQ<ER:PJ;Ln
cpNdP]:V\\QGghGbf_g<GfmGg]Wbi_f_?d[wf_WH]R;cTTUUSaEBWTSiEB_tUUURWmBHjc
`qpDpql`KfZ=wgoOhcgfl?^HgF;R>CRMcDBEDXceV=MC>[[v_?wk>w_;?dnA\\IvbYGbJO
xYn];?dni\\IFb:^x?_x_^xIPbYGB<[=we;kAQNteli\\NtyrZ<ZJBJcy]=tYKDw[r==dD
yDKyTKcyQE\\;w[FF:=j:DJ;DJ;<J;FZ;F:Aj:^:dj:<J;Vjlc:DrgN:AfTDJ:DrhNZ>nj
_O^mPZ:>kkJ:<j:nyyYZDjyyiyYZHQ:>:;`:Z@o<;j`@Pt\\Pd`QrPPJPMQ<MJPnrPqjLq
nxPq^;<:Z_SKGlAj\\@AJQLncp^nBwmcf]=;::[C:[;f?>@jPVByyyxy;<Z:^:<j:>:yay
Q:>:^a?B:cc:^\\=B:=j>r:OV:<J;fI;J:f:<J;@J;vCS=[LsfFaMR>@>Z::::::::kJ;@
j:>Z:NZ:>Z:vYxY:B::::::v:<JeH:<:=ja:;B:;:::::::::N[:B:yay=J:B::::::nYy
A<::::::::::::jysy:>:<:::::::::::::::::::vYxI:;Z::::::::j:>:E:=b:yyyyq
<JQ@jFB:E:Qb:B:E:Sb:DJZMjCJMTjA^=yyyxY:<Ja><<JZyIGxyyyy;F;nr;B:QB:n>^;
UTR:;Jbf:<j>DZ:b:E:cb:;U:[H:sJ:<jwEJ:uI;B:>l;J:<Z<>ZJ^dcgg_KaBBJq<Jf@u
sYqj@usYQJ<ntYqyaJmDL<<Z:f_;J@<J:N`DZ:VZ:jgpoRdYb@J[AZ=fZ:JDJW^=VYZ:JB
GZ:B:;b:^DVH:nGVX==;;:f?=J<Jr?:O:_;<J;>:_eTKU:;r:<:c:;i:sB:VYZ:JB?:;R:
;b:<kc`a\\wgfC:wu;OrE[up_Jf@E==;;:f?;J<JrAj:F;;JSd:<j:>Z:Vpds:u=G;YI:U
TRZ_gdOWVER::P]:V<BUrV::^DPps:JqF<fg\\wG@[=;:;:fBFF_J>v?ZnA<I\\JOXBweZ
:RKZY[JrJ@>YVKd<xrZ<ZJBJFby?C[r==\\>wExo\\RJZ:FZ<N:?B:<j:F:AB:=J<b<=B:
?j;EADrgj;e`<bZuL;:<:;Z:V;n>^;yayI:>:^=<jw?<I:;JXEZ:Bm=b:?bBaTXaEWEUUD
lyaJm>:OB:=K?AZ:B:=J:^q_Q<CZ:f?=J<Jr?:AJ:<J::::nc;ocC[::::::::::::::::
::::::::::::::::::::::::::2:" }{TEXT -1 31 " . \321\356\356\362\342
\345\362\361\362\342\363\376\371\345\345 \375\362\356\354\363 \352\356
\360\355\376 " }}{PARA 0 "" 0 "" {TEXT -1 42 "\360\345\370\345\355\350
\345 \321\304\323 \350\371\345\362\361\377 \342 \342\350\344\345 \342
\345\352\362\356\360\340-\361\362\356\353\341\366\340 " }{TEXT 274 1 "
Q" }{TEXT -1 21 ", \363\354\355\356\346\345\355\355\356\343\356 \355
\340 exp(" }{TEXT 275 1 "k" }{TEXT -1 1 "[" }{TEXT 338 1 "j" }{TEXT 
-1 2 "]*" }{TEXT 276 1 "t" }{TEXT -1 14 ") \350 \355\345\352\356\362
\356\360\363\376 " }}{PARA 0 "" 0 "" {TEXT -1 26 "\352\356\355\361\362
\340\355\362\363. \302\342\345\344\345\354 \354\340\362\360\350\366
\363 " }{TEXT 458 1 "Q" }{TEXT -1 36 ", \361\362\356\353\341\366\373 \+
\352\356\362\356\360\356\351 \357\360\350\342\377\347\340\355\373 \352
 \352\356\360\355\376 " }{TEXT 387 1 "k" }{TEXT -1 1 "[" }{TEXT 391 1 
"j" }{TEXT -1 1 "]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Q:=ma
trix(n,J,[]): " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 5 "\322\356\343\344
\340" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 1 to J d
o" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "if r[j]>1 then col(Q,j):=evalm
(b[j]&*T[j])" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "else col(Q,j):=eval
m(b[j]): " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "col(Q,j):=convert(col(
Q,j),vector) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "type(Q,matrix); seq(col(Q,j),j=2..2
): col(Q,2)[2]: " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%trueG" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "\322\340\352\350\354 \356\341\360
\340\347\356\354, \360\345\370\345\355\350\345 \350\361\365\356\344
\355\356\351 \321\304\323 \357\356\353\363\367\345\355\356 \342 \356
\341\371\345\354 \342\350\344\345. \305\343\356 \354\356\346\355\356 \+
\347\340\357\350\361\340\362\374 \352\340\352 " }}{PARA 0 "" 0 "" 
{TEXT -1 75 "\342\347\342\345\370\345\355\355\363\376 \361\363\354\354
\363 \342\345\352\362\356\360-\361\362\356\353\341\366\356\342 col(Q,j
), \345\361\353\350 \352\340\346\344\373\351 \350\347 \355\350\365 \+
\344\356\354\355\356\346\350\362\374 \355\340 " }}{PARA 0 "" 0 "" 
{TEXT -1 88 "C[j]*exp(k[j]*t). \312\356\355\361\362\340\355\362\373 \+
\342 \375\362\356\354 \360\345\370\345\355\350\350 \356\357\360\345
\344\345\353\377\376\362\361\377 \350\347 \355\340\367\340\353\374\355
\373\365 \363\361\353\356\342\350\351. \304\353\377 \375\362\356\343
\356 " }}{PARA 0 "" 0 "" {TEXT -1 20 "\357\356\344\361\362\340\342\350
\354 \342 \354\340\362\360\350\366\363 " }{TEXT 278 1 "Q" }{TEXT -1 
20 " \355\340\367\340\353\374\355\356\345 \347\355\340\367\345\355\350
\345 " }{TEXT 279 1 "t" }{TEXT -1 34 "=0, \355\345\356\341\365\356\344
\350\354\356\345 \344\353\377 \342\373\367\350\361\353\345\355\350\377
 \345\270 " }}{PARA 0 "" 0 "" {TEXT -1 52 "\357\340\360\340\354\345
\362\360\356\342. \320\345\347\363\353\374\362\340\362 \357\356\344
\361\362\340\355\356\342\352\350 \356\362\360\340\347\350\354 \342 \+
\354\340\362\360\350\366\345 " }{TEXT 280 1 "Q" }{TEXT -1 1 "0" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Q0:=matrix(n,J,[]):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "\317\360\350\367\345\354 \361\362
\356\353\341\366\373 \354\340\362\360\350\366\373 " }{TEXT 394 1 "Q" }
{TEXT -1 27 "0  \362\340\352\346\345 \357\360\350\342\377\347\340\355
\373 \352 \352\356\360\355\376 " }{TEXT 392 1 "k" }{TEXT -1 1 "[" }
{TEXT 393 1 "j" }{TEXT -1 2 "]." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "for j from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "if \+
r[j]>1 then col(Q0,j):=evalm(subs(t=0,col(Q,j))) " }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 28 "else col(Q0,j):=col(Q,j) fi:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 20 "\302\350
\347\363\340\353\350\347\340\366\350\377 \354\340\362\360\350\366\373
" }{TEXT 498 2 " Q" }{TEXT -1 1 "0" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "seq(evalm(col(Q0,j)),j=1..2):" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 16 "\307\340\357\350\370\345\354 \354\340\362\360\350
\366\363 " }{TEXT 282 2 "AQ" }{TEXT -1 2 "0[" }{TEXT 451 1 "i" }{TEXT 
-1 24 "] \352\356\375\364\364\350\366\350\345\355\362\356\342 \354\340
\362\360\350\366\373 " }{TEXT 281 1 "Q" }{TEXT -1 2 "0[" }{TEXT 452 1 
"i" }{TEXT -1 26 "],  \361\356\356\362\342\345\362\361\362\342\363\376
\371\363\376 \352\356\360\355\376 " }{TEXT 499 1 "k" }{TEXT -1 1 "[" }
{TEXT 500 1 "i" }{TEXT -1 4 "] \350 " }}{PARA 0 "" 0 "" {TEXT -1 15 "
\357\360\345\344\361\362\340\342\353\377\376\371\363\376 " }{TEXT 453 
1 "i" }{TEXT -1 16 "-\376 \354\340\362\360\350\366\363 \321\313\300
\323 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to J \+
do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "AQ0[i]:=matrix(n,r[i],[])" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 65 "\317\360\350 \345\270 \342\373\367\350\361\353\345\355
\350\350 \341\363\344\345\354 \350\361\357\356\353\374\347\356\342\340
\362\374 \362\356 \356\341\361\362\356\377\362\345\353\374\361\362\342
\356, \367\362\356 \357\340\360\340 " }{TEXT 398 1 "r" }{TEXT -1 1 "[
" }{TEXT 399 1 "s" }{TEXT -1 4 "] \350 " }{TEXT 395 3 "col" }{TEXT -1 
1 "(" }{TEXT 396 1 "Q" }{TEXT -1 2 "0," }{TEXT 397 1 "s" }{TEXT -1 8 "
) \357\356\347\342\356-" }}{PARA 0 "" 0 "" {TEXT -1 19 "\353\377\345
\362 \342\373\344\345\353\377\362\374 (\344\353\377 " }{TEXT 400 1 "r
" }{TEXT -1 1 "[" }{TEXT 401 1 "s" }{TEXT -1 7 "]>1) \342 " }{TEXT 
402 3 "col" }{TEXT -1 1 "(" }{TEXT 403 1 "Q" }{TEXT -1 2 "0," }{TEXT 
404 1 "s" }{TEXT -1 19 ") \352\356\375\364\364\350\366\350\345\355\362
\373 \357\360\350 " }{TEXT 405 1 "g" }{TEXT -1 1 "[" }{TEXT 406 1 "s" 
}{TEXT -1 1 "," }{TEXT 407 1 "j" }{TEXT -1 23 "]. \302\355\340\367\340
\353\345 \355\340\351\344\345\354 \352\356\375\364-" }}{PARA 0 "" 0 "
" {TEXT -1 37 "\364\350\366\350\345\355\362\373 \342 \356\344\350\355
\356\367\355\373\365 \361\362\356\353\341\366\340\365 \354\340\362\360
\350\366 " }{TEXT 445 1 "b" }{TEXT -1 5 "[s], " }{TEXT 446 1 "r" }
{TEXT -1 1 "[" }{TEXT 447 1 "s" }{TEXT -1 8 "]=1 \350\353\350 " }
{TEXT 448 3 "col" }{TEXT -1 1 "(" }{TEXT 449 1 "Q" }{TEXT -1 2 "0," }
{TEXT 450 1 "s" }{TEXT -1 1 ")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "for s from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "if \+
r[s]=1 then col(AQ0[s],s):=evalm(col(Q0,s)/g[s,s]): " }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 41 "AQ0[s]:=convert(col(AQ0[s],s),matrix) fi:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "col(AQ0[1],1): " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
23 "\315\350\346\345 \350\347\354\345\355\345\355\350\345 \350\355\344
\345\352\361\340 " }{TEXT 415 2 " j" }{TEXT -1 15 " \344\356 \347\355
\340\367\345\355\350\377   " }{TEXT 409 1 "j" }{TEXT -1 1 "=" }{TEXT 
410 1 "r" }{TEXT -1 1 "[" }{TEXT 411 1 "s" }{TEXT -1 4 "], (" }{TEXT 
416 1 "r" }{TEXT -1 1 "[" }{TEXT 417 1 "s" }{TEXT -1 35 "]>1) \356\357
\360\345\344\345\353\377\345\362\361\377 \352\360\340\362\355\356\361
\362\374\376 \352\356\360\355\377 " }{TEXT 454 1 "k" }{TEXT -1 1 "[" }
{TEXT 455 1 "j" }{TEXT -1 2 "]." }}{PARA 0 "" 0 "" {TEXT -1 34 "\312
\360\340\351\355\350\351 \357\360\340\342\373\351 \361\362\356\353\341
\345\366 \361 \355\356\354\345\360\356\354  " }{TEXT 412 1 "j" }{TEXT 
-1 1 "=" }{TEXT 413 1 "r" }{TEXT -1 1 "[" }{TEXT 414 1 "s" }{TEXT -1 
13 "]  \342 \354\340\362\360\350\366\345 " }{TEXT 408 1 "b" }{TEXT -1 
32 "[s]  \377\342\353\377\345\362\361\377 \361\356\341\361\362\342\345
\355\355\373\354 \342\345\352\362\356-" }}{PARA 0 "" 0 "" {TEXT -1 41 
"\360\356\354, \344\353\377 \352\356\362\356\360\356\343\356 \356\341
\371\340\377 \352\356\355\361\362\340\355\362\340  \360\340\342\355
\340 " }{TEXT 555 1 "g" }{TEXT -1 1 "[" }{TEXT 556 1 "s" }{TEXT -1 1 "
," }{TEXT 557 1 "r" }{TEXT -1 1 "[" }{TEXT 558 1 "s" }{TEXT -1 40 "]].
  \321\353\345\344\356\342\340\362\345\353\374\355\356,  \375\362\356
\362 \361\362\356\353\341\345\366 \354\356\346\355\356 " }}{PARA 0 "" 
0 "" {TEXT -1 35 "\342\373\367\350\361\353\377\362\374 \356\362\344
\345\353\374\355\356, \355\340\357\360\350\354\345\360, \362\340\352  \+
" }{TEXT 421 3 "col" }{TEXT -1 1 "(" }{TEXT 422 2 "AQ" }{TEXT -1 2 "0[
" }{TEXT 418 1 "s" }{TEXT -1 2 "]," }{TEXT 419 1 "r" }{TEXT -1 1 "[" }
{TEXT 420 1 "s" }{TEXT -1 4 "]):=" }{TEXT 423 3 "col" }{TEXT -1 1 "(" 
}{TEXT 424 1 "b" }{TEXT -1 1 "[" }{TEXT 425 1 "s" }{TEXT -1 2 "]," }
{TEXT 426 1 "r" }{TEXT -1 1 "[" }{TEXT 427 1 "s" }{TEXT -1 19 "]). \+
\316\344\355\340\352\356, \355\350\346\345 \342 " }}{PARA 0 "" 0 "" 
{TEXT -1 59 "\340\353\343\356\360\350\362\354\345 \350\361\357\356\353
\374\347\363\345\362\361\377 \357\356\352\356\356\360\344\350\355\340
\362\355\356\345 \342\373\367\350\361\353\345\355\350\345 \352\356\354
\357\356\355\345\355\362." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "for s from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for j f
rom 1 to r[s] do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to
 n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "if r[s]>1 then AQ0[s][i,j]
:=coeff(col(Q0,s)[i],g[s,j]) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "
od:od:od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "rank(AQ0[2]): \+
evalm(AQ0[2]): " }{TEXT -1 23 "\354\340\362\360\350\366\340 \321\313
\300\323 \350 \345\270 \360\340\355\343." }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 19 "\317\356\353\363\367\345\355\355\373\345 \354\340\362\360
\350\366\373 " }{TEXT 456 2 "AQ" }{TEXT -1 2 "0[" }{TEXT 457 1 "s" }
{TEXT -1 32 "] \362\345\357\345\360\374 \355\340\344\356 \356\341\372
\345\344\350\355\350\362\374 \342 \356\344\355\363 " }{TEXT 472 2 "AS
" }{TEXT -1 27 ", \352\356\362\356\360\340\377 \350 \341\363\344\345
\362 \350\362\356\343\356\342\356\351 " }}{PARA 0 "" 0 "" {TEXT -1 15 
"\354\340\362\360\350\366\345\351 \321\313\300\323: " }{OLE 1 4107 1 "
[xm]Br=WfoRrB:::wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::fyyyyya:nYf::G:
jy;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::JcvGYMt>^:fBWMtNHm=;:::::::n<Ejyyiy=C:Abm?Z:>:;`:Z@[::JB`k
aYvxeY`Aj;J:QZ:B:F:YLpfF>:::::::::J?NZ;vyyyyyY:vYxY:B:::::::c:;:ElrfH=
MtFGYMq>>Wlj:gmlJ::::::>>?jyyiy=J:B::::::F:;J?@:<:=j[vGUMrvC?MoJ::::::
::JCN:ry:>:<::::::E:MM:>:nyyM;B:AB:;J<JAJ=JyK>j>J?<J:V;^;f;;jA>:wA[J:F
<N<;jCJDjDJyky;:::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::j:b:<Z:::>`>^;N;=K?A:;B:=J:^q_Q<C:US:=J<JrA:AJ:^=N:AVjWA
CGt_:;J@WSsEt_j<@Z?NZ>WdG_doB:arOMeU=DUSeJ=uVMuRAtUCUS[TRIUSamBPJd`ppP
ps<LaPpu<Lcxpp@PqF\\=Vdsgg\\wgfS>ErJYUW_UTEeV;cMEM:@K<pNd<l\\\\QtDqjN<
KRBYSKYFKYSJ[Dw[r=ItQ=DN_yAwRJ[Dwer==D:cYKcYCcy]?tQ=\\JrJyTJvk?_xdveB_
xIHb:B><NtyrZxQ^LYBxjZdliLniPNtyo\\RJYB==j:FZ<NZ<NZ:N:=R:=j;F:CZDFZ:N:
AVJD:aD:?B;GVk?so?j;E_<JnNZ>RIpM;FZ:nyyYZDjysyAbm?:;JZC:bKgJ:fc[_hb_ds
?h_?^on_j>^?GhoGfnGgioGSZ::RSPN]v;;j\\@AJQLncp^nBwmcf]]:>::TpsDMTlokTP
Slon<LhDPR<LhPQp<MJlojLpyyyyyy;<:CZ:F:;jysy?J:>:VaCjpA:Cs:<j:F;HJCAZ:N
:?N:>:EZ:NZ;N:YLpJbNHEms>@[C:>Z::::::::kJ;@j:>Z:NZ:>:yayA:<::::::IZ:nf
=Z:j:vCJ:<J::::::::::OB:;B:yay=J:B::::::nYyA<::::::::::::jysy:>:<:::::
::::::::::::::vYxI:;Z::::::::j:>:E:=b:yyyyq<JQ@jFB:E:Qb:B:E:Sb:;X:;E<a
:Gc;YJHvyyuy;B:WLBB:;xynryyyyA^BB:GV:<j?<:G;Sj`@@J:>@EZ:F[<B:Dj<>:cb:;
U:Gu;sJ:<jwEJ:uI<:[V:>Z:b:;B>cTTUUSZZ:WE:kTfayW=UfayW;CJeyW;f<GEtC:UK:
F[:>:_c<B:=B:<JR`a=fZ:JDJf^=;jw;<:[V:=B:>Z<:VH:nGVX==;;:f?=J<JrA:YJ:<J
SZ:f:FbMOdb?EOQOAJo_f<r:EB:^<>d<^=VYZ:JB?:;R:D:aTXDpql`:N_CN[`>hUQ<kTf
FF>>:AFPDJ:\\RRB::::::::::C:UK:^:>x;F:O:_c<B:?J:vtw>n<r:?>G;oq`@@RSeTO
Wq<@:ZoB:a:l@=mn::^DPps:JqF<fg\\wG@[=;:;:fBFF_J>v?ZnA<I\\JOXBweZ:RK:B>
H^;kAQ^dZID:<[:kZxQ^>\\IFBZYgB@>B:=b:?J;<:=R:=j;F:CZDFZ:j;A>Vd:B;GVkj;
E_<JnB;p=VjR?:;B\\B:Q:G;Sjysy=J:<J:JHB:qQBv:;J:^q<B:lv:DJ;Dlc`qsLqlp`b
AjDnF;B:OB:=K?C:<j:>:sWsZ:f?=J<Jr?:AB:;B:;:::Ja@Na`><:::::::::::::::::
:::::::::::2:" }{TEXT -1 55 " . \310\354\345\355\355\356 \350\347 \375
\362\356\343\356 \363\360\340\342\355\345\355\350\377 \354\373 \355
\340\351\344\345\354 \342\345\352\362\356\360 \352\356\355\361\362\340
\355\362 " }{TEXT 473 3 "Rh," }}{PARA 0 "" 0 "" {TEXT -1 58 "\367\350
\361\353\345\355\355\373\345 \347\355\340\367\345\355\350\377 \352\356
\354\357\356\355\345\355\362 \352\356\362\356\360\356\343\356 \357\356
\344\361\362\340\342\350\354 \342 \354\340\362\360\350\366\363 " }
{TEXT 474 2 "g " }{TEXT -1 1 "\350" }{TEXT 476 1 " " }{TEXT -1 22 "
\357\356\353\363\367\350\354 \356\352\356\355\367\340\362\345\353\374
\355\356\345 " }}{PARA 0 "" 0 "" {TEXT -1 8 "\360\345\370\345\355\350
\345 " }{TEXT 475 1 "\325" }{TEXT -1 1 "(" }{TEXT 477 1 "t" }{TEXT -1 
7 "). \310\362\340\352" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "A
S:=concat(seq(AQ0[j],j=1..J)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 28 "Rh:=vector(n,[]): rank(AS); " }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "\322\356\343\344\340,
 \350\361\365\356\344\377 \350\347 \355\340\367\340\353\374\355\373
\365 \363\361\353\356\342\350\351 " }{TEXT 478 1 "\325" }{TEXT -1 14 "
0, \352\356\354\357\356\355\345\355\362\373 " }{TEXT 479 1 "g" }{TEXT 
-1 1 "[" }{TEXT 480 1 "s" }{TEXT -1 1 "," }{TEXT 481 1 "i" }{TEXT -1 
3 "], " }{TEXT 482 1 "s" }{TEXT -1 6 "=1,..," }{TEXT 483 1 "J" }{TEXT 
-1 2 ", " }{TEXT 484 1 "i" }{TEXT -1 6 "=1,..," }{TEXT 485 1 "n" }
{TEXT -1 9 " \354\340\362\360\350\366\373 " }{TEXT 283 2 "Q " }{TEXT 
-1 2 " (" }{TEXT 284 1 "Q" }{TEXT -1 3 "0) " }}{PARA 0 "" 0 "" {TEXT 
-1 26 "\356\357\360\345\344\345\353\350\354 \352\340\352 \360\345\370
\345\355\350\345 \321\313\300\323" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "Rh:=linsolve(AS,X0); Rh[4]:  " }{TEXT 339 8 "linsolve
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#RhG6\"" }}{PARA 8 "" 1 "" 
{TEXT -1 34 "Error, invalid subscript selector\n" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 45 "\316\361\363\371\345\361\362\342\350\354 \357\356
\344\361\362\340\355\356\342\352\363 \342\373\367\350\361\353\345\355
\355\373\365 \352\356\354\357\356\355\345\355\362 " }{TEXT 486 2 "Rh" 
}{TEXT -1 1 "[" }{TEXT 487 1 "i" }{TEXT -1 12 "] \342 \354\340\362\360
\350\366\363 " }{TEXT 285 3 "Q. " }{TEXT -1 13 "\315\340\357\356\354
\355\350\354, \367\362\356" }}{PARA 0 "" 0 "" {TEXT -1 10 "\342 \354
\340\362\360\350\366\345 " }{TEXT 460 1 "Q" }{TEXT -1 28 "  \361\362
\356\353\341\366\373 \357\360\350\342\377\347\340\355\373 \352 \352
\356\360\355\376 " }{TEXT 459 1 "k" }{TEXT -1 1 "[" }{TEXT 468 1 "s" }
{TEXT -1 25 "], \340 \361\340\354 \352\356\360\345\355\374 \352 \355
\356\354\345\360\363 " }{TEXT 501 1 "s" }{TEXT -1 9 " \354\340\362\360
\350\366\373 " }{TEXT 470 1 "b" }{TEXT -1 1 "[" }{TEXT 471 1 "s" }
{TEXT -1 3 "], " }}{PARA 0 "" 0 "" {TEXT 488 1 "s" }{TEXT -1 6 "=1,..,
" }{TEXT 489 1 "J" }{TEXT -1 24 ". \315\340\357\356\354\355\350\354, \+
\367\362\356 \354\340\362\360\350\366\340 " }{TEXT 504 1 "g" }{TEXT 
-1 19 " \350\354\345\345\362 \352\356\354\357\356\355\345\355\362\373 \+
 " }{TEXT 502 1 "g" }{TEXT -1 1 "[" }{TEXT 503 3 "s,j" }{TEXT -1 26 "]
, \363 \352\356\362\356\360\373\365 \355\356\354\345\360 \361\362\360
\356\352\350 " }{TEXT 490 1 "s" }{TEXT -1 1 " " }}{PARA 0 "" 0 "" 
{TEXT -1 28 "\361\356\342\357\340\344\340\345\362 \361 \355\356\354
\345\360\356\354 \354\340\362\360\350\366\373 " }{TEXT 461 1 "b" }
{TEXT -1 1 "[" }{TEXT 469 1 "s" }{TEXT -1 46 "]. \317\360\350\367\345
\354 \341\363\344\345\354 \357\356\353\340\343\340\362\374, \367\362
\356 \367\350\361\353\356 \352\356\354\357\356\355\345\355\362 " }
{TEXT 462 1 "g" }{TEXT -1 1 "[" }{TEXT 463 3 "s,j" }{TEXT -1 4 "] \342
 " }}{PARA 0 "" 0 "" {TEXT -1 7 "\361\362\360\356\352\345 " }{TEXT 
464 2 "s " }{TEXT -1 19 "\355\345 \354\356\346\345\362 \357\360\345
\342\373\370\340\362\374 " }{TEXT 466 1 "r" }{TEXT -1 13 "[s], \362
\356 \345\361\362\374 " }{TEXT 465 1 "j" }{TEXT -1 7 "=1,...," }{TEXT 
467 1 "r" }{TEXT -1 5 "[s]. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 20 "for s from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i
 from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "if s=1 then " }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "col(Q,s)[i]:=subs(seq(g[s,j]=Rh[j],
j=1..r[s]),col(Q,s)[i])" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "else col
(Q,s)[i]:=subs(seq(g[s,j]=Rh[(sum(r[m], m=1..s-1))+j],j=1..r[s]),col(Q
,s)[i]) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "od:od:" }}{PARA 8 "" 
1 "" {TEXT -1 34 "Error, invalid subscript selector\n" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 37 "\302\350\347\363\340\353\350\347\340\366
\350\377 \357\356\353\363\367\345\355\355\356\343\356 \360\345\347\363
\353\374\362\340\362\340. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
28 "seq(evalm(col(Q,j)),j=1..1):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 3 " J;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "\322\340\352 \352\340\352  \342
\345\352\362\356\360 \352\356\355\361\362\340\355\362 " }{TEXT 270 2 "
\321 " }{TEXT -1 3 "\363\346\345" }{TEXT 492 1 " " }{TEXT -1 13 "\361
\356\344\345\360\346\350\362\361\377 \342 " }{TEXT 491 1 "g" }{TEXT 
-1 1 "[" }{TEXT 493 3 "s,j" }{TEXT -1 23 "] \350 \354\373 \350\365 \+
\356\357\360\345\344\345\353\350\353\350 \342 " }{TEXT 494 2 "Rh" }
{TEXT -1 1 "[" }{TEXT 495 1 "i" }{TEXT -1 14 "], \362\356 \344\356\357
\356\353\355\350-" }}{PARA 0 "" 0 "" {TEXT -1 82 "\362\345\353\374\355
\356 \363\354\355\356\346\340\362\374 \360\345\370\345\355\350\345 \+
\355\340 \375\362\350 \352\356\355\361\362\340\355\362\373 \355\345
\362 \355\340\344\356\341\356\361\362\350. \321\360\340\347\363 \347
\340\357\350\370\345\354 \360\345\370\345\355\350\345 (1) " }}{PARA 0 
"" 0 "" {TEXT -1 93 "\361\350\361\362\345\354\373 (2) \342 \342\350
\344\345: X[i]:=add(C[j]*exp(k[j]*t)*col(Q,j)[i], j=1..J), \357\356
\353\340\343\340\377 \342 \355\345\354 \352\356\355\361\362\340\355
\362\373 " }}{PARA 0 "" 0 "" {TEXT -1 84 "C[j]=1. \317\356\353\363\367
\345\355\355\356\345 \360\345\370\345\355\350\345 X[i] \342 \361\353
\363\367\340\345 \352\356\354\357\353\345\352\361\355\373\365 \352\356
\360\355\345\351 \341\363\344\345\362 \350\354\345\362\374 \352\356
\354\357\353\345\352\361\355\373\351 " }}{PARA 0 "" 0 "" {TEXT -1 72 "
\342\350\344. \317\356\375\362\356\354\363 \342 \355\345\354 \355\340
\344\356 \342\373\344\345\353\350\362\374 \356\362\344\345\353\374\355
\356 \344\345\351\361\362\342\350\362\345\353\374\355\363\376 \350 \+
\354\355\350\354\363\376 \367\340\361\362\350." }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 62 "\317\356 \364\356\360\354\363\353\345 \335\351\353
\345\360\340 \357\360\345\356\341\360\340\347\363\345\354 \375\352\361
\357\356\355\345\355\362\363 \342 \352\356\354\357\353\345\352\361\355
\356\351 \361\362\345\357\345\355\350" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "for i from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 37 "if Im(k[i])=0 then xp[i]:=exp(k[i]*t)" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 81 "else xp[i]:=exp(Re(k[i])*t)*cos(Im(k[i])*t)+I*exp(Re(
k[i])*t)*sin(Im(k[i])*t) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "\316\362\356\341\360\340\347
\350\354 \360\345\347\363\353\374\362\340\362 \357\360\345\356\341\360
\340\347\356\342\340\355\350\377" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "k[2]: xp[2]; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$e
xpG6#,$*&\"$+\"!\"\"%\"tG\"\"\"F)" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 
-1 0 "" }{TEXT 525 26 "\315\345\356\341\365\356\344\350\354\373\345 \+
\357\360\345\356\341\360\340\347\356\342\340\355\350\377" }}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 42 "\317\360\350\354\345\367\340\355\350\345.
 \317\356\352\340\346\345\354 \360\340\341\356\362\363 \356\362\344
\345\353\374\355\373\365 \356\357\366\350\351" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 18 " Re(col(Q,2)[1]); " }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#-%#ReG6#,&&&%\"bG6#\"\"#6$\"\"\"F-F-*&&F(6$F-F+F-%\"tGF-F-" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "Re(coeff(col(Q,2)[1],t));  \+
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%#ReG6#&&%\"bG6#\"\"#6$\"\"\"F*" 
}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "\300 \362\345\357\345\360\374 \+
\363\354\355\356\346\350\354 \356\344\355\363 \350\347 \352\356\354
\357\353\345\352\361\355\373\365 \352\356\354\357\356\355\345\355\362 \+
" }{TEXT 526 8 "col(Q,2)" }{TEXT -1 1 "[" }{TEXT 528 1 "i" }{TEXT -1 
13 "]   \342\345\352\362\356\360\340  " }{TEXT 527 8 "col(Q,2)" }
{TEXT -1 4 " \355\340 " }}{PARA 0 "" 0 "" {TEXT -1 27 "\357\360\345
\356\341\360\340\347\356\342\340\355\355\363\376 \375\352\361\357\356
\355\345\355\362\363 " }{TEXT 529 2 "xp" }{TEXT -1 1 "[" }{TEXT 530 1 
"i" }{TEXT -1 1 "]" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evalm
(col(Q,2)[1]*xp[2]); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*&,&&&%\"bG6#
\"\"#6$\"\"\"F+F+*&&F&6$F+F)F+%\"tGF+F+F+-%$expG6#,$*&\"$+\"!\"\"F/F+F
6F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 31 "\302\373\357\356\353\355
\350\354 \357\356\367\353\345\355\355\356\345 \357\345\360\345\354\355
\356\346\345\355\350\345" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 
"pxe:=expand(evalm(col(Q,2)[1]*xp[2]));" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$pxeG,&*&-%$expG6#,$*&\"$+\"!\"\"%\"tG\"\"\"F-F/&&%\"bG6#\"\"#
6$F/F/F/F/*(F'F/&F16$F/F4F/F.F/F/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
33 "\302\342\345\344\345\354 \356\343\360\340\355\350\367\345\355\350
\377 \355\340 \357\345\360\345\354\345\355\355\363\376 " }{TEXT 532 1 
"t" }{TEXT -1 18 "  \361 \357\356\354\356\371\374\376 \356\357\366\350
\350 " }{TEXT 531 7 "assume," }{TEXT -1 15 " \355\340\357\360\350\354
\345\360, \362\340\352:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "
assume(t,real):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 73 "\317\356\361
\353\345 \367\345\343\356 \357\356\377\342\353\377\345\362\361\377 \+
\342\356\347\354\356\346\355\356\361\362\374 \342\373\344\345\353\350
\362\374 \354\355\350\354\363\376 \350 \344\345\351\361\362\342\350
\362\345\353\374\355\363\376 \367\340\361\362\350 " }}{PARA 0 "" 0 "" 
{TEXT -1 10 "\342\373\360\340\346\345\355\350\377 " }{TEXT 533 3 "pxe
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "Im(pxe); Re(pxe);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%#ImG6#,&*&-%$expG6#,$*&\"$+\"!\"\"%#
t|irG\"\"\"F.F0&&%\"bG6#\"\"#6$F0F0F0F0*(F(F0&F26$F0F5F0F/F0F0" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%#ReG6#,&*&-%$expG6#,$*&\"$+\"!\"\"%#
t|irG\"\"\"F.F0&&%\"bG6#\"\"#6$F0F0F0F0*(F(F0&F26$F0F5F0F/F0F0" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "\321\356\341\345\360\345\354 \352
\356\375\364\364\350\366\350\345\355\362\373 \357\360\350 " }{TEXT 
548 3 "exp" }{TEXT -1 1 "(" }{TEXT 549 2 "Re" }{TEXT -1 1 "(" }{TEXT 
550 1 "k" }{TEXT -1 1 "[" }{TEXT 551 1 "i" }{TEXT -1 3 "])*" }{TEXT 
552 1 "t" }{TEXT -1 5 ") \350  " }{TEXT 535 1 "t" }{TEXT -1 1 "^" }
{TEXT 536 1 "j" }{TEXT -1 44 " \342 \354\355\350\354\356\351 \350 \344
\345\351\361\362\342\350\362\345\353\374\355\356\351 \367\340\361\362
\377\365 \342\373\360\340\346\345\355\350\377 " }}{PARA 0 "" 0 "" 
{TEXT 534 3 "pxe" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 131 "collec
t(collect(Im(pxe),\{seq(t^j,j=1..r[2]-1)\}),exp(Re(k[2])*t)); collect(
collect(Re(pxe),\{seq(t^j,j=1..r[2]-1)\}),exp(Re(k[2])*t));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#-%#ImG6#,&*&-%$expG6#,$*&\"$+\"!\"\"%#t|irG
\"\"\"F.F0&&%\"bG6#\"\"#6$F0F0F0F0*(F(F0&F26$F0F5F0F/F0F0" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#-%#ReG6#,&*&-%$expG6#,$*&\"$+\"!\"\"%#t|irG\"\"
\"F.F0&&%\"bG6#\"\"#6$F0F0F0F0*(F(F0&F26$F0F5F0F/F0F0" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 36 "\307\340\357\350\370\345\354 \357\360\350\342\345\344\345\355
\355\373\345 \342\373\370\345 \342 \360\340\347\344\345\353\345 \"" }
{TEXT 537 26 "\315\345\356\341\365\356\344\350\354\373\345 \357\360
\345\356\341\360\340\347\356\342\340\355\350\377" }{TEXT -1 17 "\" \+
\356\362\344\345\353\374\355\373\345 \364\360\340\343-" }}{PARA 0 "" 
0 "" {TEXT -1 46 "\354\345\355\362\373 \340\353\343\356\360\350\362
\354\340 \342 \342\350\344\345 \356\341\371\345\343\356 \366\345\353
\356\343\356 \340\353\343\356\360\350\362\354\340" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 20 "for j from 1 to J do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "for i from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 215 "if Im(k[j])<>0 then pxe:=expand(evalm(col(Q,j)[i]*xp[j])):  xpr
[i,j]:=collect(collect(Re(pxe),\{seq(t^u,u=1..r[j]-1)\}),exp(Re(k[j])*
t)): xpi[i,j]:=collect(collect(Im(pxe),\{seq(t^u,u=1..r[j]-1)\}),exp(R
e(k[j])*t)) fi: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "od:od:" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "\302\350\347\363\340\353\350\347
\340\366\350\377 \357\356\353\363\367\345\355\355\356\343\356 \360\345
\347\363\353\374\362\340\362\340" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "xpr[1,2]: xpi[6,3]:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 51 "\317\345\360\345\357\350\370\345\354  \342\345\352\362\356\360 \+
exp(k[j]*t)*col(Q,j)  \342  \354\340\362\360\350\366\363 " }{TEXT 538 
2 "\365\365" }{TEXT -1 32 " \361 \356\362\344\345\353\374\355\373\354 \+
\342\373\344\345\353\345\355\350\345\354 \357\356\347\350\366\350\351 \+
" }}{PARA 0 "" 0 "" {TEXT -1 77 "\357\356\344 \344\345\351\361\362\342
\350\362\345\353\374\355\363\376 \350 \354\355\350\354\363\376 \367
\340\361\362\350 \352\356\354\357\353\345\352\361\355\373\365 \352\356
\354\357\356\355\345\355\362. \322\340\352\350\354 \356\341\360\340
\347\356\354, \345\361\353\350 " }}{PARA 0 "" 0 "" {TEXT -1 11 "\352
\356\354\357\356\355\345\355\362\340 " }{TEXT 510 1 "k" }{TEXT -1 1 "[
" }{TEXT 513 1 "s" }{TEXT -1 69 "]  \352\356\354\357\353\345\352\361
\355\340\377, \362\356 \356\355\340 \341\363\344\345\362 \347\340\357
\350\361\340\355\340 \342 \344\342\345 \357\356\347\350\366\350\350 (
\344\342\340 \361\362\356\353\341\366\340)  \350 " }}{PARA 0 "" 0 "" 
{TEXT 511 2 "kg" }{TEXT -1 1 "[" }{TEXT 512 1 "k" }{TEXT -1 25 "]=2. \+
\302 \356\361\362\340\353\374\355\373\365 \361\353\363\367\340\377\365
 " }{TEXT 514 2 "kg" }{TEXT -1 1 "[" }{TEXT 515 1 "k" }{TEXT -1 29 "]=
1. \322\356 \345\361\362\374 \357\356\353\363\367\350\354 \340\353\343
\356\360\350\362\354" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for
 s from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "if Im(k[s])=0 \+
then kg[s]:=1" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "else kg[s]:=2 fi:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 25 "\316\357\360\345\344\345\353\350\354 \367\350\361\353\356
 \361\362\356\353\341\366\356\342 " }{TEXT 540 2 "JJ" }{TEXT -1 9 " \+
\354\340\362\360\350\366\373 " }{TEXT 539 2 "\365\365" }}}{EXCHG 
{PARA 0 "> " 0 "" {XPPEDIT 19 1 "JJ:=add(kg[s], s=1..J);" "6#>%#JJG-%$
addG6$&%#kgG6#%\"sG/F+;\"\"\"%\"JG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%#JJG\"\"$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 37 "\307\340\357\350
\370\345\354 \340\353\343\356\360\350\362\354 \364\356\360\354\350\360
\356\342\340\355\350\377 \361\362\360\356\352\350 " }{TEXT 516 1 "n" }
{TEXT -1 9 " \354\340\362\360\350\366\373 " }{TEXT 517 3 "xx " }{TEXT 
-1 3 "\344\353\377" }{TEXT 519 2 "  " }{TEXT -1 17 "\353\376\341\356
\343\356 \361\353\363\367\340\351\355\356\343\356" }}{PARA 0 "" 0 "" 
{TEXT -1 23 "\360\340\361\357\356\353\356\346\345\355\350\377 \352\356
\354\357\356\355\345\355\362 " }{TEXT 518 1 "k" }{TEXT -1 1 "[" }
{TEXT 520 1 "s" }{TEXT -1 12 "] \342 \342\345\352\362\356\360\345 " }
{TEXT 521 1 "k" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for s fro
m 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to n do
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "if Im(k[s])=0 and s=1 then xx[i
,s]:=evalm(col(Q,s)[i]*xp[s])  fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
86 "if Im(k[s])=0 and s>1 then xx[i,sum(kg[m], m=1..s-1)+1]:=evalm(col
(Q,s)[i]*xp[s]) fi: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "if s=1 and \+
Im(k[s])<>0 then xx[i,s]:=xpr[i,s]: xx[i,S+1]:=xpi[i,s] fi:" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 110 "if s>1 and Im(k[s])<>0 then xx[i,sum(kg[
m], m=1..s-1)+1]:=xpr[i,s]: xx[i,sum(kg[m], m=1..s-1)+2]:=xpi[i,s] fi:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "od:od:" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 59 "\317\360\350\342\345\344\345\354 \352\340\352 \341\356
\353\345\345 \355\340\343\353\377\344\355\363\376 \357\356\352\356\356
\360\344\350\355\340\362\355\363\376 \347\340\357\350\361\374 \360\345
\370\345\355\350\377:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "fo
r i from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "X[i]:=add(C[j
]*xx[i,j], j=1..JJ):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 14 "\303\344\345 \352\356\355\361\362
\340\355\362\373 " }{TEXT 522 1 "C" }{TEXT -1 1 "[" }{TEXT 523 1 "i" }
{TEXT -1 65 "] \362\340\352\346\345 \356\357\360\345\344\345\353\377
\376\362\361\377 \350\347 \355\340\367\340\353\374\355\373\365 \363
\361\353\356\342\350\351. \302 \361\350\353\363 \363\352\340\347\340
\355\355\373\365 \342\373\370\345 " }}{PARA 0 "" 0 "" {TEXT -1 33 "
\357\360\350\367\350\355 \347\344\345\361\374 \356\355\350 \360\340
\342\355\373 \345\344\350\355\350\366\345.  " }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 22 "for s from 1 to JJ do " }{TEXT -1 6 "\347\344
\345\361\374 " }{TEXT 524 1 "s" }{TEXT -1 15 " \350\347\354\345\355
\377\345\362\361\377 \344\356 " }{TEXT 542 2 "JJ" }{TEXT -1 11 " , \+
\340 \355\345 \344\356 " }{TEXT 541 2 "n " }{TEXT -1 1 "!" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 7 "C[s]:=1" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "
od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "\321\344\345\353\340\345
\354 \357\356\357\373\362\352\363 \342\356\347\354\356\346\355\356\343
\356 \363\357\360\356\371\345\355\350\377 \360\345\370\345\355\350\377
, \357\360\350\342\345\344\345\355\350\377 \357\356\344\356\341\355
\373\365 \367\353\345\355\356\342 \350 \362.\344." }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 20 "for i from 1 to n do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "for s from 1 to J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 14 "if r[s]>1 then" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "X[i]:=colle
ct(collect(X[i],\{seq(t^u,u=1..r[s]-1)\}),exp(Re(k[s])*t)) fi:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "od:od:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 21 "\302\350\347\363\340\353\350\347\340\366\350\377 \360\345
\370\345\355\350\351 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 " s
eq(x[j](t)=X[j],j=5..n);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 52 "\317
\356\353\363\367\345\355\355\373\345 \360\345\370\345\355\350\377 \357
\360\345\344\361\362\340\342\350\354 \343\360\340\364\350\367\345\361
\352\350 \355\340 \360\350\361. 1. " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 90 "plot(\{seq(X[j],j=3..5)\},t=0..8,color=[black,blue,re
d,green],title=`\320\345\370\345\355\350\345 \321\304\323`); `\320\350
\361.1`;" }}{PARA 8 "" 1 "" {TEXT -1 53 "Error, 1st index, 5, larger t
han upper array bound 4\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%&|[x|cy|
\\z.1G" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "-------------\317\360
\356\342\345\360\352\340. \320\345\370\345\355\350\345 \347\340\344
\340\367\350 \370\362\340\362\355\373\354 \317\316 Maple.-------------
--------------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "restart;w
ith(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected na
mes norm and trace have been redefined and unprotected\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "n:=6: X0:=vector(n,[1,0,1,0,1,0]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#X0GK%'vectorG6#7(\"\"\"\"\"!F)F
*F)F*Q)pprint696\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 162 "A:=m
atrix(n,n,[0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,             \+
                                                  0,0,0,0,0,0,1,-4,-16
,-28,-28,-17,-6]):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "\302\345
\352\362\356\360 \360\345\370\345\355\350\351 :" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 35 "X:=vector(n,[seq(x[j](t),j=1..n)]):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 81 "\317\356 \354\340\362\360\350\366
\345 \300 \350 \342\345\352\362\356\360\363 \360\345\370\345\355\350
\351 \325  \347\340\357\350\370\345\354 \361\340\354\363 \361\350\361
\362\345\354\363 \344\350\364\364\345\360\345\355\366\350\340\353\374
\355\373\365 \363\360\340\342\355\345\355\350\351" }}{PARA 0 "" 0 "" 
{TEXT -1 68 "\342 \342\345\352\362\356\360\355\356-\354\340\362\360
\350\367\355\356\351 \355\356\360\354\340\353\374\355\356\351 \364\356
\360\354\345 \361 \363\352\340\347\340\355\350\345\354 \355\340\367
\340\353\374\355\373\365 \363\361\353\356\342\350\351:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "seq(diff(x[j](t),t)=evalm(row(A,j)&
*X),j=1..n);                         seq(x[j](0)=X0[j],j=1..n);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6(/-%%diffG6$-&%\"xG6#\"\"\"6#%\"tGF--&F
)6#\"\"#F,/-F%6$F.F--&F)6#\"\"$F,/-F%6$F5F--&F)6#\"\"%F,/-F%6$F<F--&F)
6#\"\"&F,/-F%6$FCF--&F)6#\"\"'F,/-F%6$FJF-,.*&F?F+F'F+!\"\"*&\"#;F+F.F
+FS*&\"#GF+F5F+FS*&FWF+F<F+FS*&\"#<F+FCF+FS*&FMF+FJF+FS" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6(/-&%\"xG6#\"\"\"6#\"\"!F(/-&F&6#\"\"#F)F*/-&F&6#
\"\"$F)F(/-&F&6#\"\"%F)F*/-&F&6#\"\"&F)F(/-&F&6#\"\"'F)F*" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 73 "\304\353\377 \360\345\370\345\355\350\377
 \321\304\323 \370\362\340\362\355\373\354 \317\316 \355\345\356\365
\356\344\350\354\356 \347\340\357\350\361\340\362\374 \345\270 \364
\356\360\354\363\353\374\355\363\376 \357\356\361\362\340\355\356\342
\352\363 \342 " }}{PARA 0 "" 0 "" {TEXT -1 14 "\361\353\345\344\363
\376\371\345\354 \342\350\344\345" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 178 "sys:=seq(diff(x[j](t),t)=evalm(row(A,j)&*X),j=1..n);
                  fcns:=\{seq(x[j](t),j=1..n)\}:                      \+
   simplify(dsolve(\{sys,seq(x[j](0)=X0[j],j=1..n)\},fcns)):" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%$sysG6(/-%%diffG6$-&%\"xG6#\"\"\"6#%\"tGF0
-&F,6#\"\"#F//-F(6$F1F0-&F,6#\"\"$F//-F(6$F8F0-&F,6#\"\"%F//-F(6$F?F0-
&F,6#\"\"&F//-F(6$FFF0-&F,6#\"\"'F//-F(6$FMF0,.*&FBF.F*F.!\"\"*&\"#;F.
F1F.FV*&\"#GF.F8F.FV*&FZF.F?F.FV*&\"#<F.FFF.FV*&FPF.FMF.FV" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 71 "\302\373\367\350\361\353\345\355\350\345 \+
\361\356\341\361\362\342\345\355\355\373\365 \367\350\361\345\353 \350
 \361\356\356\362\342\345\362\361\362\342\363\376\371\350\365 \350\354
 \361\356\341\361\362\342\345\355\355\373\365 \342\345\352\362\356\360
\356\342." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "p := [eigenvec
tors(A)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "xm:=charmat(A,
p[1][1]):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 80 "\321\342\356\351\361
\362\342\340 \361\356\341\361\362\342\345\355\355\373\365 \342\345\352
\362\356\360\356\342: \363\354\355\356\346\345\355\350\345 \365\340
\360\340\352\362\345\360\350\361\362\350\367\345\361\352\356\351 \354
\340\362\360\350\366\373 \355\340 \361\356\341\361\362\342\345\355-" }
}{PARA 0 "" 0 "" {TEXT -1 46 "\355\373\351 \342\345\352\362\356\360 \+
\344\356\353\346\355\356 \344\340\362\374 \355\363\353\345\342\356\351
 \342\345\352\362\356\360-\361\362\356\353\341\345\366." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "evalm(xm&*p[1][3][1]);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#K%'vectorG6#7(\"\"!F'F'F'F'F'Q)pprint756\"" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 6 "\327.\322.\304." }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}}}{MARK "1 1 0" 35 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 1 0 2 33 1 1 }