gaptool的lua调用c接口版本

最新推荐文章于 2023-03-21 15:47:28 发布
最新推荐文章于 2023-03-21 15:47:28 发布
阅读量176 收藏
点赞数
分类专栏： 数学笔记
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u010401391/article/details/105577586
版权

D:\hxh\bin\LUA资料\LUA\luatest\luatest>math test1.lua
群GAP[8,1]的结构不变量N0=[1,1,2,4]是循环群(ret=31,bG=1,bC=1,bA=1,bN=1,bS=1)
群GAP[8,1]的结构不变量N0=[1,1,2,4]是循环群(ret=31,bG=1,bC=1,bA=1,bN=1,bS=1)
群GAP[8,2]的结构不变量N0=[1,3,4,0]是非循环Abel群(ret=29,bG=1,bC=0,bA=1,bN=1,bS=1)
群GAP[8,2]的结构不变量N0=[1,3,4,0]是非循环Abel群(ret=29,bG=1,bC=0,bA=1,bN=1,bS=1)
群GAP[8,5]的结构不变量N0=[1,7,0,0]是非循环Abel群(ret=29,bG=1,bC=0,bA=1,bN=1,bS=1)
群GAP[8,3]的结构不变量N0=[1,5,2,0]是非Abel幂零群(ret=25,bG=1,bC=0,bA=0,bN=1,bS=1)
群GAP[8,4]的结构不变量N0=[1,1,6,0]是非Abel幂零群(ret=25,bG=1,bC=0,bA=0,bN=1,bS=1)
群GAP[12,1]的结构不变量N0=[1,1,2,6,2,0]是非幂零可解群(ret=17,bG=1,bC=0,bA=0,bN=0,bS=1)
群GAP[12,2]的结构不变量N0=[1,1,2,2,2,4]是循环群(ret=31,bG=1,bC=1,bA=1,bN=1,bS=1)
群GAP[12,3]的结构不变量N0=[1,3,8,0,0,0]是非幂零可解群(ret=17,bG=1,bC=0,bA=0,bN=0,bS=1)
群GAP[12,4]的结构不变量N0=[1,7,2,0,2,0]是非幂零可解群(ret=17,bG=1,bC=0,bA=0,bN=0,bS=1)
群GAP[12,5]的结构不变量N0=[1,3,2,0,6,0]是非循环Abel群(ret=29,bG=1,bC=0,bA=1,bN=1,bS=1)
G12_6不是群
G16_15不是群
G16_16不是群
G6_1是非幂零可解群(ret=17,bG=1,bC=0,bA=0,bN=0,bS=1)


g_C8Mul={
    {0, 1, 2, 3, 4, 5, 6, 7},
    {1, 0, 3, 2, 5, 4, 7, 6},
    {2, 3, 1, 0, 6, 7, 5, 4},
    {3, 2, 0, 1, 7, 6, 4, 5},
    {4, 5, 6, 7, 2, 3, 1, 0},
    {5, 4, 7, 6, 3, 2, 0, 1},
    {6, 7, 5, 4, 1, 0, 3, 2},
    {7, 6, 4, 5, 0, 1, 2, 3}
}

g_C8Mul_2={
    {0,1,2,3,4,5,6,7},
    {1,2,3,4,5,6,7,0},
    {2,3,4,5,6,7,0,1},
    {3,4,5,6,7,0,1,2},
    {4,5,6,7,0,1,2,3},
    {5,6,7,0,1,2,3,4},
    {6,7,0,1,2,3,4,5},
    {7,0,1,2,3,4,5,6}
}

g_C2C4Mul={
    {0, 1, 2, 3, 4, 5, 6, 7},
    {1, 0, 3, 2, 5, 4, 7, 6},
    {2, 3, 0, 1, 6, 7, 4, 5},
    {3, 2, 1, 0, 7, 6, 5, 4},
    {4, 5, 6, 7, 1, 0, 3, 2},
    {5, 4, 7, 6, 0, 1, 2, 3},
    {6, 7, 4, 5, 3, 2, 1, 0},
    {7, 6, 5, 4, 2, 3, 0, 1}
}

g_C2C4Mul_2={
    {0,1,2,3,4,5,6,7},
    {1,4,7,2,5,0,3,6},
    {2,7,4,1,6,3,0,5},
    {3,2,1,0,7,6,5,4},
    {4,5,6,7,0,1,2,3},
    {5,0,3,6,1,4,7,2},
    {6,3,0,5,2,7,4,1},
    {7,6,5,4,3,2,1,0}
}

