|
书接上文#记用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这里还需要调用纳地支函数。下面是纳地支函数： 本帖含有隐藏内容，请您 回复 后查看 这里的函数我还没写完整，目前是能够自动生成卦象然后纳地支，下一次我把完整的写好发出来。使用方法放在下一个帖子。
|
|
|
![[真棒]](/public/face/f13.png)
![[呵呵]](/public/face/f01.png)
举报 0