求js代码改成易语言

狼※牙

下面是js代码，求改为易语言

[JavaScript] 纯文本查看 复制代码

//定义点的结构体
function point(){
 this.x=0;
 this.y=0;
}

//计算一个点是否在多边形里,参数:点,多边形数组
function PointInPoly(pt, poly) { 
    for (var c = false, i = -1, l = poly.length, j = l - 1; ++i < l; j = i) 
        ((poly.y <= pt.y && pt.y < poly[j].y) || (poly[j].y <= pt.y && pt.y < poly.y)) 
        && (pt.x < (poly[j].x - poly.x) * (pt.y - poly.y) / (poly[j].y - poly.y) + poly.x) 
        && (c = !c); 
    return c; 
}

 

//调用

var pt=new point();
pt.x=34.32812720562833;
pt.y=108.93115997314453;

var _poly=[{x:1.1,y:1.1},{x:3,y:1},{x:6,y:4},{x:2,y:10},{x:1.1,y:1.1}];


var xx=PointInPoly(pt,_poly);
alert(xx);

Tenacitys

为啥子乱码了，上传个源码吧。

一线之隔

直接调用吧

苗哥

应该你先百du自行解决，然后搞不定了，在找人提供思路或方式，而不是代码   

Tenacitys

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
pt	Point
_poly	Point		0
temp	Point		5
i	整数型

pt.x ＝ 34.32812720563
pt.y ＝ 108.9311599731
temp [1].x ＝ 1.1
temp [1].y ＝ 1.1
temp [2].x ＝ 3
temp [2].y ＝ 1
temp [3].x ＝ 6
temp [3].y ＝ 4
temp [4].x ＝ 2
temp [4].y ＝ 10
temp [5].x ＝ 1.1
temp [5].y ＝ 1.1
计次循环首 (取数组成员数 (temp), i)
加入成员 (_poly, temp [i])
计次循环尾 ()
输出调试文本 (PointInPoly (pt, _poly))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
PointInPoly	逻辑型
参数名	类 型	参考	可空	数组	备 注
pt	Point
poly	Point

变量名	类 型	静态	数组	备 注
c	逻辑型
i	整数型
l	整数型
j	整数型

' function PointInPoly(pt, poly) {
' for (var c = false, i = -1, l = poly.length, j = l - 1; ++i < l; j = i)
' ((poly[i].y <= pt.y && pt.y < poly[j].y) || (poly[j].y <= pt.y && pt.y < poly[i].y))
' && (pt.x < (poly[j].x - poly[i].x) * (pt.y - poly[i].y) / (poly[j].y - poly[i].y) + poly[i].x)
' && (c = !c);
' return c;
' }
c ＝ 假
i ＝ 0
l ＝ 取数组成员数 (poly)
j ＝ l － 1
判断循环首 (真)
i ＝ i ＋ 1
如果真 (取反 (i ＜ l))
跳出循环 ()

如果真 (poly [i].y ≤ pt.y 且 pt.y ＜ poly [j].y 或 poly [j].y ≤ pt.y 且 pt.y ＜ poly [i].y)
如果真 (pt.x ��� (poly [j].x － poly [i].x) �� (pt.y － poly [i].y) ÷ (poly [j].y － poly [i].y) ＋ poly [i].x)
c ＝ 取反 (c)


j ＝ i
判断循环尾 ()
返回 (c)

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 pt, Point<br /> .局部变量 _poly, Point, , "0"<br /> .局部变量 temp, Point, , "5"<br /> .局部变量 i, 整数型<br /> <br /> pt.x ＝ 34.32812720563<br /> pt.y ＝ 108.9311599731<br /> <br /> temp [1].x ＝ 1.1<br /> temp [1].y ＝ 1.1<br /> <br /> temp [2].x ＝ 3<br /> temp [2].y ＝ 1<br /> <br /> temp [3].x ＝ 6<br /> temp [3].y ＝ 4<br /> <br /> temp [4].x ＝ 2<br /> temp [4].y ＝ 10<br /> <br /> temp [5].x ＝ 1.1<br /> temp [5].y ＝ 1.1<br /> <br /> .计次循环首 (取数组成员数 (temp), i)<br />     加入成员 (_poly, temp <i>)<br /> .计次循环尾 ()<br /> <br /> <br /> 输出调试文本 (PointInPoly (pt, _poly))<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 PointInPoly, 逻辑型<br /> .参数 pt, Point<br /> .参数 poly, Point, 数组<br /> .局部变量 c, 逻辑型<br /> .局部变量 i, 整数型<br /> .局部变量 l, 整数型<br /> .局部变量 j, 整数型<br /> <br /> ' function PointInPoly(pt, poly) {<br /> ' for (var c = false, i = -1, l = poly.length, j = l - 1; ++i < l; j = i)<br /> ' ((poly<i>.y <= pt.y && pt.y < poly[j].y) || (poly[j].y <= pt.y && pt.y < poly<i>.y))<br /> ' && (pt.x < (poly[j].x - poly<i>.x) * (pt.y - poly<i>.y) / (poly[j].y - poly<i>.y) + poly<i>.x)<br /> ' && (c = !c);<br /> ' return c;<br /> ' }<br /> <br /> c ＝ 假<br /> i ＝ 0<br /> l ＝ 取数组成员数 (poly)<br /> j ＝ l － 1<br /> .判断循环首 (真)<br />     i ＝ i ＋ 1<br />     .如果真 (取反 (i ＜ l))<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> <br />     .如果真 (poly <i>.y ≤ pt.y 且 pt.y ＜ poly [j].y 或 poly [j].y ≤ pt.y 且 pt.y ＜ poly <i>.y)<br />         .如果真 (pt.x ＜ (poly [j].x － poly <i>.x) × (pt.y － poly <i>.y) ÷ (poly [j].y － poly <i>.y) ＋ poly <i>.x)<br />             c ＝ 取反 (c)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     j ＝ i<br /> .判断循环尾 ()<br /> <br /> <br /> 返回 (c)

狼※牙

Tenacitys 发表于 2023-8-19 22:22
为啥子乱码了，上传个源码吧。

这个数值的长度怎么解决，我后面还有数字，但是自动五舍五入了

Tenacitys

狼※牙 发表于 2023-8-20 13:30
这个数值的长度怎么解决，我后面还有数字，但是自动五舍五入了

这我不知道