forked from openfisca/calculette-impots-m-source-code
-
Notifications
You must be signed in to change notification settings - Fork 17
/
Copy pathchap-51.m
1204 lines (1179 loc) · 78.2 KB
/
chap-51.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
#*************************************************************************************************************************
#
#Copyright or © or Copr.[DGFIP][2015]
#
#Ce logiciel a été initialement développé par la Direction Générale des
#Finances Publiques pour permettre le calcul de l'impôt sur le revenu 2015
#au titre des revenus perçus en 2014. La présente version a permis la
#génération du moteur de calcul des chaînes de taxation des rôles d'impôt
#sur le revenu de ce millésime.
#
#Ce logiciel est régi par la licence CeCILL 2.1 soumise au droit français
#et respectant les principes de diffusion des logiciels libres. Vous pouvez
#utiliser, modifier et/ou redistribuer ce programme sous les conditions de
#la licence CeCILL 2.1 telle que diffusée par le CEA, le CNRS et l'INRIA sur
#le site "http://www.cecill.info".
#
#Le fait que vous puissiez accéder à cet en-tête signifie que vous avez pris
#connaissance de la licence CeCILL 2.1 et que vous en avez accepté les termes.
#
#**************************************************************************************************************************
#
#### # # ## ##### ##### #
# # # # # # # # # #
# ###### # # # # # #
# # # ###### ##### ##### #
# # # # # # # # #
#### # # # # # ##### ##### #
#
#
#
#
#
#
# CALCUL DES DROITS SIMPLES RESULTANT DU TAUX PROGRESSIF
#
#
#
#
#
#
regle 5010:
application : bareme , iliad , batch ;
IMT11 = max(ID11-ADO1 , IMI)*(1-INDTXMOY)
+ IMO * INDTXMOY ;
IMT12 = max(ID11 , IMI)*(1-INDTXMOY)
+ IMO * INDTXMOY ;
IMTANT11 = max(IDANT11-ADO1 , IMI)*(1-INDTXMOY)
+ IMO * INDTXMOY ;
IMTANT12 = max(IDANT11 , IMI)*(1-INDTXMOY)
+ IMO * INDTXMOY ;
IPHQ = arr(IMT11 * (IMPFHQ1 / ID11)) ;
IPHQ2 = arr(IMT12 * (IMPFHQ1 / ID11)) ;
IPHQANT2 = arr(IMTANT12 * (IMPFHQANT1 / IDANT11)) ;
IPQT = IMT11 - IPHQ;
IPQT2 = IMT12 - IPHQ2;
regle 502:
application : bareme , iliad , batch ;
pour z = 1,2:
ID1z = arr( IPQz * arr(RIz+REVQUOQHT) / arr(RB0z+TONEQUO) );
IDANT11 = arr( IPQANT1 * arr(RI1+REVQUOQHT) / arr(RB01+TONEQUO) );
ID14 = IN04;
ID16 = IN06;
IMPFHQ1 = (1-positif((VARIPTEFN * positif(ART1731BIS) + IPTEFN * (1 - ART1731BIS)))) * EXO1 * arr(ID11 * IPQ01 / IPQ1);
IMPFHQANT1 = (1-positif((VARIPTEFN * positif(ART1731BIS) + IPTEFN * (1 - ART1731BIS)))) * EXO1
* arr(IDANT11 * IPQANT01 / IPQANT1);
regle 5021:
application : bareme , iliad , batch ;
pour z=1,2:
IPQz = IPQ0z*EXO1 + IPQ100z;
IPQANT1 = IPQANT01*EXO1 + IPQANT1001;
IPQ5 = IPQ05 + IPQ1005;
regle 50201:
application : iliad , batch ;
pour z = 1,2:
IDOM3z = (positif(IND_TDR) * IDOM14)
+
((1-positif(IND_TDR)) * ((V_CR2 * IDOM1z) + ((1-V_CR2) * ((ID1z - ADO3z)* (1-positif(INDCODDAJ)) + ITOTDOM3z * positif(INDCODDAJ)))));
regle 50211:
application : iliad , batch ;
SEUILEXO = SEUIL_EXO1 + (SEUIL_EXO2 - SEUIL_EXO1)
* positif_ou_nul( max(AGV,AGC) - LIM_AGE_EXO );
EXO1 = (1-ART1731BIS) * ( (1-min(abs((VARIPTEFN * positif(ART1731BIS) + IPTEFN * (1 - ART1731BIS)))
+ (VARIPTEFP * positif(ART1731BIS) + IPTEFP * (1 - ART1731BIS))+INDTEFF , 1)) *
positif(R1649+PREREV + RG + TOTALQUO +(AB
*(1-present(IPVLOC)))-SEUILEXO)
+
(min(abs((VARIPTEFN * positif(ART1731BIS) + IPTEFN * (1 - ART1731BIS)))
+ (VARIPTEFP * positif(ART1731BIS) + IPTEFP * (1 - ART1731BIS)) +INDTEFF, 1)) )
+ ART1731BIS * ( (1-min(abs((VARIPTEFN * positif(ART1731BIS) + IPTEFN * (1 - ART1731BIS)))
+ (VARIPTEFP * positif(ART1731BIS) + IPTEFP * (1 - ART1731BIS))+INDTEFF , 1)) *
positif(R1649+PREREV + RG + SOMDEFICIT + TOTALQUO +(AB
*(1-present(IPVLOC)))-SEUILEXO)
+
(min(abs((VARIPTEFN * positif(ART1731BIS) + IPTEFN * (1 - ART1731BIS)))
+ (VARIPTEFP * positif(ART1731BIS) + IPTEFP * (1 - ART1731BIS)) +INDTEFF, 1)) )
;
regle 502110:
application : bareme ;
EXO1 = present(V_9ZZ);
regle 5022:
application : iliad , batch ;
IMI = arr (BMI * TX_MIN_MET / 100
+ arr(PRODOM + PROGUY) * TX_MIN_DOM / 100)
* V_CR2;
IMO = arr (BMI * TMOY / 100
+ arr(PRODOM + PROGUY) * TX_MIN_DOM / 100)
* V_CR2;
RASAR = arr (BRAS * TX_RASAR / 100) ;
regle 50221:
application : bareme , iliad , batch ;
BMI = arr( RI1 + REVQUO - PRODOM - PROGUY ) ;
regle 50222:
application : iliad , batch ;
TMOY = inf(IPQ5/(max(0,RB05 + TONEQUOM)) * 10000) / 100 * V_CR2;
regle 503:
application : bareme , iliad , batch ;
pour z=1,2,5,7:
IQUOTOTz = IN5z - IN0z;
IQUOTOTANT1 = INANT51 - INANT01;
regle 50299:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRWBz = positif(TEGLRWA+TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz * TERPQRWB / TETONEQUO1)
+ (1 - positif(TEGLRWA+TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * IQUOTOTz ;
ZIPQANTRWB = positif(TEGLRWA+TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1 * TERPQRWB / TETONEQUO1)
+ (1 - positif(TEGLRWA+TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * IQUOTOTANT1 ;
ZIPQRWB5 = positif(TEGLRWA+TEGLRVG+somme(i=1..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5 * TERPQRWBM / TETONEQUOM1)
+ (1 - positif(TEGLRWA+TEGLRVG+somme(i=1..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) * IQUOTOT7 ;
pour z=1,2:
ZIPQRWAz = positif(TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz * TERPQRWA / TETONEQUO1)
+ (1 - positif(TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTz-ZIPQRWBz) ;
ZIPQANTRWA = positif(TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1 * TERPQRWA / TETONEQUO1)
+ (1 - positif(TEGLRVG+somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTANT1 -ZIPQANTRWB);
ZIPQRWA5 = positif(TEGLRVG+somme(i=1..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5 * TERPQRWAM / TETONEQUOM1)
+ (1 - positif(TEGLRVG+somme(i=1..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) * (IQUOTOT7 -ZIPQRWB5);
pour z=1,2:
ZIPQRVGz = positif(somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz * TERPQRVG / TETONEQUO1)
+ (1 - positif(somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTz-ZIPQRWBz-ZIPQRWAz) ;
ZIPQANTRVG = positif(somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1 * TERPQRVG / TETONEQUO1)
+ (1 - positif(somme(i=1..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTANT1 -ZIPQANTRWB-ZIPQANTRWA);
ZIPQRVG5 = positif(somme(i=1..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5 * TERPQRVGM / TETONEQUOM1)
+ (1 - positif(somme(i=1..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) * (IQUOTOT7-ZIPQRWB5-ZIPQRWA5) ;
pour z=1,2:
ZIPQ1z = positif(somme(i=2..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz * TERPQ1 / TETONEQUO1)
+ (1 - positif(somme(i=2..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTz -ZIPQRWBz-ZIPQRWAz- ZIPQRVGz) ;
ZIPQANT11 = positif(somme(i=2..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1 * TERPQ1 / TETONEQUO1)
+ (1 - positif(somme(i=2..4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTANT1-ZIPQANTRWB-ZIPQANTRWA-ZIPQANTRVG) ;
ZIPQ15 = positif(somme(i=2..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5 * TERPQ1M / TETONEQUOM1)
+ (1 - positif(somme(i=2..4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) * (IQUOTOT7 -ZIPQRWB5-ZIPQRWA5-ZIPQRVG5);
pour z=1,2:
ZIPQ2z = positif(somme(i=3,4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz * TERPQ2 / TETONEQUO1)
+ (1 - positif(somme(i=3,4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTz-ZIPQRWBz-ZIPQRWAz- ZIPQRVGz-ZIPQ1z) ;
ZIPQANT21 = positif(somme(i=3,4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1 * TERPQ2 / TETONEQUO1)
+ (1 - positif(somme(i=3,4:TEGLi)+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTANT1 -ZIPQANTRWB-ZIPQANTRWA-ZIPQANTRVG-ZIPQANT11);
ZIPQ25 = positif(somme(i=3,4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5 * TERPQ2M / TETONEQUOM1)
+ (1 - positif(somme(i=3,4:TEGLiM)+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) * (IQUOTOT7 -ZIPQRWB5-ZIPQRWA5-ZIPQRVG5-ZIPQ15);
pour z=1,2:
ZIPQ3z = positif(TEGL4+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz * TERPQ3 / TETONEQUO1)
+ (1 - positif(TEGL4+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTz -ZIPQRWBz-ZIPQRWAz- ZIPQRVGz-somme(x=1,2:ZIPQxz));
ZIPQANT31 = positif(TEGL4+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1 * TERPQ3 / TETONEQUO1)
+ (1 - positif(TEGL4+TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTANT1 -ZIPQANTRWB-ZIPQANTRWA-ZIPQANTRVG-somme(x=1,2:ZIPQANTx1));
ZIPQ35 = positif(TEGL4M+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5 * TERPQ3M / TETONEQUOM1)
+ (1 - positif(TEGL4M+TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) * (IQUOTOT7 -ZIPQRWB5-ZIPQRWA5-ZIPQRVG5-somme(x=1,2:ZIPQx5));
pour z=1,2:
ZIPQ4z = positif(TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz * TERPQ4 / TETONEQUO1)
+ (1 - positif(TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTz -ZIPQRWBz-ZIPQRWAz- ZIPQRVGz-somme(x=1..3:ZIPQxz));
ZIPQANT41 = positif(TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1 * TERPQ4 / TETONEQUO1)
+ (1 - positif(TEGLFTOT+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) * (IQUOTOTANT1 -ZIPQANTRWB-ZIPQANTRWA-ZIPQANTRVG-somme(x=1..3:ZIPQANTx1));
ZIPQ45 = positif(TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5 * TERPQ4M / TETONEQUOM1)
+ (1 - positif(TEGLFTOTM+TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) * (IQUOTOT7 -ZIPQRWB5-ZIPQRWA5-ZIPQRVG5-somme(x=1..3:ZIPQx5));
regle 50341:
application : bareme , iliad , batch ;
ZIPQ1TOT= somme(i=1..4 : ZIPQi1)+ZIPQRVG1+ZIPQRWB1+ZIPQRWA1;
ZIPQ2TOT= somme(i=1..4 : ZIPQi2)+ZIPQRVG2+ZIPQRWB2+ZIPQRWA2;
ZIPQ5TOT= somme(i=1..4 : ZIPQi5)+ZIPQRVG5+ZIPQRWB5+ZIPQRWA5;
ZIPQANT1TOT= somme(i=1..4 : ZIPQANTi1)+ZIPQANTRVG+ZIPQANTRWB+ZIPQANTRWA;
regle 5034:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQFVz = positif(somme(i=C,1..4:TEGLFi)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz*TERPQFV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4:TEGLFi)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTz-ZIPQzTOT);
ZIPQFANTV1 = positif(somme(i=C,1..4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1*TERPQFV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTANT1-ZIPQANT1TOT) ;
ZIPQFV5 = positif(somme(i=C,1..4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5*TERPQFVM/TETONEQUOM1)
+ (1 - positif(somme(i=C,1..4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM))
* (IQUOTOT5-ZIPQ5TOT);
pour z=1,2:
ZIPQFCz = positif(somme(i=1..4:TEGLFi)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz*TERPQFC/TETONEQUO1)
+ (1 - positif(somme(i=1..4:TEGLFi)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTz-ZIPQzTOT-ZIPQFVz);
ZIPQFANTC1 = positif(somme(i=1..4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1*TERPQFC/TETONEQUO1)
+ (1 - positif(somme(i=1..4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANTV1) ;
ZIPQFC5 = positif(somme(i=1..4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5*TERPQFCM/TETONEQUOM1)
+ (1 - positif(somme(i=C,1..4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM))
* (IQUOTOT5-ZIPQ5TOT-ZIPQFV5);
pour z=1,2:
ZIPQF1z = positif(somme(i=2,3,4:TEGLFi)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz*TERPQF1/TETONEQUO1)
+ (1 - positif(somme(i=2..4:TEGLFiM)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTz-ZIPQzTOT-somme(x=V,C:ZIPQFxz));
ZIPQFANT11 = positif(somme(i=2..4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1*TERPQF1/TETONEQUO1)
+ (1 - positif(somme(i=2..4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTANT1-ZIPQANT1TOT-somme(x=V,C:ZIPQFANTx1)) ;
ZIPQF15 = positif(somme(i=2,3,4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5*TERPQF1M/TETONEQUOM1)
+ (1 - positif(somme(i=2..4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM))
* (IQUOTOT5-ZIPQ5TOT-somme(x=V,C:ZIPQFx5));
pour z=1,2:
ZIPQF2z = positif(somme(i=3,4:TEGLFi)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz*TERPQF2/TETONEQUO1)
+ (1 - positif(somme(i=3,4:TEGLFi)+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTz-ZIPQzTOT-somme(x=V,C,1:ZIPQFxz));
ZIPQFANT21 = positif(somme(i=3,4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1*TERPQF2/TETONEQUO1)
+ (1 - positif(somme(i=3,4 : TEGLFi) +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTANT1-ZIPQANT1TOT-somme(x=V,C,1:ZIPQFANTx1)) ;
ZIPQF25 = positif(somme(i=3,4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5*TERPQF2M/TETONEQUOM1)
+ (1 - positif(somme(i=3,4 : TEGLFiM) +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM))
* (IQUOTOT5-ZIPQ5TOT-somme(x=V,C,1:ZIPQFx5));
pour z=1,2:
ZIPQF3z = positif(TEGLF4+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz*TERPQF3/TETONEQUO1)
+ (1 - positif(TEGLF4+TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTz-ZIPQzTOT-somme(x=V,C,1,2:ZIPQFxz));
ZIPQFANT31 = positif(TEGLF4 +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1*TERPQF3/TETONEQUO1)
+ (1 - positif(TEGLF4 +TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTANT1-ZIPQANT1TOT-somme(x=V,C,1,2:ZIPQFANTx1)) ;
ZIPQF35 = positif(TEGLF4M +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5*TERPQF3M/TETONEQUOM1)
+ (1 - positif(TEGLF4M +TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM))
* (IQUOTOT5-ZIPQ5TOT-somme(x=V,C,1,2:ZIPQFx5));
pour z=1,2:
ZIPQF4z = positif(TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTz*TERPQF4/TETONEQUO1)
+ (1 - positif(TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTz-ZIPQzTOT-somme(x=V,C,1..3:ZIPQFxz));
ZIPQFANT41 = positif(TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)
* arr(IQUOTOTANT1*TERPQF4/TETONEQUO1)
+ (1 - positif(TEGLPALIMTOT+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT))
* (IQUOTOTANT1-ZIPQANT1TOT-somme(x=V,C,1..3:ZIPQFANTx1)) ;
ZIPQF45 = positif(TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)
* arr(IQUOTOT5*TERPQF4M/TETONEQUOM1)
+ (1 - positif(TEGLPALIMTOTM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM))
* (IQUOTOT5-ZIPQ5TOT-somme(x=V,C,1..3:ZIPQFx5));
ZIPQF1TOT= somme(i=V,C,1..4 : ZIPQFi1);
ZIPQF2TOT= somme(i=V,C,1..4 : ZIPQFi2);
ZIPQF5TOT= somme(i=V,C,1..4 : ZIPQFi5);
ZIPQFANT1TOT= somme(i=V,C,1..4 : ZIPQFANTi1);
regle 50396:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQPALIMVz = positif(somme(i=C,1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPALIMV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT);
ZIPQPALIMANTV1 = positif(somme(i=C,1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT ) * arr(IQUOTOTANT1*TERPQPALIMV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT
);
ZIPQPALIMV5 = positif(somme(i=C,1..4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPALIMVM/TETONEQUOM1)
+ (1 - positif(somme(i=C,1..4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT );
pour z=1,2:
ZIPQPALIMCz = positif(somme(i=1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPALIMC/TETONEQUO1)
+ (1 - positif(somme(i=1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMVz);
ZIPQPALIMANTC1 = positif(somme(i=1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT ) * arr(IQUOTOTANT1*TERPQPALIMC/TETONEQUO1)
+ (1 - positif(somme(i=1..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANTV1
);
ZIPQPALIMC5 = positif(somme(i=1..4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPALIMCM/TETONEQUOM1)
+ (1 - positif(somme(i=1..4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIMV5 );
pour z=1,2:
ZIPQPALIM1z = positif(somme(i=2..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPALIM1/TETONEQUO1)
+ (1 - positif(somme(i=2..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-somme(i=V,C:ZIPQPALIMiz));
ZIPQPALIMANT11 = positif(somme(i=2..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT ) * arr(IQUOTOTANT1*TERPQPALIM1/TETONEQUO1)
+ (1 - positif(somme(i=2..4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-somme(i=V,C:ZIPQPALIMANTi1)
);
ZIPQPALIM15 = positif(somme(i=2..4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPALIM1M/TETONEQUOM1)
+ (1 - positif(somme(i=2..4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-somme(i=V,C:ZIPQPALIMi5));
pour z=1,2:
ZIPQPALIM2z = positif(somme(i=3,4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPALIM2/TETONEQUO1)
+ (1 - positif(somme(i=3,4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-somme(i=V,C,1:ZIPQPALIMiz));
ZIPQPALIMANT21 = positif(somme(i=3,4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT ) * arr(IQUOTOTANT1*TERPQPALIM2/TETONEQUO1)
+ (1 - positif(somme(i=3,4:TEGLPALIMi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-somme(i=V,C,1:ZIPQPALIMANTi1)
);
ZIPQPALIM25 = positif(somme(i=3,4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPALIM2M/TETONEQUOM1)
+ (1 - positif(somme(i=3,4:TEGLPALIMiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-somme(i=V,C,1:ZIPQPALIMi5));
pour z=1,2:
ZIPQPALIM3z = positif(TEGLPALIM4+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPALIM3/TETONEQUO1)
+ (1 - positif(TEGLPALIM4+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-somme(i=V,C,1..2:ZIPQPALIMiz));
ZIPQPALIMANT31 = positif(TEGLPALIM4+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT ) * arr(IQUOTOTANT1*TERPQPALIM3/TETONEQUO1)
+ (1 - positif(TEGLPALIM4+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-somme(i=V,C,1..2:ZIPQPALIMANTi1)
);
ZIPQPALIM35 = positif(TEGLPALIM4M+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPALIM3M/TETONEQUOM1)
+ (1 - positif(TEGLPALIM4M+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-somme(i=V,C,1..2:ZIPQPALIMi5));
pour z=1,2:
ZIPQPALIM4z = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPALIM4/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-somme(i=V,C,1..3:ZIPQPALIMiz));
ZIPQPALIMANT41 = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT ) * arr(IQUOTOTANT1*TERPQPALIM4/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRCMTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-somme(i=V,C,1..3:ZIPQPALIMANTi1)
);
ZIPQPALIM45 = positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPALIM4M/TETONEQUOM1)
+ (1 - positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-somme(i=V,C,1..3:ZIPQPALIMi5));
ZIPQPALIM1TOT= somme(i=V,C,1..4 : ZIPQPALIMi1);
ZIPQPALIM2TOT= somme(i=V,C,1..4 : ZIPQPALIMi2);
ZIPQPALIM5TOT= somme(i=V,C,1..4 : ZIPQPALIMi5);
ZIPQPALIMANT1TOT= somme(i=V,C,1..4 : ZIPQPALIMANTi1);
regle 50397:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRCMDCz = positif(TEGLRCMFU+TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQRCMDC/TETONEQUO1)
+ (1 - positif(TEGLRCMFU+TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT);
ZIPQRCMDCANT1 = positif(TEGLRCMFU+TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQRCMDC/TETONEQUO1)
+ (1 - positif(TEGLRCMFU+TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT
);
ZIPQRCMDC5 = positif(TEGLRCMFUM+TEGLRCMCHM+TEGLRCMTSM+TEGLRCMGOM+TEGLRCMTRM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQRCMDCM/TETONEQUOM1)
+ (1 - positif(TEGLRCMFUM+TEGLRCMCHM+TEGLRCMTSM+TEGLRCMGOM+TEGLRCMTRM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRCMTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT);
regle 50398:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRCMFUz = positif(TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQRCMFU/TETONEQUO1)
+ (1 - positif(TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMDCz);
ZIPQRCMFUANT1 = positif(TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQRCMFU/TETONEQUO1)
+ (1 - positif(TEGLRCMCH+TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMDCANT1
);
ZIPQRCMFU5 = positif(TEGLRCMCHM+TEGLRCMTSM+TEGLRCMGOM+TEGLRCMTRM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQRCMFUM/TETONEQUOM1)
+ (1 - positif(TEGLRCMCHM+TEGLRCMTSM+TEGLRCMGOM+TEGLRCMTRM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCMDC5);
regle 50401:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRCMCHz = positif(TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQRCMCH/TETONEQUO1)
+ (1 - positif(TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMDCz-ZIPQRCMFUz);
ZIPQRCMCHANT1 = positif(TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQRCMCH/TETONEQUO1)
+ (1 - positif(TEGLRCMTS+TEGLRCMGO+TEGLRCMTR+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMDCANT1-ZIPQRCMFUANT1
);
ZIPQRCMCH5 = positif(TEGLRCMTSM+TEGLRCMGOM+TEGLRCMTRM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQRCMCHM/TETONEQUOM1)
+ (1 - positif(TEGLRCMTSM+TEGLRCMGOM+TEGLRCMTRM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCMDC5-ZIPQRCMFU5);
regle 50402:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRCMTRz = positif(TEGLRCMGO+TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQRCMTR/TETONEQUO1)
+ (1 - positif(TEGLRCMGO+TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMDCz-ZIPQRCMFUz-ZIPQRCMCHz);
ZIPQRCMTRANT1 = positif(TEGLRCMGO+TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQRCMTR/TETONEQUO1)
+ (1 - positif(TEGLRCMGO+TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMDCANT1-ZIPQRCMFUANT1-ZIPQRCMCHANT1
);
ZIPQRCMTR5 = positif(TEGLRCMGOM+TEGLRCMTSM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQRCMTRM/TETONEQUOM1)
+ (1 - positif(TEGLRCMGOM+TEGLRCMTSM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCMDC5-ZIPQRCMFU5-ZIPQRCMCH5);
regle 50403:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRCMGOz = positif(TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQRCMGO/TETONEQUO1)
+ (1 - positif(TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMDCz-ZIPQRCMFUz-ZIPQRCMCHz-ZIPQRCMTRz);
ZIPQRCMGOANT1 = positif(TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQRCMGO/TETONEQUO1)
+ (1 - positif(TEGLRCMTS+TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMDCANT1-ZIPQRCMFUANT1-ZIPQRCMCHANT1-ZIPQRCMTRANT1
);
ZIPQRCMGO5 = positif(TEGLRCMTSM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQRCMGOM/TETONEQUOM1)
+ (1 - positif(TEGLRCMTSM+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCMDC5-ZIPQRCMFU5-ZIPQRCMCH5-ZIPQRCMTR5);
regle 50404:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRCMTSz = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQRCMTS/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMDCz-ZIPQRCMFUz-ZIPQRCMCHz-ZIPQRCMTRz-ZIPQRCMGOz);
ZIPQRCMTSANT1 = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQRCMTS/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLPRRTOT+TEGLPRRZTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMDCANT1-ZIPQRCMFUANT1-ZIPQRCMCHANT1-ZIPQRCMTRANT1-ZIPQRCMGOANT1
);
ZIPQRCMTS5 = positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQRCMTSM/TETONEQUOM1)
+ (1 - positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLPRRTOTM+TEGLPRRZTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCMDC5-ZIPQRCMFU5-ZIPQRCMCH5-ZIPQRCMTR5-ZIPQRCMGO5);
ZIPQRCM1TOT= ZIPQRCMDC1 + ZIPQRCMFU1 + ZIPQRCMCH1 + ZIPQRCMTS1 + ZIPQRCMGO1 + ZIPQRCMTR1;
ZIPQRCM2TOT= ZIPQRCMDC2 + ZIPQRCMFU2 + ZIPQRCMCH2 + ZIPQRCMTS2 + ZIPQRCMGO2 + ZIPQRCMTR2;
ZIPQRCM5TOT= ZIPQRCMDC5 + ZIPQRCMFU5 + ZIPQRCMCH5 + ZIPQRCMTS5 + ZIPQRCMGO5 + ZIPQRCMTR5;
ZIPQRCMANT1TOT= ZIPQRCMDCANT1 + ZIPQRCMFUANT1 + ZIPQRCMCHANT1 + ZIPQRCMTSANT1 + ZIPQRCMGOANT1 + ZIPQRCMTRANT1;
regle 50410:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQPRRVz = positif(somme(i=C,1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT);
ZIPQPRRANTV1 = positif(somme(i=C,1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT
);
ZIPQPRRV5 = positif(somme(i=C,1..4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRVM/TETONEQUOM1)
+ (1 - positif(somme(i=C,1..4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT);
pour z=1,2:
ZIPQPRRCz = positif(somme(i=1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRC/TETONEQUO1)
+ (1 - positif(somme(i=1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRVz);
ZIPQPRRANTC1 = positif(somme(i=1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRC/TETONEQUO1)
+ (1 - positif(somme(i=1..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTV1
);
ZIPQPRRC5 = positif(somme(i=1..4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRCM/TETONEQUOM1)
+ (1 - positif(somme(i=1..4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRRV5);
pour z=1,2:
ZIPQPRR1z = positif(somme(i=2..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRR1/TETONEQUO1)
+ (1 - positif(somme(i=2..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRVz-ZIPQPRRCz);
ZIPQPRRANT11 = positif(somme(i=2..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRR1/TETONEQUO1)
+ (1 - positif(somme(i=2..4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTV1-ZIPQPRRANTC1
);
ZIPQPRR15 = positif(somme(i=2..4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRR1M/TETONEQUOM1)
+ (1 - positif(somme(i=2..4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRRV5-ZIPQPRRC5);
pour z=1,2:
ZIPQPRR2z = positif(somme(i=3,4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRR2/TETONEQUO1)
+ (1 - positif(somme(i=3,4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRVz-ZIPQPRRCz-ZIPQPRR1z);
ZIPQPRRANT21 = positif(somme(i=3,4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRR2/TETONEQUO1)
+ (1 - positif(somme(i=3,4 : TEGLPRRi)+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTV1-ZIPQPRRANTC1-ZIPQPRRANT11
);
ZIPQPRR25 = positif(somme(i=3,4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRR2M/TETONEQUOM1)
+ (1 - positif(somme(i=3,4 : TEGLPRRiM)+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRRV5-ZIPQPRRC5-ZIPQPRR15);
pour z=1,2:
ZIPQPRR3z = positif(TEGLPRR4+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRR3/TETONEQUO1)
+ (1 - positif(TEGLPRR4+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRVz-ZIPQPRRCz-ZIPQPRR1z-ZIPQPRR2z);
ZIPQPRRANT31 = positif(TEGLPRR4+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRR3/TETONEQUO1)
+ (1 - positif(TEGLPRR4+somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTV1-ZIPQPRRANTC1-ZIPQPRRANT11-ZIPQPRRANT21
);
ZIPQPRR35 = positif(TEGLPRR4M+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRR3M/TETONEQUOM1)
+ (1 - positif(TEGLPRR4M+somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRRV5-ZIPQPRRC5-ZIPQPRR15-ZIPQPRR25);
pour z=1,2:
ZIPQPRR4z = positif(somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRR4/TETONEQUO1)
+ (1 - positif(somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRVz-ZIPQPRRCz-ZIPQPRR1z-ZIPQPRR2z-ZIPQPRR3z);
ZIPQPRRANT41 = positif(somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRR4/TETONEQUO1)
+ (1 - positif(somme(i=V,C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTV1-ZIPQPRRANTC1-ZIPQPRRANT11-ZIPQPRRANT21-ZIPQPRRANT31
);
ZIPQPRR45 = positif(somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRR4M/TETONEQUOM1)
+ (1 - positif(somme(i=V,C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRRV5-ZIPQPRRC5-ZIPQPRR15-ZIPQPRR25-ZIPQPRR35);
ZIPQPRR1TOT= somme(i=V,C,1..4 : ZIPQPRRi1);
ZIPQPRR2TOT= somme(i=V,C,1..4 : ZIPQPRRi2);
ZIPQPRR5TOT= somme(i=V,C,1..4 : ZIPQPRRi5);
ZIPQPRRANT1TOT= somme(i=V,C,1..4 : ZIPQPRRANTi1);
regle 504105:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQPRRZVz = positif(somme(i=C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRZV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT);
ZIPQPRRANTZV1 = positif(somme(i=C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRZV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT
);
ZIPQPRRZV5 = positif(somme(i=C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRZVM/TETONEQUOM1)
+ (1 - positif(somme(i=C,1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT);
pour z=1,2:
ZIPQPRRZCz = positif(somme(i=1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRZC/TETONEQUO1)
+ (1 - positif(somme(i=1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRZVz);
ZIPQPRRANTZC1 = positif(somme(i=1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRZC/TETONEQUO1)
+ (1 - positif(somme(i=1..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTZV1
);
ZIPQPRRZC5 = positif(somme(i=1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRZCM/TETONEQUOM1)
+ (1 - positif(somme(i=1..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZV5);
pour z=1,2:
ZIPQPRRZ1z = positif(somme(i=2..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRZ1/TETONEQUO1)
+ (1 - positif(somme(i=2..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRZVz-ZIPQPRRZCz);
ZIPQPRRANTZ11 = positif(somme(i=2..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRZ1/TETONEQUO1)
+ (1 - positif(somme(i=2..4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTZV1-ZIPQPRRANTZC1
);
ZIPQPRRZ15 = positif(somme(i=2..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRZ1M/TETONEQUOM1)
+ (1 - positif(somme(i=2..4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZV5-ZIPQPRRZC5);
pour z=1,2:
ZIPQPRRZ2z = positif(somme(i=3,4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRZ2/TETONEQUO1)
+ (1 - positif(somme(i=3,4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRZVz-ZIPQPRRZCz-ZIPQPRRZ1z);
ZIPQPRRANTZ21 = positif(somme(i=3,4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRZ2/TETONEQUO1)
+ (1 - positif(somme(i=3,4 : TEGLPRRZi)+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTZV1-ZIPQPRRANTZC1-ZIPQPRRANTZ11
);
ZIPQPRRZ25 = positif(somme(i=3,4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRZ2M/TETONEQUOM1)
+ (1 - positif(somme(i=3,4 : TEGLPRRZiM)+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZV5-ZIPQPRRZC5-ZIPQPRRZ15);
pour z=1,2:
ZIPQPRRZ3z = positif(TEGLPRRZ4+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRZ3/TETONEQUO1)
+ (1 - positif(TEGLPRRZ4+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRZVz-ZIPQPRRZCz-ZIPQPRRZ1z-ZIPQPRRZ2z);
ZIPQPRRANTZ31 = positif(TEGLPRRZ4+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRZ3/TETONEQUO1)
+ (1 - positif(TEGLPRRZ4+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTZV1-ZIPQPRRANTZC1-ZIPQPRRANTZ11-ZIPQPRRANTZ21
);
ZIPQPRRZ35 = positif(TEGLPRRZ4M+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRZ3M/TETONEQUOM1)
+ (1 - positif(TEGLPRRZ4M+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZV5-ZIPQPRRZC5-ZIPQPRRZ15-ZIPQPRRZ25);
pour z=1,2:
ZIPQPRRZ4z = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTz*TERPQPRRZ4/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRZVz-ZIPQPRRZCz-ZIPQPRRZ1z-ZIPQPRRZ2z-ZIPQPRRZ3z);
ZIPQPRRANTZ41 = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT) * arr(IQUOTOTANT1*TERPQPRRZ4/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT+TEGLRFTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANTZV1-ZIPQPRRANTZC1-ZIPQPRRANTZ11-ZIPQPRRANTZ21-ZIPQPRRANTZ31
);
ZIPQPRRZ45 = positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM) *arr(IQUOTOT5*TERPQPRRZ4M/TETONEQUOM1)
+ (1 - positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM+TEGLRFTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZV5-ZIPQPRRZC5-ZIPQPRRZ15-ZIPQPRRZ25-ZIPQPRRZ35);
ZIPQPRRZ1TOT= somme(i=V,C,1..4 : ZIPQPRRZi1);
ZIPQPRRZ2TOT= somme(i=V,C,1..4 : ZIPQPRRZi2);
ZIPQPRRZ5TOT= somme(i=V,C,1..4 : ZIPQPRRZi5);
ZIPQPRRANTZ1TOT= somme(i=V,C,1..4 : ZIPQPRRANTZi1);
regle 50415:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRF1z = positif(TEGLRF2+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT) * arr(IQUOTOTz*TERPQRF1/TETONEQUO1)
+ (1 - positif(TEGLRF2+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT);
ZIPQRFANT11 = positif(TEGLRF2+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT) * arr(IQUOTOTANT1*TERPQRF1/TETONEQUO1)
+ (1 - positif(TEGLRF2+TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT
);
ZIPQRF15 = positif(TEGLRF2M+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM) *arr(IQUOTOT5*TERPQRF1M/TETONEQUOM1)
+ (1 - positif(TEGLRF2M+TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZ5TOT);
pour z=1,2:
ZIPQRF2z = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT) * arr(IQUOTOTz*TERPQRF2/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRF1z-ZIPQPRRZzTOT);
ZIPQRFANT21 = positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT) * arr(IQUOTOTANT1*TERPQRF2/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT+TEGLRVOTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQRFANT11-ZIPQPRRANTZ1TOT
);
ZIPQRF25 = positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM) *arr(IQUOTOT5*TERPQRF2M/TETONEQUOM1)
+ (1 - positif(TEGLTSTOTM+TEGLTSREMPTOTM+TEGLRVOTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF15-ZIPQPRRZ5TOT);
ZIPQRF1TOT= somme(i=1,2 : ZIPQRFi1);
ZIPQRF2TOT= somme(i=1,2 : ZIPQRFi2);
ZIPQRF5TOT= somme(i=1,2 : ZIPQRFi5);
ZIPQRFANT1TOT= somme(i=1,2 : ZIPQRFANTi1);
regle 50420:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRVOz = positif(TEGLRVO5+TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQRVO/TETONEQUO1)
+ (1 - positif(TEGLRVO5+TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRFzTOT-ZIPQPRRZzTOT);
ZIPQRVOANT1 = positif(TEGLRVO5+TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQRVO/TETONEQUO1)
+ (1 - positif(TEGLRVO5+TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQRFANT1TOT-ZIPQPRRANTZ1TOT
);
ZIPQRVO5 = positif(TEGLRVO5M+TEGLRVO6M+TEGLRVO7M+TEGLTSTOTM+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQRVOM/TETONEQUOM1)
+ (1 - positif(TEGLRVO5M+TEGLRVO6M+TEGLRVO7M+TEGLTSTOTM+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQPRRZ5TOT);
regle 50425:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRVO5z = positif(TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQRVO5/TETONEQUO1)
+ (1 - positif(TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRFzTOT-ZIPQRVOz-ZIPQPRRZzTOT);
ZIPQRVO5ANT1 = positif(TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQRVO5/TETONEQUO1)
+ (1 - positif(TEGLRVO6+TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1-ZIPQPRRANTZ1TOT
);
ZIPQRVO55 = positif(TEGLRVO6M+TEGLRVO7M+TEGLTSTOTM+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQRVO5M/TETONEQUOM1)
+ (1 - positif(TEGLRVO6M+TEGLRVO7M+TEGLTSTOTM+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5-ZIPQPRRZ5TOT);
regle 50430:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRVO6z = positif(TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQRVO6/TETONEQUO1)
+ (1 - positif(TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRFzTOT-ZIPQRVOz-ZIPQRVO5z-ZIPQPRRZzTOT);
ZIPQRVO6ANT1 = positif(TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQRVO6/TETONEQUO1)
+ (1 - positif(TEGLRVO7+TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1-ZIPQRVO5ANT1-ZIPQPRRANTZ1TOT
);
ZIPQRVO65 = positif(TEGLRVO7M+TEGLTSTOTM+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQRVO6M/TETONEQUOM1)
+ (1 - positif(TEGLRVO7M+TEGLTSTOTM+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5-ZIPQRVO55-ZIPQPRRZ5TOT);
regle 50435:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQRVO7z = positif(TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQRVO7/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRFzTOT-ZIPQPRRZzTOT-ZIPQRVOz-ZIPQRVO5z-ZIPQRVO6z);
ZIPQRVO7ANT1 = positif(TEGLTSTOT+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQRVO7/TETONEQUO1)
+ (1 - positif(TEGLTSTOT+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1-ZIPQRVO5ANT1-ZIPQRVO6ANT1
);
ZIPQRVO75 = positif(TEGLTSTOTM+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQRVO7M/TETONEQUOM1)
+ (1 - positif(TEGLTSTOTM+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5-ZIPQRVO55-ZIPQRVO65-ZIPQPRRZ5TOT);
ZIPQRVO1TOT= ZIPQRVO1 + ZIPQRVO51 + ZIPQRVO61 + ZIPQRVO71;
ZIPQRVO2TOT= ZIPQRVO2 + ZIPQRVO52 + ZIPQRVO62 + ZIPQRVO72;
ZIPQRVO5TOT= ZIPQRVO5 +ZIPQRVO55 +ZIPQRVO65 +ZIPQRVO75 ;
ZIPQRVOANT1TOT= ZIPQRVOANT1 + ZIPQRVO5ANT1 + ZIPQRVO6ANT1 + ZIPQRVO7ANT1;
regle 50440:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQTSVz = positif(somme(i= C,1..4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQTSV/TETONEQUO1)
+ (1 - positif(somme(i= C,1..4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQPRRZzTOT);
ZIPQTSANTV1 = positif(somme(i= C,1..4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQTSV/TETONEQUO1)
+ (1 - positif(somme(i=C,1..4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQPRRANTZ1TOT
);
ZIPQTSV5 = positif(somme(i= C,1..4 : TEGLTSiM)+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQTSVM/TETONEQUOM1)
+ (1 - positif(somme(i=C,1..4 : TEGLTSiM)+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQPRRZ5TOT);
pour z=1,2:
ZIPQTSCz = positif(somme(i= 1..4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQTSC/TETONEQUO1)
+ (1 - positif(somme(i= 1..4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQPRRZzTOT-ZIPQTSVz);
ZIPQTSANTC1 = positif(somme(i= 1..4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQTSC/TETONEQUO1)
+ (1 - positif(somme(i= 1..4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQPRRANTZ1TOT-ZIPQTSANTV1
);
ZIPQTSC5 = positif(somme(i= 1..4 : TEGLTSiM)+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQTSCM/TETONEQUOM1)
+ (1 - positif(somme(i= 1..4 : TEGLTSiM)+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQPRRZ5TOT-ZIPQTSV5);
pour z=1,2:
ZIPQTS1z = positif(somme(i= 2..4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQTS1/TETONEQUO1)
+ (1 - positif(somme(i= 2..4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQPRRZzTOT-ZIPQTSVz-ZIPQTSCz);
ZIPQTSANT11 = positif(somme(i= 2..4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQTS1/TETONEQUO1)
+ (1 - positif(somme(i= 2..4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQPRRANTZ1TOT-ZIPQTSANTV1-ZIPQTSANTC1
);
ZIPQTS15 = positif(somme(i= 2..4 : TEGLTSiM)+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQTS1M/TETONEQUOM1)
+ (1 - positif(somme(i= 2..4 : TEGLTSiM)+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQPRRZ5TOT-ZIPQTSV5-ZIPQTSC5);
pour z=1,2:
ZIPQTS2z = positif(somme(i= 3,4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQTS2/TETONEQUO1)
+ (1 - positif(somme(i= 3,4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSVz-ZIPQTSCz-ZIPQTS1z);
ZIPQTSANT21 = positif(somme(i= 3,4 : TEGLTSi)+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQTS2/TETONEQUO1)
+ (1 - positif(somme(i= 3,4 : TEGLTSi)+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANTV1-ZIPQTSANTC1-ZIPQTSANT11
);
ZIPQTS25 = positif(somme(i= 3,4 : TEGLTSiM)+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQTS2M/TETONEQUOM1)
+ (1 - positif(somme(i= 3,4 : TEGLTSiM)+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQPRRZ5TOT-ZIPQTSV5-ZIPQTSC5-ZIPQTS15);
pour z=1,2:
ZIPQTS3z = positif(TEGLTS4+TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQTS3/TETONEQUO1)
+ (1 - positif(TEGLTS4+TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSVz-ZIPQTSCz-ZIPQTS1z-ZIPQTS2z);
ZIPQTSANT31 = positif(TEGLTS4+TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQTS3/TETONEQUO1)
+ (1 - positif(TEGLTS4+TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANTV1-ZIPQTSANTC1-ZIPQTSANT11-ZIPQTSANT21
);
ZIPQTS35 = positif(TEGLTS4M+TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQTS3M/TETONEQUOM1)
+ (1 - positif(TEGLTS4M+TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQPRRZ5TOT-ZIPQTSV5-ZIPQTSC5-ZIPQTS15-ZIPQTS25);
pour z=1,2:
ZIPQTS4z = positif(TEGLTSREMPTOT) * arr(IQUOTOTz*TERPQTS4/TETONEQUO1)
+ (1 - positif(TEGLTSREMPTOT)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSVz-ZIPQTSCz-ZIPQTS1z-ZIPQTS2z-ZIPQTS3z);
ZIPQTSANT41 = positif(TEGLTSREMPTOT) * arr(IQUOTOTANT1*TERPQTS4/TETONEQUO1)
+ (1 - positif(TEGLTSREMPTOT)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANTV1-ZIPQTSANTC1-ZIPQTSANT11-ZIPQTSANT21-ZIPQTSANT31
);
ZIPQTS45 = positif(TEGLTSREMPTOTM) *arr(IQUOTOT5*TERPQTS4M/TETONEQUOM1)
+ (1 - positif(TEGLTSREMPTOTM)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQPRRZ5TOT-ZIPQTSV5-ZIPQTSC5-ZIPQTS15-ZIPQTS25-ZIPQTS35);
ZIPQTS1TOT= somme(i=V,C,1..4 : ZIPQTSi1);
ZIPQTS2TOT= somme(i=V,C,1..4 : ZIPQTSi2);
ZIPQTS5TOT= somme(i=V,C,1..4 : ZIPQTSi5);
ZIPQTSANT1TOT= somme(i=V,C,1..4 : ZIPQTSANTi1);
regle 50445:
application : bareme , iliad , batch ;
pour z=1,2:
ZIPQTSREMPVz = positif(somme(i= C,1..4 : TEGLTSREMPi)) * arr(IQUOTOTz*TERPQTSREMPV/TETONEQUO1)
+ (1 - positif(somme(i= C,1..4 : TEGLTSREMPi))) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSzTOT);
ZIPQTSREMPANTV1 = positif(somme(i= C,1..4 : TEGLTSREMPi)) * arr(IQUOTOTANT1*TERPQTSREMPV/TETONEQUO1)
+ (1 - positif(somme(i= C,1..4 : TEGLTSREMPi))) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANT1TOT
);
ZIPQTSREMPV5 = positif(somme(i= C,1..4 : TEGLTSREMPiM)) *arr(IQUOTOT5*TERPQTSREMPVM/TETONEQUOM1)
+ (1 - positif(somme(i= C,1..4 : TEGLTSREMPiM))) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZ5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQTS5TOT);
pour z=1,2:
ZIPQTSREMPCz = positif(somme(i= 1..4 : TEGLTSREMPi)) * arr(IQUOTOTz*TERPQTSREMPC/TETONEQUO1)
+ (1 - positif(somme(i= 1..4 : TEGLTSREMPi))) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSzTOT-ZIPQTSREMPVz);
ZIPQTSREMPANTC1 = positif(somme(i= 1..4 : TEGLTSREMPi)) * arr(IQUOTOTANT1*TERPQTSREMPC/TETONEQUO1)
+ (1 - positif(somme(i= 1..4 : TEGLTSREMPi))) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANT1TOT-ZIPQTSREMPANTV1
);
ZIPQTSREMPC5 = positif(somme(i= 1..4 : TEGLTSREMPiM)) *arr(IQUOTOT5*TERPQTSREMPCM/TETONEQUOM1)
+ (1 - positif(somme(i= 1..4 : TEGLTSREMPiM))) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZ5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQTS5TOT-ZIPQTSREMPV5);
pour z=1,2:
ZIPQTSREMP1z = positif(somme(i= 2..4 : TEGLTSREMPi)) * arr(IQUOTOTz*TERPQTSREMP1/TETONEQUO1)
+ (1 - positif(somme(i= 2..4 : TEGLTSREMPi))) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSzTOT-ZIPQTSREMPVz-ZIPQTSREMPCz);
ZIPQTSREMPANT11 = positif(somme(i= 2..4 : TEGLTSREMPi)) * arr(IQUOTOTANT1*TERPQTSREMP1/TETONEQUO1)
+ (1 - positif(somme(i= 2..4 : TEGLTSREMPi))) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANT1TOT-ZIPQTSREMPANTV1-ZIPQTSREMPANTC1
);
ZIPQTSREMP15 = positif(somme(i= 2..4 : TEGLTSREMPiM)) *arr(IQUOTOT5*TERPQTSREMP1M/TETONEQUOM1)
+ (1 - positif(somme(i= 2..4 : TEGLTSREMPiM))) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZ5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQTS5TOT-ZIPQTSREMPV5-ZIPQTSREMPC5);
pour z=1,2:
ZIPQTSREMP2z = positif(somme(i= 3,4 : TEGLTSREMPi)) * arr(IQUOTOTz*TERPQTSREMP2/TETONEQUO1)
+ (1 - positif(somme(i= 3,4 : TEGLTSREMPi))) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSzTOT-ZIPQTSREMPVz-ZIPQTSREMPCz-ZIPQTSREMP1z);
ZIPQTSREMPANT21 = positif(somme(i= 3,4 : TEGLTSREMPi)) * arr(IQUOTOTANT1*TERPQTSREMP2/TETONEQUO1)
+ (1 - positif(somme(i= 3,4 : TEGLTSREMPi))) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANT1TOT-ZIPQTSREMPANTV1-ZIPQTSREMPANTC1-ZIPQTSREMPANT11
);
ZIPQTSREMP25 = positif(somme(i= 3,4 : TEGLTSREMPiM)) *arr(IQUOTOT5*TERPQTSREMP2M/TETONEQUOM1)
+ (1 - positif(somme(i= 3,4 : TEGLTSREMPiM))) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZ5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQTS5TOT-ZIPQTSREMPV5-ZIPQTSREMPC5-ZIPQTSREMP15);
pour z=1,2:
ZIPQTSREMP3z = positif(TEGLTSREMP4) * arr(IQUOTOTz*TERPQTSREMP3/TETONEQUO1)
+ (1 - positif(TEGLTSREMP4)) *
(IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSzTOT-ZIPQTSREMPVz-ZIPQTSREMPCz-ZIPQTSREMP1z-ZIPQTSREMP2z);
ZIPQTSREMPANT31 = positif(TEGLTSREMP4) * arr(IQUOTOTANT1*TERPQTSREMP3/TETONEQUO1)
+ (1 - positif(TEGLTSREMP4)) *
(IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANT1TOT-ZIPQTSREMPANTV1-ZIPQTSREMPANTC1-ZIPQTSREMPANT11-ZIPQTSREMPANT21
);
ZIPQTSREMP35 = positif(TEGLTSREMP4M) *arr(IQUOTOT5*TERPQTSREMP3M/TETONEQUOM1)
+ (1 - positif(TEGLTSREMP4M)) *
(IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZ5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQTS5TOT-ZIPQTSREMPV5-ZIPQTSREMPC5-ZIPQTSREMP15-ZIPQTSREMP25);
pour z=1,2:
ZIPQTSREMP4z = IQUOTOTz-ZIPQzTOT-ZIPQFzTOT-ZIPQPALIMzTOT-ZIPQRCMzTOT-ZIPQPRRzTOT-ZIPQPRRZzTOT-ZIPQRFzTOT-ZIPQRVOzTOT-ZIPQTSzTOT-ZIPQTSREMPVz-ZIPQTSREMPCz-ZIPQTSREMP1z-ZIPQTSREMP2z-ZIPQTSREMP3z;
ZIPQTSREMPANT41 = IQUOTOTANT1-ZIPQANT1TOT-ZIPQFANT1TOT-ZIPQPALIMANT1TOT-ZIPQRCMANT1TOT-ZIPQPRRANT1TOT-ZIPQPRRANTZ1TOT-ZIPQRFANT1TOT-ZIPQRVOANT1TOT-ZIPQTSANT1TOT-ZIPQTSREMPANTV1-ZIPQTSREMPANTC1-ZIPQTSREMPANT11-ZIPQTSREMPANT21-ZIPQTSREMPANT31;
ZIPQTSREMP45 = IQUOTOT5-ZIPQ5TOT-ZIPQF5TOT-ZIPQPALIM5TOT-ZIPQRCM5TOT-ZIPQPRR5TOT-ZIPQPRRZ5TOT-ZIPQRF5TOT-ZIPQRVO5TOT-ZIPQTS5TOT-ZIPQTSREMPV5-ZIPQTSREMPC5-ZIPQTSREMP15-ZIPQTSREMP25-ZIPQTSREMP35;
ZIPQTSREMP1TOT= somme(i=V,C,1..4 : ZIPQTSREMPi1);
ZIPQTSREMP2TOT= somme(i=V,C,1..4 : ZIPQTSREMPi2);
ZIPQTSREMP5TOT= somme(i=V,C,1..4 : ZIPQTSREMPi5);
ZIPQTSREMPANT1TOT= somme(i=V,C,1..4 : ZIPQTSREMPANTi1);
regle 5040:
application : bareme , iliad , batch ;
pour z=1,2:
IPQ0z = IN0z;
IPQANT01 = INANT01;
pour z=1,2:
IPQRWBz = ZIPQRWBz * CODNWB;
pour z=1,2:
IPQRWAz = ZIPQRWAz * CODNWA;
pour z=1,2:
IPQRVGz = ZIPQRVGz * CODNVG;
pour z=1,2:
IPQ1z = ZIPQ1z * 1;
IPQANTRWB = ZIPQANTRWB * CODNWB;
IPQANTRWA = ZIPQANTRWA * CODNWA;
IPQANTRVG = ZIPQANTRVG * CODNVG;
IPQANT11 = ZIPQANT11 * 1;
pour z=1,2:
IPQ2z = ZIPQ2z * 2;
IPQANT21 = ZIPQANT21 * 2;
pour z=1,2:
IPQ3z = ZIPQ3z * 3;
IPQANT31 = ZIPQANT31 * 3;
pour z=1,2:
IPQ4z = ZIPQ4z * 4;
IPQANT41 = ZIPQANT41 * 4;
pour z=1,2;i=V,C,1..4:
IPQFiz = ZIPQFiz * COTFi;
pour i=V,C,1..4:
IPQFANTi1 = ZIPQFANTi1 * COTFi;
pour z=1,2;i=V,C:
IPQPALIMiz = ZIPQPALIMiz * PENSALNBi;
pour z=1,2;i=1..4:
IPQPALIMiz = ZIPQPALIMiz * PENSALNBPi;
pour i=V,C:
IPQPALIMANTi1 = ZIPQPALIMANTi1 * PENSALNBi;
pour i=1..4:
IPQPALIMANTi1 = ZIPQPALIMANTi1 * PENSALNBPi;
pour z=1,2:
IPQRCMDCz = ZIPQRCMDCz * REVACTNB;
IPQRCMDCANT1 = ZIPQRCMDCANT1 * REVACTNB;
pour z=1,2:
IPQRCMCHz = ZIPQRCMCHz * PROVIENB;
IPQRCMCHANT1 = ZIPQRCMCHANT1 * PROVIENB;
pour z=1,2:
IPQRCMFUz = ZIPQRCMFUz * REVPEANB;
IPQRCMFUANT1 = ZIPQRCMFUANT1 * REVPEANB;
pour z=1,2:
IPQRCMGOz = ZIPQRCMGOz * RESTUCNB;
IPQRCMGOANT1 = ZIPQRCMGOANT1 * RESTUCNB;
pour z=1,2:
IPQRCMTRz = ZIPQRCMTRz * INTERENB;
IPQRCMTRANT1 = ZIPQRCMTRANT1 * INTERENB;
pour z=1,2:
IPQRCMTSz = ZIPQRCMTSz * DISQUONB;
IPQRCMTSANT1 = ZIPQRCMTSANT1 * DISQUONB;
pour z=1,2;i=V,C:
IPQPRRiz = ZIPQPRRiz * CARPENBAi;
pour z=1,2;i=1..4:
IPQPRRiz = ZIPQPRRiz * CARPENBAPi;
pour z=1,2:
IPQPRRZVz = ZIPQPRRZVz * CODNAZ;
pour z=1,2:
IPQPRRZCz = ZIPQPRRZCz * CODNBZ;
pour z=1,2:
IPQPRRZ1z = ZIPQPRRZ1z * CODNCZ;
pour z=1,2:
IPQPRRZ2z = ZIPQPRRZ2z * CODNDZ;
pour z=1,2:
IPQPRRZ3z = ZIPQPRRZ3z * CODNEZ;
pour z=1,2:
IPQPRRZ4z = ZIPQPRRZ4z * CODNFZ;
pour i=V,C:
IPQPRRANTi1 = ZIPQPRRANTi1 * CARPENBAi;
pour i=1..4:
IPQPRRANTi1 = ZIPQPRRANTi1 * CARPENBAPi;
IPQPRRANTZV1 = ZIPQPRRANTZV1 * CODNAZ;
IPQPRRANTZC1 = ZIPQPRRANTZC1 * CODNBZ;
IPQPRRANTZ11 = ZIPQPRRANTZ11 * CODNCZ;
IPQPRRANTZ21 = ZIPQPRRANTZ21 * CODNDZ;
IPQPRRANTZ31 = ZIPQPRRANTZ31 * CODNEZ;
IPQPRRANTZ41 = ZIPQPRRANTZ41 * CODNFZ;
pour z=1,2:
IPQRF1z = ZIPQRF1z * FONCINB;
IPQRFANT11 = ZIPQRFANT11 * FONCINB;
pour z=1,2:
IPQRF2z = ZIPQRF2z * REAMORNB;
IPQRFANT21 = ZIPQRFANT21 * REAMORNB;
pour z=1,2:
IPQRVOz = ZIPQRVOz * RENTAXNB;
IPQRVOANT1 = ZIPQRVOANT1 * RENTAXNB;
pour z=1,2:
IPQRVO5z = ZIPQRVO5z * RENTAXNB5;
IPQRVO5ANT1 = ZIPQRVO5ANT1 * RENTAXNB5;
pour z=1,2:
IPQRVO6z = ZIPQRVO6z * RENTAXNB6;
IPQRVO6ANT1 = ZIPQRVO6ANT1 * RENTAXNB6;
pour z=1,2:
IPQRVO7z = ZIPQRVO7z * RENTAXNB7;
IPQRVO7ANT1 = ZIPQRVO7ANT1 * RENTAXNB7;
pour z=1,2;i=V,C:
IPQTSiz = ZIPQTSiz * CARTSNBAi;
pour z=1,2;i=1..4:
IPQTSiz = ZIPQTSiz * CARTSNBAPi;
pour i=V,C:
IPQTSANTi1 = ZIPQTSANTi1 * CARTSNBAi;
pour i=1..4:
IPQTSANTi1 = ZIPQTSANTi1 * CARTSNBAPi;
pour z=1,2;i=V,C:
IPQTSREMPiz = ZIPQTSREMPiz * REMPLANBi;
pour z=1,2;i=1..4:
IPQTSREMPiz = ZIPQTSREMPiz * REMPLANBPi;
pour i=V,C:
IPQTSREMPANTi1 = ZIPQTSREMPANTi1 * REMPLANBi;
pour i=1..4:
IPQTSREMPANTi1 = ZIPQTSREMPANTi1 * REMPLANBPi;
pour z=1,2:
IPQ100z = IPQRWBz+IPQRWAz+IPQRVGz + somme(x=1..4 : IPQxz)
+ somme(i=V,C,1..4:IPQFiz)
+ somme(i=V,C,1..4 : IPQPALIMiz) + somme(i=V,C,1..4 : IPQTSiz)
+ somme(i=V,C,1..4 : IPQTSREMPiz)
+ IPQRF11 + IPQRF21
+ somme(i=V,C,1..4:IPQPRRiz+IPQPRRZiz)
+ IPQRCMDCz + IPQRCMFUz + IPQRCMCHz + IPQRCMTSz + IPQRCMGOz + IPQRCMTRz
+ IPQRVOz + IPQRVO5z + IPQRVO6z + IPQRVO7z ;
IPQANT1001 = IPQANTRWB+IPQANTRWA+IPQANTRVG + somme(x=1..4:IPQANTx1)
+ somme(i=V,C,1..4:IPQFANTi1)
+ somme(i=V,C,1..4 : IPQPALIMANTi1) + somme(i=V,C,1..4 : IPQTSANTi1)
+ somme(i=V,C,1..4 : IPQTSREMPi1)
+ IPQRFANT11 + IPQRFANT21
+ somme(i=V,C,1..4:IPQPRRANTi1+IPQPRRANTZi1)
+ IPQRCMDCANT1 + IPQRCMFUANT1 + IPQRCMCHANT1 + IPQRCMTSANT1 + IPQRCMGOANT1 + IPQRCMTRANT1
+ IPQRVOANT1 + IPQRVO5ANT1 + IPQRVO6ANT1 + IPQRVO7ANT1 ;
regle 50470:
application : bareme , iliad , batch ;
IPQ05 = IN05;
IPQRWB5 = ZIPQRWB5 * CODNWB;
IPQRWA5 = ZIPQRWA5 * CODNWA;
IPQRVG5 = ZIPQRVG5 * CODNVG;
IPQ15 = ZIPQ15 * 1;
IPQ25 = ZIPQ25 * 2;
IPQ35 = ZIPQ35 * 3;
IPQ45 = ZIPQ45 * 4;
pour i=V,C,1..4:
IPQFi5 = ZIPQFi5 * COTFi;
pour i=V,C:
IPQPALIMi5 = ZIPQPALIMi5 * PENSALNBi;
pour i=1..4:
IPQPALIMi5 = ZIPQPALIMi5 * PENSALNBPi;
IPQRCMDC5 = ZIPQRCMDC5 * REVACTNB;
IPQRCMCH5 = ZIPQRCMCH5 * PROVIENB;
IPQRCMFU5 = ZIPQRCMFU5 * REVPEANB;
IPQRCMGO5 = ZIPQRCMGO5 * RESTUCNB;
IPQRCMTR5 = ZIPQRCMTR5 * INTERENB;
IPQRCMTS5 = ZIPQRCMTS5 * DISQUONB;
pour i=V,C:
IPQPRRi5 = ZIPQPRRi5 * CARPENBAi;
pour i=1..4:
IPQPRRi5 = ZIPQPRRZi5 * CARPENBAPi;
IPQPRRZV5 = ZIPQPRRZV5 * CODNAZ;
IPQPRRZC5 = ZIPQPRRZC5 * CODNBZ;
IPQPRRZ15 = ZIPQPRRZ15 * CODNCZ;
IPQPRRZ25 = ZIPQPRRZ25 * CODNDZ;
IPQPRRZ35 = ZIPQPRRZ35 * CODNEZ;
IPQPRRZ45 = ZIPQPRRZ45 * CODNFZ;
IPQRF15 = ZIPQRF15 * FONCINB;
IPQRF25 = ZIPQRF25 * REAMORNB;
IPQRVO5 = ZIPQRVO5 * RENTAXNB;
IPQRVO55 = ZIPQRVO55 * RENTAXNB5;
IPQRVO65 = ZIPQRVO65 * RENTAXNB6;
IPQRVO75 = ZIPQRVO75 * RENTAXNB7;
pour i=V,C:
IPQTSi5 = ZIPQTSi5 * CARTSNBAi;
pour i=1..4:
IPQTSi5 = ZIPQTSi5 * CARTSNBAPi;
pour i=V,C:
IPQTSREMPi5 = ZIPQTSREMPi5 * REMPLANBi;
pour i=1..4:
IPQTSREMPi5 = ZIPQTSREMPi5 * REMPLANBPi;
IPQ1005 = IPQRWB5 +IPQRWA5 +IPQRVG5 + somme(x=1..4 : IPQx5)
+ somme(i=V,C,1..4:IPQFi5)
+ somme(i=V,C,1..4 : IPQPALIMi5) + somme(i=V,C,1..4 : IPQTSi5)
+ somme(i=V,C,1..4 : IPQTSREMPi5)
+ IPQRF15 + IPQRF25
+ somme(i=V,C,1..4:IPQPRRi5+IPQPRRZi5)
+ IPQRCMDC5 + IPQRCMFU5 + IPQRCMCH5 + IPQRCMTS5 + IPQRCMGO5 + IPQRCMTR5
+ IPQRVO5 + IPQRVO55 + IPQRVO65 + IPQRVO75 ;
regle 504:
application : bareme , iliad , batch ;
pour x=0;z=1,2:
INxz=max(ISx1z,ISx2z-PLA);
pour x=0;z=1,2:
INANTxz=max(ISx1z,ISx2z-PLANT);
pour x=5;z=1,2:
INxz=max(ISx1z,ISx2z-PLA);
pour x=5;z=1,2:
INANTxz=max(ISx1z,ISx2z-PLANT);