[TI-BASIC]BetterCross - 更好的遗传计算
本帖最后由 zyf722 于 2020-11-22 10:42 编辑BetterCross - 更好的遗传计算
一键遗传计算，所见即所得
Features 特色
基础函数，简明易懂
进阶函数，随心所欲
便于输入，方便快捷
伴性遗传，尽在掌握
Instructions 说明
1) 本文档所含函数如下表所示：
btcross(father,mother)基础杂交函数。
参数为以字符串表示的父本与母本基因型。仅支持长度为2的等位基因（如Aa），长度超过2的基因（如X(A)X(a)）请使用进阶杂交函数。
本函数不支持自定义表现型名称，仅将以显/隐表示显性性状/隐性性状。
btcross_advance
(father,mother,pheno_type,pheno_gene)进阶杂交函数。
参数为以字符串表示的父本与母本基因型，及自定义表现型名称及匹配基因型 Pattern。
使用本函数输入基因型时，相较于基础杂交函数需要用逗号隔开各基因（如"Aa,Bb"）。基因长度无限制，但等位基因长度需相等。
P.S. 有关基础杂交函数与进阶杂交函数的其他区别可参考例程。
2) 例程：
btcross("AaBb","AaBb") - 两对等位基因进行基础杂交。
btcross_advance("Aa,Bb","Aa,Bb",[["A_","aa"]["B_","bb"]],[["大","小"]["红","白"]]) - 两对等位基因进行高阶杂交。杂交包括两对完全显性的相对性状（大/小，红/白），分别由A/a和B/b控制。
btcross_advance("Aa,Bb","Aa,Bb",[["AA","Aa","aa"]["B_","bb","−"]],[["红","粉","白"]["大","小","−"]]) - 两对等位基因进行高阶杂交。杂交包括一对不完全显性、一对完全显性的相对性状（红/粉/白，大/小），分别由A/a和B/b控制。
btcross_advance("Aa,Bb","Aa,Bb",["A_B_","aaB_","A_bb","aabb"],["红","白","白","白"]) - 两对等位基因进行高阶杂交。杂交包括一对相对性状（红/白），由A/a和B/b两对等位基因控制。
btcross_advance("Aa,X(B)Y(O)","Aa,X(B)X(b)",[["AA","Aa","aa"]["X(B)____","X(b)____","−"]],[["红","粉","白"]["大","小","−"]]) - 两对等位基因进行高阶杂交。XY型伴性遗传。杂交包括一对不完全显性、一对完全显性的相对性状（红/粉/白，大/小），分别由A/a和B/b控制。
btcross_advance("Aa,Z(B)Z(b)","Aa,Z(B)W(O)",[["AA","Aa","aa"]["Z(B)____","Z(b)____","−"]],[["大","中","小"]["芦花","非芦花","−"]]) - 两对等位基因进行高阶杂交。ZW型伴性遗传。杂交包括两对不完全显性、一对完全显性的相对性状（大/中/小，芦花/非芦花），分别由A/a和B/b控制。
3) 本文档依赖 BetterList 库。使用前应先安装该库。
4) 将本文档放于 MyLib 文件夹下，刷新库即可使用。
Download 下载
优秀 还有这样的程序，牛
页:
[1]