g_C2C2C2Mul={
    {0, 1, 2, 3, 4, 5, 6, 7},
    {1, 0, 3, 2, 5, 4, 7, 6},
    {2, 3, 0, 1, 6, 7, 4, 5},
    {3, 2, 1, 0, 7, 6, 5, 4},
    {4, 5, 6, 7, 0, 1, 2, 3},
    {5, 4, 7, 6, 1, 0, 3, 2},
    {6, 7, 4, 5, 2, 3, 0, 1},
    {7, 6, 5, 4, 3, 2, 1, 0}
}

g_D4Mul={
    {0, 1, 2, 3, 4, 5, 6, 7},
    {1, 0, 3, 2, 5, 4, 7, 6},
    {2, 3, 0, 1, 7, 6, 5, 4},
    {3, 2, 1, 0, 6, 7, 4, 5},
    {4, 5, 6, 7, 0, 1, 2, 3},
    {5, 4, 7, 6, 1, 0, 3, 2},
    {6, 7, 4, 5, 3, 2, 1, 0},
    {7, 6, 5, 4, 2, 3, 0, 1}
}

g_Q8Mul={
    {0, 1, 2, 3, 4, 5, 6, 7},
    {1, 0, 3, 2, 5, 4, 7, 6},
    {2, 3, 1, 0, 7, 6, 4, 5},
    {3, 2, 0, 1, 6, 7, 5, 4},
    {4, 5, 6, 7, 1, 0, 3, 2},
    {5, 4, 7, 6, 0, 1, 2, 3},
    {6, 7, 5, 4, 2, 3, 1, 0},
    {7, 6, 4, 5, 3, 2, 0, 1}
}

G12_1={
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 },
    {2, 3, 1, 5, 6, 4, 9, 7, 8, 12, 10, 11 },
    {3, 1, 2, 6, 4, 5, 8, 9, 7, 11, 12, 10 },
    {4, 5, 6, 1, 2, 3, 10, 11, 12, 7, 8, 9 },
    {5, 6, 4, 2, 3, 1, 12, 10, 11, 9, 7, 8 },
    { 6, 4, 5, 3, 1, 2, 11, 12, 10, 8, 9, 7 },
    { 7, 8, 9, 10, 11, 12, 4, 5, 6, 1, 2, 3 },
    { 8, 9, 7, 11, 12, 10, 6, 4, 5, 3, 1, 2 },
    { 9, 7, 8, 12, 10, 11, 5, 6, 4, 2, 3, 1 },
    { 10, 11, 12, 7, 8, 9, 1, 2, 3, 4, 5, 6 },
    { 11, 12, 10, 8, 9, 7, 3, 1, 2, 6, 4, 5 },
    { 12, 10, 11, 9, 7, 8, 2, 3, 1, 5, 6, 4 }
}

G12_2={
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 },
    {2, 1, 4, 3, 6, 5, 8, 7, 10, 9, 12, 11 },
    {3, 4, 5, 6, 1, 2, 9, 10, 11, 12, 7, 8 },
    {4, 3, 6, 5, 2, 1, 10, 9, 12, 11, 8, 7 },
    {5, 6, 1, 2, 3, 4, 11, 12, 7, 8, 9, 10 },
    {6, 5, 2, 1, 4, 3, 12, 11, 8, 7, 10, 9},
    {7, 8, 9, 10, 11, 12, 2, 1, 4, 3, 6, 5},
    {8, 7, 10, 9, 12, 11, 1, 2, 3, 4, 5, 6},
    {9, 10, 11, 12, 7, 8, 4, 3, 6, 5, 2, 1},
    {10, 9, 12, 11, 8, 7, 3, 4, 5, 6, 1, 2},
    {11, 12, 7, 8, 9, 10, 6, 5, 2, 1, 4, 3},
    {12, 11, 8, 7, 10, 9, 5, 6, 1, 2, 3, 4}
}

G12_3={
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 },
    {2, 1, 4, 3, 8, 7, 6, 5, 11, 12, 9, 10 },
    {3, 4, 1, 2, 6, 5, 8, 7, 12, 11, 10, 9 },
    {4, 3, 2, 1, 7, 8, 5, 6, 10, 9, 12, 11 },
    {5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4 },
    {6, 5, 8, 7, 12, 11, 10, 9, 3, 4, 1, 2},
    {7, 8, 5, 6, 10, 9, 12, 11, 4, 3, 2, 1},
    {8, 7, 6, 5, 11, 12, 9, 10, 2, 1, 4, 3},
    {9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8},
    {10, 9, 12, 11, 4, 3, 2, 1, 7, 8, 5, 6},
    {11, 12, 9, 10, 2, 1, 4, 3, 8, 7, 6, 5},
    {12, 11, 10, 9, 3, 4, 1, 2, 6, 5, 8, 7}
}

