ABAQUS子程序DISP问题求助！！定义非均匀边界位移载荷

下图为我想计算的模型，边界位移载荷想要加载在红线的位置上

位移载荷条件是让红色的边界绕其最下端向右转动一定的角度，
数学表达式为u1=sinA*X2，u2=（cosA-1）*X2，1为横轴，2为纵轴，u是位移，X是坐标，角度A已知
效果图大概如下图

我是在boundary condition模块加载，uniform的觉得实现不了，用了下子程序DISP来定义，
下图是我写的DISP

因为不知道每个点的原始坐标是什么变量，我比较笨的穷举了两条边界上的点，还好不多
用节点编号来描述其原始坐标即X2变量，
运行后，结果完全不是预想的结果，可能是DISP写的有问题，专家们能帮忙看下？
另外，不用DISP能不能达到目的？谢谢！