source: altifloat/src/ur.h @ 98

Last change on this file since 98 was 98, checked in by jbrlod, 11 years ago

add function run_inc

File size: 1023 bytes
Line 
1forward(YREAL u1, YREAL u2, YREAL u3, YREAL u4, YREAL v1, YREAL v2, YREAL v3, YREAL v4, YREAL x1, YREAL x2, YREAL x3, YREAL x4, YREAL y1, YREAL y2, YREAL y3, YREAL y4, YREAL x, YREAL y)
2{
3        YS1=u1 + (u2-u1)*(x-x1)+(u3-u1)*(y-y1)+(u1-u2-u3+u4)*(x-x1)*(y-y1);
4        YS2=v1 + (v2-v1)*(x-x1)+(v3-v1)*(y-y1)+(v1-v2-v3+v4)*(x-x1)*(y-y1);
5        ur_dx=(u2-u1)+(u1-u2-u3+u4)*(y-y1);
6        ur_dy=(u3-u1)+(u1-u2-u3+u4)*(x-x1);
7        vr_dx=(v2-v1)+(v1-v2-v3+v4)*(y-y1);
8        vr_dy=(v3-v1)+(v1-v2-v3+v4)*(x-x1);
9        //printf("u1=%f ; u2=%f\n",u1,u2);
10}
11
12
13backward(YREAL u1, YREAL u2, YREAL u3, YREAL u4, YREAL v1, YREAL v2, YREAL v3, YREAL v4, YREAL x1, YREAL x2, YREAL x3, YREAL x4, YREAL y1, YREAL y2, YREAL y3, YREAL y4, YREAL x, YREAL y)
14
15{
16        YJ1I1 = YJ2I5 = 1 - (x-x1) - (y-y1) + (x-x1)*(y-y1);
17        YJ1I2 = YJ2I6 = (x-x1)-(x-x1)*(y-y1);
18        YJ1I3 = YJ2I7 = (y-y1)-(x-x1)*(y-y1);
19        YJ1I4 = YJ2I8 = (x-x1)*(y-y1);
20        YJ1I17=(u2-u1)+(u1-u2-u3+u4)*(y-y1);
21        YJ1I18=(u3-u1)+(u1-u2-u3+u4)*(x-x1);
22        YJ2I17=(v2-v1)+(v1-v2-v3+v4)*(y-y1);
23        YJ2I18=(v3-v1)+(v1-v2-v3+v4)*(x-x1);
24        }
Note: See TracBrowser for help on using the repository browser.