记用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这里的函数我还没写完整,目前是能够自动生成卦象然后纳地支,下一次我把完整的写好发出来。使用方法放在下一个帖子。记用iapp开发六爻预测程序思路与过程(四)【实例分享】

© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发

请登录后发表评论

    暂无评论内容