201{
203 static const G4double expxl = -expxu;
204
208
209 static const G4int numMul = 1200;
210 static const G4int numMulAn = 400;
211 static const G4int numSec = 60;
212
214
217
218 static G4bool first =
true;
219 static G4double protmul[numMul], protnorm[numSec];
220 static G4double protmulAn[numMulAn],protnormAn[numSec];
221 static G4double neutmul[numMul], neutnorm[numSec];
222 static G4double neutmulAn[numMulAn],neutnormAn[numSec];
223
224
225
226
227 G4int i, counter, nt, npos, nneg, nzero;
228
229 if( first )
230 {
231 first = false;
232 for( i=0; i<numMul ; i++ ) protmul[i] = 0.0;
233 for( i=0; i<numSec ; i++ ) protnorm[i] = 0.0;
234 counter = -1;
235 for( npos=0; npos<(numSec/3); npos++ )
236 {
237 for( nneg=std::max(0,npos-2); nneg<=(npos+1); nneg++ )
238 {
239 for( nzero=0; nzero<numSec/3; nzero++ )
240 {
241 if( ++counter < numMul )
242 {
243 nt = npos+nneg+nzero;
244 if( (nt>0) && (nt<=numSec) )
245 {
246 protmul[counter] =
pmltpc(npos,nneg,nzero,nt,protb,c);
247 protnorm[nt-1] += protmul[counter];
248 }
249 }
250 }
251 }
252 }
253 for( i=0; i<numMul; i++ )neutmul[i] = 0.0;
254 for( i=0; i<numSec; i++ )neutnorm[i] = 0.0;
255 counter = -1;
256 for( npos=0; npos<numSec/3; npos++ )
257 {
258 for( nneg=std::max(0,npos-1); nneg<=(npos+2); nneg++ )
259 {
260 for( nzero=0; nzero<numSec/3; nzero++ )
261 {
262 if( ++counter < numMul )
263 {
264 nt = npos+nneg+nzero;
265 if( (nt>0) && (nt<=numSec) )
266 {
267 neutmul[counter] =
pmltpc(npos,nneg,nzero,nt,neutb,c);
268 neutnorm[nt-1] += neutmul[counter];
269 }
270 }
271 }
272 }
273 }
274 for( i=0; i<numSec; i++ )
275 {
276 if( protnorm[i] > 0.0 )protnorm[i] = 1.0/protnorm[i];
277 if( neutnorm[i] > 0.0 )neutnorm[i] = 1.0/neutnorm[i];
278 }
279
280 for( i=0; i<numMulAn ; i++ ) protmulAn[i] = 0.0;
281 for( i=0; i<numSec ; i++ ) protnormAn[i] = 0.0;
282 counter = -1;
283 for( npos=1; npos<(numSec/3); npos++ )
284 {
285 nneg = std::max(0,npos-1);
286 for( nzero=0; nzero<numSec/3; nzero++ )
287 {
288 if( ++counter < numMulAn )
289 {
290 nt = npos+nneg+nzero;
291 if( (nt>1) && (nt<=numSec) )
292 {
293 protmulAn[counter] =
pmltpc(npos,nneg,nzero,nt,protb,c);
294 protnormAn[nt-1] += protmulAn[counter];
295 }
296 }
297 }
298 }
299 for( i=0; i<numMulAn; i++ ) neutmulAn[i] = 0.0;
300 for( i=0; i<numSec; i++ ) neutnormAn[i] = 0.0;
301 counter = -1;
302 for( npos=0; npos<numSec/3; npos++ )
303 {
304 nneg = npos;
305 for( nzero=0; nzero<numSec/3; nzero++ )
306 {
307 if( ++counter < numMulAn )
308 {
309 nt = npos+nneg+nzero;
310 if( (nt>1) && (nt<=numSec) )
311 {
312 neutmulAn[counter] =
pmltpc(npos,nneg,nzero,nt,neutb,c);
313 neutnormAn[nt-1] += neutmulAn[counter];
314 }
315 }
316 }
317 }
318 for( i=0; i<numSec; i++ )
319 {
320 if( protnormAn[i] > 0.0 )protnormAn[i] = 1.0/protnormAn[i];
321 if( neutnormAn[i] > 0.0 )neutnormAn[i] = 1.0/neutnormAn[i];
322 }
323 }
324
325
326
327
328 pv[0] = incidentParticle;
329 pv[1] = targetParticle;
330 vecLen = 2;
331
332 if( !inElastic )
333 {
334 G4double cech[] = {0.50, 0.45, 0.40, 0.35, 0.30, 0.25, 0.06, 0.04, 0.005, 0.};
335
336 G4int iplab = std::min(9,
G4int( incidentTotalMomentum*2.5 ));
337 if(
G4UniformRand() < cech[iplab]/std::pow(atomicWeight,0.42) )
338 {
340
341 if ( targetCode == protonCode)
342 {
343 if(ran < 0.2)
344 {
346 }
347 else if (ran < 0.4)
348 {
351 }
352 else if (ran < 0.6)
353 {
356 }
357 else if (ran < 0.8)
358 {
361 }
362 else
363 {
366 }
367 }
368 else
369 {
370 if (ran < 0.2)
371 {
373 }
374 else if (ran < 0.4)
375 {
378 }
379 else if (ran < 0.6)
380 {
383 }
384 else if (ran < 0.8)
385 {
388 }
389 else
390 {
393 }
394 }
395 }
396 return;
397 }
399 return;
400
401
402
403 npos = 0; nneg = 0; nzero = 0;
404 G4double anhl[] = {1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.97, 0.88,
405 0.85, 0.81, 0.75, 0.64, 0.64, 0.55, 0.55, 0.45, 0.47, 0.40,
406 0.39, 0.36, 0.33, 0.10, 0.01};
407 G4int iplab =
G4int( incidentTotalMomentum*10.);
408 if ( iplab > 9) iplab = 10 +
G4int( (incidentTotalMomentum -1.)*5. );
409 if ( iplab > 14) iplab = 15 +
G4int( incidentTotalMomentum -2. );
410 if ( iplab > 22) iplab = 23 +
G4int( (incidentTotalMomentum -10.)/10.);
411 iplab = std::min(24, iplab);
412
414 {
415
416
417
418 G4double aleab = std::log(availableEnergy);
419 G4double n = 3.62567+aleab*(0.665843+aleab*(0.336514
420 + aleab*(0.117712+0.0136912*aleab))) - 2.0;
421
422
423
425
426 for (nt=1; nt<=numSec; nt++) {
427 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
428 dum =
pi*nt/(2.0*
n*
n);
429 if (std::fabs(dum) < 1.0) {
430 if( test >= 1.0e-10 )anpn += dum*test;
431 } else {
432 anpn += dum*test;
433 }
434 }
435
438 if( targetCode == protonCode )
439 {
440 counter = -1;
441 for( npos=0; npos<numSec/3; npos++ )
442 {
443 for( nneg=std::max(0,npos-2); nneg<=(npos+1); nneg++ )
444 {
445 for( nzero=0; nzero<numSec/3; nzero++ )
446 {
447 if( ++counter < numMul )
448 {
449 nt = npos+nneg+nzero;
450 if ( (nt>0) && (nt<=numSec) ) {
451 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
452 dum = (
pi/anpn)*nt*protmul[counter]*protnorm[nt-1]/(2.0*n*n);
453 if (std::fabs(dum) < 1.0) {
454 if( test >= 1.0e-10 )excs += dum*test;
455 } else {
456 excs += dum*test;
457 }
458
459 if (ran < excs) goto outOfLoop;
460 }
461 }
462 }
463 }
464 }
465
466
467 inElastic = false;
468 return;
469 }
470 else
471 {
472 counter = -1;
473 for( npos=0; npos<numSec/3; npos++ )
474 {
475 for( nneg=std::max(0,npos-1); nneg<=(npos+2); nneg++ )
476 {
477 for( nzero=0; nzero<numSec/3; nzero++ )
478 {
479 if( ++counter < numMul )
480 {
481 nt = npos+nneg+nzero;
482 if ( (nt>0) && (nt<=numSec) ) {
483 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
484 dum = (
pi/anpn)*nt*neutmul[counter]*neutnorm[nt-1]/(2.0*n*n);
485 if (std::fabs(dum) < 1.0) {
486 if( test >= 1.0e-10 )excs += dum*test;
487 } else {
488 excs += dum*test;
489 }
490
491 if (ran < excs) goto outOfLoop;
492 }
493 }
494 }
495 }
496 }
497
498 inElastic = false;
499 return;
500 }
501
502 outOfLoop:
503
505
506 if( targetCode == protonCode)
507 {
508 if( npos == nneg)
509 {
510 if (ran < 0.40)
511 {
512 }
513 else if (ran < 0.8)
514 {
516 }
517 else
518 {
521 }
522 }
523 else if (npos == (nneg+1))
524 {
525 if( ran < 0.25)
526 {
528 }
529 else if (ran < 0.5)
530 {
533 }
534 else
535 {
537 }
538 }
539 else if (npos == (nneg-1))
540 {
542 }
543 else
544 {
547 }
548 }
549 else
550 {
551 if( npos == nneg)
552 {
553 if (ran < 0.4)
554 {
555 }
556 else if(ran < 0.8)
557 {
559 }
560 else
561 {
564 }
565 }
566 else if ( npos == (nneg-1))
567 {
568 if (ran < 0.5)
569 {
571 }
572 else if (ran < 0.75)
573 {
575 }
576 else
577 {
580 }
581 }
582 else if (npos == (nneg+1))
583 {
585 }
586 else
587 {
590 }
591 }
592
593 }
594 else
595 {
597 {
598
599 G4double aleab = std::log(availableEnergy);
600 G4double n = 3.62567+aleab*(0.665843+aleab*(0.336514
601 + aleab*(0.117712+0.0136912*aleab))) - 2.0;
602
603
604
606
607 for (nt=2; nt<=numSec; nt++) {
608 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
609 dum =
pi*nt/(2.0*
n*
n);
610 if (std::fabs(dum) < 1.0) {
611 if( test >= 1.0e-10 )anpn += dum*test;
612 } else {
613 anpn += dum*test;
614 }
615 }
616
619 if( targetCode == protonCode )
620 {
621 counter = -1;
622 for( npos=1; npos<numSec/3; npos++ )
623 {
624 nneg = npos-1;
625 for( nzero=0; nzero<numSec/3; nzero++ )
626 {
627 if( ++counter < numMulAn )
628 {
629 nt = npos+nneg+nzero;
630 if ( (nt>1) && (nt<=numSec) ) {
631 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
632 dum = (
pi/anpn)*nt*protmulAn[counter]*protnormAn[nt-1]/(2.0*n*n);
633 if (std::fabs(dum) < 1.0) {
634 if( test >= 1.0e-10 )excs += dum*test;
635 } else {
636 excs += dum*test;
637 }
638
639 if (ran < excs) goto outOfLoopAn;
640 }
641 }
642 }
643 }
644
645 inElastic = false;
646 return;
647 }
648 else
649 {
650 counter = -1;
651 for( npos=0; npos<numSec/3; npos++ )
652 {
653 nneg = npos;
654 for( nzero=0; nzero<numSec/3; nzero++ )
655 {
656 if( ++counter < numMulAn )
657 {
658 nt = npos+nneg+nzero;
659 if ( (nt>1) && (nt<=numSec) ) {
660 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
661 dum = (
pi/anpn)*nt*neutmulAn[counter]*neutnormAn[nt-1]/(2.0*n*n);
662 if (std::fabs(dum) < 1.0) {
663 if( test >= 1.0e-10 )excs += dum*test;
664 } else {
665 excs += dum*test;
666 }
667 if (ran < excs) goto outOfLoopAn;
668 }
669 }
670 }
671 }
672 inElastic = false;
673 return;
674 }
675 outOfLoopAn:
676 vecLen = 0;
677 }
678 }
679
680 nt = npos + nneg + nzero;
681 while ( nt > 0)
682 {
685 {
686 if( npos > 0 )
688 npos--;
689 }
690 }
691 else if ( ran < (
G4double)(npos+nneg)/nt)
692 {
693 if( nneg > 0 )
694 {
696 nneg--;
697 }
698 }
699 else
700 {
701 if( nzero > 0 )
702 {
704 nzero--;
705 }
706 }
707 nt = npos + nneg + nzero;
708 }
710 {
711 G4cout <<
"Particles produced: " ;
714 for (i=2; i < vecLen; i++)
715 {
717 }
719 }
720 return;
721 }
G4double pmltpc(G4int np, G4int nm, G4int nz, G4int n, G4double b, G4double c)
G4HEVector AntiSigmaMinus
G4double getTotalMomentum() const