[84] | 1 | forward(YREAL x, YREAL y) |
---|
| 2 | { |
---|
| 3 | //Yj = longitude |
---|
| 4 | //Yk = latitude |
---|
| 5 | int j_ll=YS1_xinter(Yi,YTemps); |
---|
| 6 | int k_ll=YS5_xinter(Yi,YTemps); |
---|
[98] | 7 | if (j_ll==Yj && k_ll==Yk) |
---|
[84] | 8 | { |
---|
| 9 | //printf("j_ll=%d ; k_ll=%d\n",j_ll,k_ll); |
---|
| 10 | YS1_uinter_d(Yi,YTemps)=YS1_u_d(Yj,Yk);//la 1ere sortie du module uinter pour le floater i est la valeur du module u en Yj Yk |
---|
| 11 | YS2_uinter_d(Yi,YTemps)=YS1_u_d(Yj+1,Yk); |
---|
| 12 | YS3_uinter_d(Yi,YTemps)=YS1_u_d(Yj,Yk+1); |
---|
| 13 | YS4_uinter_d(Yi,YTemps)=YS1_u_d(Yj+1,Yk+1); |
---|
| 14 | YS5_uinter_d(Yi,YTemps)=YS1_v_d(Yj,Yk); |
---|
| 15 | YS6_uinter_d(Yi,YTemps)=YS1_v_d(Yj+1,Yk); |
---|
| 16 | YS7_uinter_d(Yi,YTemps)=YS1_v_d(Yj,Yk+1); |
---|
| 17 | YS8_uinter_d(Yi,YTemps)=YS1_v_d(Yj+1,Yk+1); |
---|
| 18 | |
---|
| 19 | |
---|
| 20 | } |
---|
| 21 | } |
---|
| 22 | |
---|
| 23 | backward(YREAL x, YREAL y) |
---|
| 24 | { |
---|
| 25 | int j_ll=YS1_xinter(Yi,YTemps); |
---|
| 26 | int k_ll=YS5_xinter(Yi,YTemps); |
---|
[98] | 27 | if (j_ll==Yj && k_ll==Yk) |
---|
[84] | 28 | { |
---|
| 29 | YG1_u_d(Yj,Yk)+=YG1_uinter_d(Yi,YTemps); |
---|
| 30 | YG1_u_d(Yj+1,Yk)+=YG2_uinter_d(Yi,YTemps); |
---|
| 31 | YG1_u_d(Yj,Yk+1)+=YG3_uinter_d(Yi,YTemps); |
---|
| 32 | YG1_u_d(Yj+1,Yk+1)+=YG4_uinter_d(Yi,YTemps); |
---|
| 33 | YG1_v_d(Yj,Yk)+=YG5_uinter_d(Yi,YTemps); |
---|
| 34 | YG1_v_d(Yj+1,Yk)+=YG6_uinter_d(Yi,YTemps); |
---|
| 35 | YG1_v_d(Yj,Yk+1)+=YG7_uinter_d(Yi,YTemps); |
---|
| 36 | YG1_v_d(Yj+1,Yk+1)+=YG8_uinter_d(Yi,YTemps); |
---|
| 37 | |
---|
| 38 | } |
---|
| 39 | |
---|
| 40 | |
---|
| 41 | //YG1_uinter(Yi,Ytemps)=âŠâŠâŠYG1_u(Yj,Yk)âŠâŠ |
---|
| 42 | |
---|
| 43 | |
---|
| 44 | } |
---|