记用iapp开发六爻预测程序思路与过程（四）【实例分享】

书接上文#记用iapp开发六爻预测程序思路与过程（三）【实例分享】#//自动起卦函数fn AutoGua()//这里这块用于得出卦象s i = 0w(i<6){  sran(0,1,a)  ss(sss.autogua+a,sss.autogua)  //sss.autogua是自动起卦出来的二进制卦象  s+(1,i)}//动爻计算sran(1,6,change)sss changeY = changessg(sss.autogua,0,1,a1)ssg(sss.autogua,1,2,a2)ssg(sss.autogua,2,3,a3)ssg(sss.autogua,3,4,a4)ssg(sss.autogua,4,5,a5)ssg(sss.autogua,5,6,a6)f(change==1){  f(a1==1)  {    s a1=0  }else  {    s a1=1  }}else f(change==2){  f(a2==1)  {    s a2=0  }else  {    s a2=1  }}else f(change==3){  f(a3==1)  {    s a3=0  }else  {    s a3=1  }}else f(change==4){  f(a4==1)  {    s a4=0  }else  {    s a4=1  }}else f(change==5){  f(a5==1)  {    s a5=0  }else  {    s a5=1  }}else{  f(a6==1)  {    s a6=0  }else  {    s a6=1  }}ss(a1+a2+a3+a4+a5+a6,sss.changegua)//这里用于匹配卦象名称fn you_taichi.data()sl(sss.六十四卦,"；",a)for(Guaname;a){  sj(Guaname,"【","】",guaname)  f(sss.autogua==guaname)  {    sj(Guaname,null,"【",sss.Guax)    break  }}for(Guaname;a){  sj(Guaname,"【","】",guaname)  f(sss.changegua==guaname)  {    sj(Guaname,null,"【",sss.changeGuax)    break  }}syso("本卦编码："+sss.autogua)syso("变卦编码："+sss.changegua)syso("本卦："+sss.Guax)syso("变卦："+sss.changeGuax)syso("动爻："+sss.changeY)fn you_taichi.纳地支(sss.autogua)syso("纳地支："+sss.landnumber)end fn这里还需要调用纳地支函数。下面是纳地支函数：https://vipzhp.lanzouv.com/ijcFq0gbbqkf这里的函数我还没写完整，目前是能够自动生成卦象然后纳地支，下一次我把完整的写好发出来。使用方法放在下一个帖子。