G12_4={
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 },
    {2, 3, 1, 5, 6, 4, 9, 7, 8, 12, 10, 11  },
    {3, 1, 2, 6, 4, 5, 8, 9, 7, 11, 12, 10 },
    {4, 5, 6, 1, 2, 3, 10, 11, 12, 7, 8, 9 },
    {5, 6, 4, 2, 3, 1, 12, 10, 11, 9, 7, 8 },
    {6, 4, 5, 3, 1, 2, 11, 12, 10, 8, 9, 7},
    {7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6},
    {8, 9, 7, 11, 12, 10, 3, 1, 2, 6, 4, 5},
    {9, 7, 8, 12, 10, 11, 2, 3, 1, 5, 6, 4},
    {10, 11, 12, 7, 8, 9, 4, 5, 6, 1, 2, 3},
    {11, 12, 10, 8, 9, 7, 6, 4, 5, 3, 1, 2},
    {12, 10, 11, 9, 7, 8, 5, 6, 4, 2, 3, 1}
}

G12_5={
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 },
    {2, 3, 1, 5, 6, 4, 8, 9, 7, 11, 12, 10 },
    {3, 1, 2, 6, 4, 5, 9, 7, 8, 12, 10, 11 },
    {4, 5, 6, 1, 2, 3, 10, 11, 12, 7, 8, 9 },
    {5, 6, 4, 2, 3, 1, 11, 12, 10, 8, 9, 7 },
    {6, 4, 5, 3, 1, 2, 12, 10, 11, 9, 7, 8},
    {7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6 },
    {8, 9, 7, 11, 12, 10, 2, 3, 1, 5, 6, 4},
    {9, 7, 8, 12, 10, 11, 3, 1, 2, 6, 4, 5},
    {10, 11, 12, 7, 8, 9, 4, 5, 6, 1, 2, 3},
    {11, 12, 10, 8, 9, 7, 5, 6, 4, 2, 3, 1},
    {12, 10, 11, 9, 7, 8, 6, 4, 5, 3, 1, 2}
}

--[[lua5.3开始支持位操作，lua5.1中可使用c提供的位操作函数接口Xor、Add、Or
enum IsGroupEnum
{
    IsGroup_None=0,//不是群
    IsGroup_bG=0x00000001,//是群
    IsGroup_bC=0x00000002,//循环群
    IsGroup_bA=0x00000004,//交换群
    IsGroup_bN=0x00000008,//幂零群
    IsGroup_bS=0x00000010,//可解群
};
]]
function int(b)
    -- return tostring(b)
    if b then
        return 1
    else
        return 0
    end
end

function CANS(ret)
   local ss=""
   local bG=And(ret,1)~=0
   if bG then
      local bC=And(ret,2)~=0
      local bA=And(ret,4)~=0
      local bN=And(ret,8)~=0    
      local bS=(And(ret,16)~=0)        
      local s=""
      if bC then
         s="是循环群"
      else
          if bA then
             s="是非循环Abel群"
          else
              if bN then
                 s="是非Abel幂零群"
              else
                  if bS then
                     s="是非幂零可解群"
                  else
                     s="不是可解群"
                  end
              end
          end    
      end         
      ss=s.."(ret="..ret..",bG="..int(bG)..",bC="..int(bC)..",bA="..int(bA)..",bN="..int(bN)..",bS="..int(bS)..")"
   else
      ss="不是群" 
   end
   return ss
end

function printisgroup(name,ret)
   local ss=CANS(ret)
   io.write(name..ss.."\n")
end

local calN0C8=calN0("g_C8Mul","GAP[8,1]",1)
local calCANSG8=CANS(isgroup("g_C8Mul",1))
print(calN0C8..calCANSG8)

calN0C8=calN0("g_C8Mul_2","GAP[8,1]",1)
calCANSG8=CANS(isgroup("g_C8Mul_2",1))
print(calN0C8..calCANSG8)

local calN0C2C4=calN0("g_C2C4Mul","GAP[8,2]",1)
calCANSG8=CANS(isgroup("g_C2C4Mul",1))
print(calN0C2C4..calCANSG8)

calN0C2C4=calN0("g_C2C4Mul_2","GAP[8,2]",1)
calCANSG8=CANS(isgroup("g_C2C4Mul_2",1))
print(calN0C2C4..calCANSG8)

calN0E8=calN0("g_C2C2C2Mul","GAP[8,5]",1)
calCANSG8=CANS(isgroup("g_C2C2C2Mul",1))
print(calN0E8..calCANSG8)

calN0D4=calN0("g_D4Mul","GAP[8,3]",1)
calCANSG8=CANS(isgroup("g_D4Mul",1))
print(calN0D4..calCANSG8)

