203{
205 static const G4double expxl = -expxu;
206
210
211 static const G4int numMul = 1200;
212 static const G4int numMulAn = 400;
213 static const G4int numSec = 60;
214
216
219
220 static G4bool first =
true;
221 static G4double protmul[numMul], protnorm[numSec];
222 static G4double protmulAn[numMulAn],protnormAn[numSec];
223 static G4double neutmul[numMul], neutnorm[numSec];
224 static G4double neutmulAn[numMulAn],neutnormAn[numSec];
225
226
227
228
229 G4int i, counter, nt, npos, nneg, nzero;
230
231 if (first) {
232
233 first = false;
234 for( i=0; i<numMul ; i++ ) protmul[i] = 0.0;
235 for( i=0; i<numSec ; i++ ) protnorm[i] = 0.0;
236 counter = -1;
237 for (npos = 0; npos < (numSec/3); npos++) {
238 for (nneg = std::max(0,npos-1); nneg <= (npos+1); nneg++) {
239 for (nzero = 0; nzero < numSec/3; nzero++) {
240 if (++counter < numMul) {
241 nt = npos+nneg+nzero;
242 if ((nt>0) && (nt<=numSec) ) {
243 protmul[counter] =
pmltpc(npos,nneg,nzero,nt,protb,c);
244 protnorm[nt-1] += protmul[counter];
245 }
246 }
247 }
248 }
249 }
250
251 for (i = 0; i < numMul; i++) neutmul[i] = 0.0;
252 for (i = 0; i < numSec; i++) neutnorm[i] = 0.0;
253 counter = -1;
254 for (npos = 0; npos < numSec/3; npos++) {
255 for (nneg = npos; nneg <= (npos+2); nneg++) {
256 for (nzero = 0; nzero < numSec/3; nzero++) {
257 if (++counter < numMul) {
258 nt = npos+nneg+nzero;
259 if ((nt>0) && (nt<=numSec) ) {
260 neutmul[counter] =
pmltpc(npos,nneg,nzero,nt,neutb,c);
261 neutnorm[nt-1] += neutmul[counter];
262 }
263 }
264 }
265 }
266 }
267
268 for (i = 0; i < numSec; i++) {
269 if (protnorm[i] > 0.0 )protnorm[i] = 1.0/protnorm[i];
270 if (neutnorm[i] > 0.0 )neutnorm[i] = 1.0/neutnorm[i];
271 }
272
273
274 for (i = 0; i < numMulAn; i++) protmulAn[i] = 0.0;
275 for (i = 0; i < numSec; i++) protnormAn[i] = 0.0;
276 counter = -1;
277 for (npos = 1; npos < (numSec/3); npos++) {
278 nneg = npos;
279 for (nzero = 0; nzero < numSec/3; nzero++) {
280 if (++counter < numMulAn) {
281 nt = npos+nneg+nzero;
282 if ((nt>1) && (nt<=numSec) ) {
283 protmulAn[counter] =
pmltpc(npos,nneg,nzero,nt,protb,c);
284 protnormAn[nt-1] += protmulAn[counter];
285 }
286 }
287 }
288 }
289
290 for (i = 0; i < numMulAn; i++) neutmulAn[i] = 0.0;
291 for (i = 0; i < numSec; i++) neutnormAn[i] = 0.0;
292 counter = -1;
293 for (npos = 0; npos < numSec/3; npos++) {
294 nneg = npos+1;
295 for (nzero = 0; nzero < numSec/3; nzero++) {
296 if (++counter < numMulAn) {
297 nt = npos+nneg+nzero;
298 if ((nt>1) && (nt<=numSec) ) {
299 neutmulAn[counter] =
pmltpc(npos,nneg,nzero,nt,neutb,c);
300 neutnormAn[nt-1] += neutmulAn[counter];
301 }
302 }
303 }
304 }
305 for (i = 0; i < numSec; i++) {
306 if( protnormAn[i] > 0.0 )protnormAn[i] = 1.0/protnormAn[i];
307 if( neutnormAn[i] > 0.0 )neutnormAn[i] = 1.0/neutnormAn[i];
308 }
309 }
310
311
312
313 pv[0] = incidentParticle;
314 pv[1] = targetParticle;
315 vecLen = 2;
316
317 if (!inElastic) {
318 G4double cech[] = {0.50, 0.45, 0.40, 0.35, 0.30, 0.25, 0.06, 0.04, 0.005, 0.};
319
320 G4int iplab = std::min(9,
G4int( incidentTotalMomentum*2.5));
321 if (
G4UniformRand() < cech[iplab]/std::pow(atomicWeight,0.42) ) {
323
324 if (targetCode == protonCode) {
325 if (ran < 0.2) {
328 } else if (ran < 0.4) {
331 } else if (ran < 0.6) {
334 } else if (ran < 0.8) {
337 } else {
340 }
341 } else {
344 }
345 }
346
347 return;
348 }
350
351
352 npos = 0; nneg = 0; nzero = 0;
353 G4double anhl[] = {1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.97, 0.88,
354 0.85, 0.81, 0.75, 0.64, 0.64, 0.55, 0.55, 0.45, 0.47, 0.40,
355 0.39, 0.36, 0.33, 0.10, 0.01};
356 G4int iplab =
G4int( incidentTotalMomentum*10.);
357 if ( iplab > 9) iplab = 10 +
G4int( (incidentTotalMomentum -1.)*5. );
358 if ( iplab > 14) iplab = 15 +
G4int( incidentTotalMomentum -2. );
359 if ( iplab > 22) iplab = 23 +
G4int( (incidentTotalMomentum -10.)/10.);
360 iplab = std::min(24, iplab);
361
363
364
365 G4double aleab = std::log(availableEnergy);
366 G4double n = 3.62567+aleab*(0.665843+aleab*(0.336514
367 + aleab*(0.117712+0.0136912*aleab))) - 2.0;
368
369
370
372
373 for (nt=1; nt<=numSec; nt++) {
374 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
375 dum =
pi*nt/(2.0*
n*
n);
376 if (std::fabs(dum) < 1.0) {
377 if( test >= 1.0e-10 )anpn += dum*test;
378 } else {
379 anpn += dum*test;
380 }
381 }
382
385 if( targetCode == protonCode )
386 {
387 counter = -1;
388 for( npos=0; npos<numSec/3; npos++ )
389 {
390 for( nneg=std::max(0,npos-1); nneg<=(npos+1); nneg++ )
391 {
392 for( nzero=0; nzero<numSec/3; nzero++ )
393 {
394 if( ++counter < numMul )
395 {
396 nt = npos+nneg+nzero;
397 if ( (nt>0) && (nt<=numSec) ) {
398 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
399 dum = (
pi/anpn)*nt*protmul[counter]*protnorm[nt-1]/(2.0*n*n);
400 if (std::fabs(dum) < 1.0) {
401 if( test >= 1.0e-10 )excs += dum*test;
402 } else {
403 excs += dum*test;
404 }
405
406 if (ran < excs) goto outOfLoop;
407 }
408 }
409 }
410 }
411 }
412
413
414 inElastic = false;
415 return;
416 }
417 else
418 {
419 counter = -1;
420 for( npos=0; npos<numSec/3; npos++ )
421 {
422 for( nneg=npos; nneg<=(npos+2); nneg++ )
423 {
424 for( nzero=0; nzero<numSec/3; nzero++ )
425 {
426 if( ++counter < numMul )
427 {
428 nt = npos+nneg+nzero;
429 if ( (nt>0) && (nt<=numSec) ) {
430 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
431 dum = (
pi/anpn)*nt*neutmul[counter]*neutnorm[nt-1]/(2.0*n*n);
432 if (std::fabs(dum) < 1.0) {
433 if( test >= 1.0e-10 )excs += dum*test;
434 } else {
435 excs += dum*test;
436 }
437
438 if (ran < excs) goto outOfLoop;
439 }
440 }
441 }
442 }
443 }
444
445 inElastic = false;
446 return;
447 }
448
449 outOfLoop:
450
452
453 if( targetCode == protonCode)
454 {
455 if( npos == nneg)
456 {
457 if (ran < 0.50)
458 {
459 }
460 else if (ran < 0.75)
461 {
464 }
465 else
466 {
469 }
470 }
471 else if (npos == (nneg-1))
472 {
473 if( ran < 0.50)
474 {
476 }
477 else
478 {
480 }
481 }
482 else
483 {
485 }
486 }
487 else
488 {
489 if( npos == nneg)
490 {
491 }
492 else if ( npos == (nneg-1))
493 {
494 if (ran < 0.5)
495 {
497 }
498 else if (ran < 0.75)
499 {
501 }
502 else
503 {
505 }
506 }
507 else
508 {
509 if (ran < 0.5)
510 {
513 }
514 else
515 {
518 }
519 }
520 }
521 }
522 else
523 {
525 {
526
527 G4double aleab = std::log(availableEnergy);
528 G4double n = 3.62567+aleab*(0.665843+aleab*(0.336514
529 + aleab*(0.117712+0.0136912*aleab))) - 2.0;
530
531
532
534
535 for (nt=2; nt<=numSec; nt++) {
536 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
537 dum =
pi*nt/(2.0*
n*
n);
538 if (std::fabs(dum) < 1.0) {
539 if( test >= 1.0e-10 )anpn += dum*test;
540 } else {
541 anpn += dum*test;
542 }
543 }
544
547 if( targetCode == protonCode )
548 {
549 counter = -1;
550 for( npos=1; npos<numSec/3; npos++ )
551 {
552 nneg = npos;
553 for( nzero=0; nzero<numSec/3; nzero++ )
554 {
555 if( ++counter < numMulAn )
556 {
557 nt = npos+nneg+nzero;
558 if ( (nt>1) && (nt<=numSec) ) {
559 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
560 dum = (
pi/anpn)*nt*protmulAn[counter]*protnormAn[nt-1]/(2.0*n*n);
561 if (std::fabs(dum) < 1.0) {
562 if( test >= 1.0e-10 )excs += dum*test;
563 } else {
564 excs += dum*test;
565 }
566
567 if (ran < excs) goto outOfLoopAn;
568 }
569 }
570 }
571 }
572
573 inElastic = false;
574 return;
575 }
576 else
577 {
578 counter = -1;
579 for( npos=0; npos<numSec/3; npos++ )
580 {
581 nneg = npos+1;
582 for( nzero=0; nzero<numSec/3; nzero++ )
583 {
584 if( ++counter < numMulAn )
585 {
586 nt = npos+nneg+nzero;
587 if ( (nt>1) && (nt<=numSec) ) {
588 test = std::exp( std::min( expxu, std::max( expxl, -(pi/4.0)*(nt*nt)/(n*n) ) ) );
589 dum = (
pi/anpn)*nt*neutmulAn[counter]*neutnormAn[nt-1]/(2.0*n*n);
590 if (std::fabs(dum) < 1.0) {
591 if( test >= 1.0e-10 )excs += dum*test;
592 } else {
593 excs += dum*test;
594 }
595
596 if (ran < excs) goto outOfLoopAn;
597 }
598 }
599 }
600 }
601 inElastic = false;
602 return;
603 }
604 outOfLoopAn:
605 vecLen = 0;
606 }
607 }
608
609 nt = npos + nneg + nzero;
610 while ( nt > 0)
611 {
614 {
615 if( npos > 0 )
617 npos--;
618 }
619 }
620 else if ( ran < (
G4double)(npos+nneg)/nt)
621 {
622 if( nneg > 0 )
623 {
625 nneg--;
626 }
627 }
628 else
629 {
630 if( nzero > 0 )
631 {
633 nzero--;
634 }
635 }
636 nt = npos + nneg + nzero;
637 }
639 {
640 G4cout <<
"Particles produced: " ;
643 for (i=2; i < vecLen; i++)
644 {
646 }
648 }
649 return;
650 }
G4double pmltpc(G4int np, G4int nm, G4int nz, G4int n, G4double b, G4double c)
G4double getTotalMomentum() const