- gen_circle(Circle, Row, Column, Radius)
- Rows:=[]
- Columns:=[]
- for Index := 0 to 330 by 30
- tuple_rad(Index, Rad)
- tuple_concat(Rows, Row-Radius*sin(Rad), Rows)
- tuple_concat(Columns, Column+Radius*cos(Rad), Columns)
- endfor
- gen_circle(Circle1, Row1, Column1, Radius1)
- Rows1:=[]
- Columns1:=[]
- for Index1 := 0 to 330 by 30
- tuple_rad(Index1, Rad1)
- tuple_concat(Rows1, Row1-Radius1*sin(Rad1), Rows1)
- tuple_concat(Columns1, Column1+Radius1*cos(Rad1), Columns1)
- endfor
- Distance:=[]
- for Index2 := 0 to 11 by 1
- distance_pp(Rows[Index2], Columns[Index2], Rows1[Index2], Columns1[Index2], Distance1)
- tuple_concat(Distance, Distance1, Distance)
- endfor
复制代码 |