calN0Q8=calN0("g_Q8Mul","GAP[8,4]",1)
calCANSG8=CANS(isgroup("g_Q8Mul",1))
print(calN0Q8..calCANSG8)

for i=1,5 do
    local name="GAP[12,"..i.."]"
    calN0G12_i=calN0("G12_"..i,name,0)
    local ret=isgroup("G12_"..i)
    local ss=CANS(ret)    
    print(calN0G12_i..ss)
end

G12_6={
    {1,2,3,4,5,6,7,8,9,10,11,12},
    {2,1,4,3,10,9,8,7,6,5,12,11},
    {3,4,1,2,11,12,9,10,7,8,5,6},
    {4,3,2,1,8,7,10,9,12,11,6,5},
    {5,6,7,8,9,10,11,12,1,2,3,4},
    {6,5,8,7,2,1,12,11,10,9,4,3},
    {7,8,5,6,3,4,1,2,11,12,9,10},
    {8,7,6,5,12,11,2,1,4,3,10,9},
    {9,10,11,12,1,2,3,4,5,6,7,8},
    {10,9,12,11,6,5,4,3,2,1,8,7},
    {11,12,9,10,7,8,5,6,3,4,1,2},
    {12,11,10,9,4,3,6,5,8,7,2,1}
}
isG12_6=isgroup("G12_6")
printisgroup("G12_6",isG12_6)

G16_15={
    {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16},
    {2,1,4,3,14,13,8,7,10,9,12,11,6,5,16,15},
    {3,4,1,2,15,16,13,14,11,12,9,10,7,8,5,6},
    {4,3,2,1,8,7,14,13,12,11,10,9,16,15,6,5},
    {5,6,7,8,9,10,11,12,13,14,15,16,1,2,3,4},
    {6,5,8,7,2,1,12,11,14,13,16,15,10,9,4,3},
    {7,8,5,6,3,4,1,2,15,16,13,14,11,12,9,10},
    {8,7,6,5,12,11,2,1,16,15,14,13,4,3,10,9},
    {9,10,11,12,13,14,15,16,1,2,3,4,5,6,7,8},
    {10,9,12,11,6,5,16,15,2,1,4,3,14,13,8,7},
    {11,12,9,10,7,8,5,6,3,4,1,2,15,16,13,14},
    {12,11,10,9,16,15,6,5,4,3,2,1,8,7,14,13},
    {13,14,15,16,1,2,3,4,5,6,7,8,9,10,11,12},
    {14,13,16,15,10,9,4,3,6,5,8,7,2,1,12,11},
    {15,16,13,14,11,12,9,10,7,8,5,6,3,4,1,2},
    {16,15,14,13,4,3,10,9,8,7,6,5,12,11,2,1}
}    
isG16_15=isgroup("G16_15")
printisgroup("G16_15",isG16_15)

G16_16={
    {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16},
    {2,1,4,3,8,7,6,5,12,11,10,9,16,15,14,13},
    {3,4,1,2,7,8,5,6,11,12,9,10,15,16,13,14},
    {4,3,2,1,6,5,8,7,10,9,12,11,14,13,16,15},
    {5,6,7,8,3,4,1,2,15,16,13,14,9,10,11,12},
    {6,5,8,7,2,1,4,3,14,13,16,15,12,11,10,9},
    {7,8,5,6,1,2,3,4,13,14,15,16,11,12,9,10},
    {8,7,6,5,4,3,2,1,16,15,14,13,10,9,12,11},
    {9,10,11,12,13,14,15,16,3,4,1,2,7,8,5,6},
    {10,9,12,11,16,15,14,13,2,1,4,3,6,5,8,7},
    {11,12,9,10,15,16,13,14,1,2,3,4,5,6,7,8},
    {12,11,10,9,14,13,16,15,4,3,2,1,8,7,6,5},
    {13,14,15,16,11,12,9,10,5,6,7,8,3,4,1,2},
    {14,13,16,15,10,9,12,11,8,7,6,5,2,1,4,3},
    {15,16,13,14,9,10,11,12,7,8,5,6,1,2,3,4},
    {16,15,14,13,12,11,10,9,6,5,8,7,4,3,2,1}
}
isG16_16=isgroup("G16_16")
printisgroup("G16_16",isG16_16)

G6_1={
    {1,2,3,4,5,6},
    {2,1,6,5,4,3},
    {3,4,5,6,1,2},
    {4,3,2,1,6,5},
    {5,6,1,2,3,4},
    {6,5,4,3,2,1}
}
isG6_1=isgroup("G6_1")
printisgroup("G6_1",isG6_1)
 

D:\hxh\bin\LUA资料\LUA\luatest\luatest>math test1.lua
The average is  30
The sum is      150
R2_1=M_2:
[R2Add]
1 2
2 1
[R2Mul]
1 1
1 1

R2_2=F_2:
[R2Add]
1 2
2 1
[R2Mul]
1 1
1 2

R3_1=M_3:
[R3Add]
1 2 3
2 3 1
3 1 2
[R3Mul]
1 1 1
1 1 1
1 1 1

R3_2=F_3:
[R3Add]
1 2 3
2 3 1
3 1 2
[R3Mul]
1 1 1
1 2 3
1 3 2

R2_1×R2_1:
[R4Add]
1 2 3 4
2 1 4 3
3 4 1 2
4 3 2 1
[R4Mul]
1 1 1 1
1 1 1 1
1 1 1 1
1 1 1 1
R2_1×R2_2:
[R4Add]
1 2 3 4
2 1 4 3
3 4 1 2
4 3 2 1
[R4Mul]
1 1 1 1
1 2 1 2
1 1 1 1
1 2 1 2
R2_1×R3_1:
[R6Add]
1 2 3 4 5 6
2 3 1 5 6 4
3 1 2 6 4 5
1 2 3 1 2 3
2 3 1 2 3 1
3 1 2 3 1 2
[R6Mul]
1 1 1 1 1 1
1 1 1 1 1 1
1 1 1 1 1 1
1 1 1 1 1 1
1 1 1 1 1 1
1 1 1 1 1 1
R2_1×R3_2:
[R6Add]
1 2 3 4 5 6
2 3 1 5 6 4
3 1 2 6 4 5
1 2 3 1 2 3
2 3 1 2 3 1
3 1 2 3 1 2
[R6Mul]
1 1 1 1 1 1
1 2 3 1 2 3
1 3 2 1 3 2
1 1 1 1 1 1
1 2 3 1 2 3
1 3 2 1 3 2
R2_2×R2_2:
[R4Add]
1 2 3 4
2 1 4 3
3 4 1 2
4 3 2 1
[R4Mul]
1 1 1 1
1 2 1 2
1 1 3 3
1 2 3 4
R2_2×R3_2:
[R6Add]
1 2 3 4 5 6
2 3 1 5 6 4
3 1 2 6 4 5
1 2 3 1 2 3
2 3 1 2 3 1
3 1 2 3 1 2
[R6Mul]
1 1 1 1 1 1
1 2 3 1 2 3
1 3 2 1 3 2
4 4 4 1 1 1
4 5 6 1 2 3
4 6 5 1 3 2
R3_1×R3_1:
[R9Add]
1 2 3 4 5 6 7 8 9
2 3 1 5 6 4 8 9 7
3 1 2 6 4 5 9 7 8
4 5 6 7 8 9 1 2 3
5 6 4 8 9 7 2 3 1
6 4 5 9 7 8 3 1 2
7 8 9 1 2 3 4 5 6
8 9 7 2 3 1 5 6 4
9 7 8 3 1 2 6 4 5
[R9Mul]
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1
R3_1×R3_2:
[R9Add]
1 2 3 4 5 6 7 8 9
2 3 1 5 6 4 8 9 7
3 1 2 6 4 5 9 7 8
4 5 6 7 8 9 1 2 3
5 6 4 8 9 7 2 3 1
6 4 5 9 7 8 3 1 2
7 8 9 1 2 3 4 5 6
8 9 7 2 3 1 5 6 4
9 7 8 3 1 2 6 4 5
[R9Mul]
1 1 1 1 1 1 1 1 1
1 2 3 1 2 3 1 2 3
1 3 2 1 3 2 1 3 2
1 1 1 1 1 1 1 1 1
1 2 3 1 2 3 1 2 3
1 3 2 1 3 2 1 3 2
1 1 1 1 1 1 1 1 1
1 2 3 1 2 3 1 2 3
1 3 2 1 3 2 1 3 2
R3_2×R3_2:
[R9Add]
1 2 3 4 5 6 7 8 9
2 3 1 5 6 4 8 9 7
3 1 2 6 4 5 9 7 8
4 5 6 7 8 9 1 2 3
5 6 4 8 9 7 2 3 1
6 4 5 9 7 8 3 1 2
7 8 9 1 2 3 4 5 6
8 9 7 2 3 1 5 6 4
9 7 8 3 1 2 6 4 5
[R9Mul]
1 1 1 1 1 1 1 1 1
1 2 3 1 2 3 1 2 3
1 3 2 1 3 2 1 3 2
1 1 1 4 4 4 7 7 7
1 2 3 4 5 6 7 8 9
1 3 2 4 6 5 7 9 8
1 1 1 7 7 7 4 4 4
1 2 3 7 8 9 4 5 6
1 3 2 7 9 8 4 6 5
int g_R2_1R2_1Add[4][4]={
{0,1,2,3},
{1,0,3,2},
{2,3,0,1},
{3,2,1,0},
};
int g_R2_1R2_1Mul[4][4]={
{0,0,0,0},
{0,0,0,0},
{0,0,0,0},
{0,0,0,0},
};
int g_R2_1R2_2Add[4][4]={
{0,1,2,3},
{1,0,3,2},
{2,3,0,1},
{3,2,1,0},
};
int g_R2_1R2_2Mul[4][4]={
{0,0,0,0},
{0,1,0,1},
{0,0,0,0},
{0,1,0,1},
};
int g_R2_1R3_1Add[6][6]={
{0,1,2,3,4,5},
{1,2,0,4,5,3},
{2,0,1,5,3,4},
{0,1,2,0,1,2},
{1,2,0,1,2,0},
{2,0,1,2,0,1},
};
int g_R2_1R3_1Mul[6][6]={
{0,0,0,0,0,0},
{0,0,0,0,0,0},
{0,0,0,0,0,0},
{0,0,0,0,0,0},
{0,0,0,0,0,0},
{0,0,0,0,0,0},
};
int g_R2_1R3_2Add[6][6]={
{0,1,2,3,4,5},
{1,2,0,4,5,3},
{2,0,1,5,3,4},
{0,1,2,0,1,2},
{1,2,0,1,2,0},
{2,0,1,2,0,1},
};
int g_R2_1R3_2Mul[6][6]={
{0,0,0,0,0,0},
{0,1,2,0,1,2},
{0,2,1,0,2,1},
{0,0,0,0,0,0},
{0,1,2,0,1,2},
{0,2,1,0,2,1},
};
int g_R2_2R2_2Add[4][4]={
{0,1,2,3},
{1,0,3,2},
{2,3,0,1},
{3,2,1,0},
};
int g_R2_2R2_2Mul[4][4]={
{0,0,0,0},
{0,1,0,1},
{0,0,2,2},
{0,1,2,3},
};
int g_R2_2R3_2Add[6][6]={
{0,1,2,3,4,5},
{1,2,0,4,5,3},
{2,0,1,5,3,4},
{0,1,2,0,1,2},
{1,2,0,1,2,0},
{2,0,1,2,0,1},
};
int g_R2_2R3_2Mul[6][6]={
{0,0,0,0,0,0},
{0,1,2,0,1,2},
{0,2,1,0,2,1},
{3,3,3,0,0,0},
{3,4,5,0,1,2},
{3,5,4,0,2,1},
};
int g_R3_1R3_1Add[9][9]={
{0,1,2,3,4,5,6,7,8},
{1,2,0,4,5,3,7,8,6},
{2,0,1,5,3,4,8,6,7},
{3,4,5,6,7,8,0,1,2},
{4,5,3,7,8,6,1,2,0},
{5,3,4,8,6,7,2,0,1},
{6,7,8,0,1,2,3,4,5},
{7,8,6,1,2,0,4,5,3},
{8,6,7,2,0,1,5,3,4},
};
int g_R3_1R3_1Mul[9][9]={
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
{0,0,0,0,0,0,0,0,0},
};
int g_R3_1R3_2Add[9][9]={
{0,1,2,3,4,5,6,7,8},
{1,2,0,4,5,3,7,8,6},
{2,0,1,5,3,4,8,6,7},
{3,4,5,6,7,8,0,1,2},
{4,5,3,7,8,6,1,2,0},
{5,3,4,8,6,7,2,0,1},
{6,7,8,0,1,2,3,4,5},
{7,8,6,1,2,0,4,5,3},
{8,6,7,2,0,1,5,3,4},
};
int g_R3_1R3_2Mul[9][9]={
{0,0,0,0,0,0,0,0,0},
{0,1,2,0,1,2,0,1,2},
{0,2,1,0,2,1,0,2,1},
{0,0,0,0,0,0,0,0,0},
{0,1,2,0,1,2,0,1,2},
{0,2,1,0,2,1,0,2,1},
{0,0,0,0,0,0,0,0,0},
{0,1,2,0,1,2,0,1,2},
{0,2,1,0,2,1,0,2,1},
};
int g_R3_2R3_2Add[9][9]={
{0,1,2,3,4,5,6,7,8},
{1,2,0,4,5,3,7,8,6},
{2,0,1,5,3,4,8,6,7},
{3,4,5,6,7,8,0,1,2},
{4,5,3,7,8,6,1,2,0},
{5,3,4,8,6,7,2,0,1},
{6,7,8,0,1,2,3,4,5},
{7,8,6,1,2,0,4,5,3},
{8,6,7,2,0,1,5,3,4},
};
int g_R3_2R3_2Mul[9][9]={
{0,0,0,0,0,0,0,0,0},
{0,1,2,0,1,2,0,1,2},
{0,2,1,0,2,1,0,2,1},
{0,0,0,3,3,3,6,6,6},
{0,1,2,3,4,5,6,7,8},
{0,2,1,3,5,4,6,8,7},
{0,0,0,6,6,6,3,3,3},
{0,1,2,6,7,8,3,4,5},
{0,2,1,6,8,7,3,5,4},
};

-- simple test
-- call a C++ function
avg, sum=average(10, 20, 30, 40, 50)
print("The average is ", avg)
print("The sum is ", sum)
--The average is  30
--The sum is      150

function testSmallRing(delt)
    for n=2,3 do
        for id=1,2 do
        local R=smallring(n,id)
            printringtable(R,delt)
        end
    end
end
testSmallRing(1)
--testSmallRing(0)

function testDirectSum(delt)
    for n1=2,3 do
        for id1=1,2 do
            for n2=2,3 do
                for id2=1,2 do
                    if n2>=n1 and id2>=id1 then
                        local R1=smallring(n1,id1)
                        local R2=smallring(n2,id2)
                        printdirectsum(R1,R2,delt)
                    end
                end
            end
        end
    end
end
testDirectSum(1)
testDirectSum(0)

华仔Ivan
关注
专栏目录
C/C++调用Lua接口封装技巧
Ruilin
01-16 839
原文[https://ruilin.github.io/blog/2019/01/16/C++调用Lua接口封装技巧.html] 作为一个轻量级、高性能的脚本语言，Lua绝对是C/C++首选的脚本语言。但由于为了保证语言层面的灵活性，C/C++调用Lua传递参数是基于堆栈实现的，使得调用过程比较繁琐，这给C/C++开发者带来比较大的维护成本。 本文分享一种我个人在实践中掌握的一种封装技巧——实现调...
从lua调用C
lemon
03-13 2791
1.环境 1.1 lua版本 我使用LuaForWindows_v5.1.4-46安装的lua环境，lua版本是5.1 1.2 vs版本 vs2013 1.3 vsvode vscode版本是1.44.2，安装了一个Lua Debug的插件来调试lua，版本是1.29.1。 2.lua调用c Lua利用一个虚拟的堆栈来给C传递值或从C获取值。每当Lua调用C函数，都会获得一个新的堆栈，该堆栈初始包含所有的调用C函数所需要的参数值（Lua传给C函数的调用实参），并且C函数执行完毕后，会把返回值压入这个栈（Lu
LUA脚本编程02--LUA调用C语言接口的实现方法
zhouyuming_hbxt的博客
03-15 591
LUA调用C语言接口的实现方法
linux lua调用so函数名,Lua C接口调用示例
weixin_42492000的博客
05-11 631
lua是一门语法简单，效率很高的脚本语言，能够很方便的与C语言交互，很适合做胶水语言使用，本文内容有两部分，第一部分讲如何在C语言中调用lua，第二部分讲如何在lua中调用C语言模块。1.在C语言中调用lua在C语言中调用lua要用到lua提供的C语言接口，test.c示例代码如下，linux下编译指令：gcc test.c -o test /usr/local/lib/liblua....
LUA脚本调用C接口库的3中方法
最新发布
wjg220000的博客
03-21 493
lua C接口 调用 ffi
lua实现调用webservice
01-04
lua实现webservice调用 通过gsoap 实现 C/C++ 调用web service
Lua中调用C语言函数实例
09-22
在Lua编程环境中，调用C语言编写的函数是一种常见的需求，这允许开发者利用C的高性能特性来处理一些底层操作或复杂计算。本文将详细讲解如何在Lua中调用C语言函数，并提供一个简单的实例。 首先，理解Lua与C语言...
Lua教程（二十）：Lua调用C函数
09-22
为了解决这一问题，Lua提供了与C语言交互的功能，允许开发者使用C语言编写高性能的模块，并通过Lua进行调用。这种机制不仅极大地提高了Lua的灵活性和实用性，也为开发者提供了更多的可能性。 #### 二、C函数作为...
在Lua中调用C语言
silent_F的博客
06-28 2548
文章目录C函数延续C模块   我们说用Lua可以调用C语言函数，但这并不意味着Lua可以调用所有的C函数。当C语言调用Lua函数时，该函数必须遵循一个简单的规则来传递参数和获取结果。同样，当Lua调用C函数时，这个C函数也必须遵循某种规则来获取参数和返回结果。此外，当Lua调用C函数时，我们必须注册该函数，即必须以一种恰当的方式为Lua提供该C函数的地址。   Lua调用C函数时，也使用一个与C语言调用Lua函数时相同类型的栈，C函数从栈中获取参数，并将结果压入栈中。   此处的重点在于，这个栈不是一个全局
Lua调用自定义C模块
09-21
### Lua调用自定义C模块详解 #### 一、引言 在开发过程中，Lua作为一种轻量级且高效的脚本语言，在游戏开发、快速原型设计等领域应用广泛。然而，由于Lua本身的特性限制，某些功能（如与操作系统交互、高性能计算等...
gaptool的C#版本（二）
u010401391的专栏
05-16 136
这篇博文在上篇博文的基础上做了些修改，定义了一个有限环的抽象基类，程序运行结果是一样的，但去除了重复的代码。 using System; using System.Collections.Generic; namespace gap { class util { public static void printRing(IRing r) { int n=r.size(); Console.Write("[R{0}...
自己写的gaptool（Lua版本）
u010401391的专栏
04-11 225
luatest SmallGroup.lua GAP[6,1]凯莱表: 1 2 3 4 5 6 2 1 4 3 6 5 3 5 1 6 2 4 4 6 2 5 1 3 5 3 6 1 4 2 6 4 5 2 3 1 GAP[6,1]群元阶的分布:[1,3,2,0] GAP[6,2]凯莱表: 1 2 3 4 5 6 2 3 4 5 6 1 3 4 5 6 1 2 4 5 6 1 2 3 5 6 1...
Nginx+lua实践：简单的接口聚合实例
皖南笑笑生的博客
08-12 9940
Nginx是高性能的HTTP和反向代理服务器。目前已经普遍应用到各大互联网公司，国内基于Nginx又分别改造推出了Tengix和Openresty，笔者所在的公司也在逐步推广Nginx作为业务系统的接入层，同时使用lua开发脚本，将业务逻辑前置来减轻后端服务器的压力（Nginx的并发能力非常强，很适合处理轻量级业务）。 接口聚合是很多业务系统需要实现的功能，可以前置到Nginx上做，聚合的目的一...
gaptool的Java版本
u010401391的专栏
05-23 148
javac GL2R.java java GL2R 0=>0 1=>1 2=>2 3=>3 4=>5 5=>4 1 2 3 4 5 6 2 1 5 6 3 4 3 6 1 5 4 2 4 5 6 1 2 3 5 4 2 3 6 1 6 3 4 2 1 5 interface IGroup { void printSet(); void printTable(); int mul(int a,int b); int size()...
Lua 服务器客户端交互
csdn15065363376的博客
05-31 2603
服务器服务器中 在Message文件夹里面 创建一个Btn类（参考Login）接收消息并发送新消息在Protocal注册客户端发送消息在BtnPanel中获取组件发送 “100”和 200接收消息NetWork中进行注册OnRole 换成OnBtnlocal protocal = buffer:ReadByte();只是协议号后面四条是服务器转发的数据...
Lua 接口（Interface）实现方式之一
yhhwatl的专栏
12-03 9803
interface是面向对象编程语言中接口操作的关键字，功能是把所需成员组合起来，以封装一定功能的集合。它好比一个模板，在其中定义了对象必须实现的成员，通过类或结构来实现它。接口不能包含成员的任何代码，只定义成员本身。接口成员的具体代码由实现接口的类提供。接口使用interface关键字进行声明。 在Lua中也可以封装这种类似的Interface。 function BasePanel:ct...
Lua　标准库 - 基本函数(base function)
CashChin的专栏
10-16 2760
基本函数库为Lua内置的函数库，不需要额外装载1、assert (v [, message])功能：相当于C的断言，参数：      v：当表达式v为nil或false将触发错误,message：发生错误时返回的信息，默认为"assertion failed!"  2、collectgarbage (opt [, arg])功能：是垃圾收集器的通用接口，用于操作垃圾收集器参数：   o
Lua 5.0 参考手册
JEXO
10-11 4911
 1 - 绪论Lua是一种为支持有数据描述机制的一般过程式编程语言而设计的扩展编程语言。它同样可以对面向对象语言、函数式程序设计（Functional Programming，如Lisp）以及数据驱动编程（data-driven programming）提供很好的支持。它的目标是被用作一种强大的、轻型的配置语言。Lua目前已经被实现为一个扩展库，是用clean C （ANSI C/C++的
Lua 中调用 Windows API
weixin_30500663的博客
01-12 1052
#include "lua.h" #include <malloc.h> #include <windows.h> typedef void* (__stdcall *func_call)(); static int api_call(lua_State *L) { int i,type; int n=lua_gettop(L); func_cal...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值