云南农业大学吧 关注：131,725贴子：3,547,219
《农业试验统计模型和Basic程序》张全德主编，浙江科技出版社出版，1985年。1986年本人在IBM台式电脑上，通过一行一行的进行Basic编程完成了该书的全部程序。并且得到云南农业大学诸宝楚教授聘请，利用书上面的聚类分析、通径分析等程序，对云南农业大学，作物遗传育种专业的第一至第三届研究生进行教行工作。现在我编Basic《农业试验统计模型》仍然可以使用，分别可以在苹果手机、Mac笔记本电脑的Basic上使用部分程序；在win7、64位台式电脑、笔记本上的Quick Basic程序上可以完成全部程序。并且实现了云码输入法Basic编程技术研究。
我是：2020年9月在手机上学会python编程的，但我1983年就已经会basic编程。我的输入法python编程方法可以提供大家学习和进一步创新。 print('python两位数任意加法')print(' 吴敬祖')print('云南农业大学人文学院人文学院\n')#python两位数加法计算器;print('请在a后面面输入：任意整数，然后按回车键')a=int(input("a="))print('请在b后面面输入：任意整数，然后按回车键')b=int(input("b="))c=a+bprint("a+b=",int(c)),int(c)实践结果表明：python编程可以再简单、更加便捷，并且使用输入法与python编程结合，在苹果、安卓手机、iPad、笔记本电脑win10上，分别安装python编程软件；只需要输入：jf，就能够轻而易举地完成python编程的全部过程。我以为：目前，全世界都在盲目追求cpu芯片设计，不断提升速度；不断投入巨资；不断提高手机的价格。其实，通过科学研究表明，我利用李铮友滇型杂交粳稻的原理，可以应用到计算机编程技术领域；完善其基础理论；发展硬件的潜力、降低编程门槛。利用1+1这个世界上所有人都知道的知识，去作为编程入门的钥匙。现在云码输入法python编程，可以实现教留学生学习汉字。例如： print('''input输入：h，display显示：一yī/one，also called：a horizontal，input method: h. 一yī/one，也称:一横héng，输入方法:h。 ''') print('''input输入：hh，display显示：二èr/two，it is horizontal stroke of two.它是二个水平笔划。''') print('''input输入：hhh，display显示：三sān/three。三sān/three/it consists of three horizontal. 它由三横组成。''') print('''input输入：dhg，display显示：高gāo/high。''') print('''input输入：gv，display显示：敲 qiāo/knock；beat；strike.。''') 我希望全世界的有识之士，朋友、大学生、中学生、小学生。大家一起通过众筹，每个人出资1到10元，请有远见的代工厂商，制造一个物美价廉、类似一个计算器一样的产品。实现输入法与编程语言结合的产品。让每一个人都轻而易举地学会编程技术。让更多的外国朋友学会汉字。 我曾经去美国旅游了两次，深刻体会到了美国的许许多多的公司、宾馆、饭店…都需要会汉语的工作人员。 世界各地也需要会汉语的人，这样可以让他们的公司获得更多的收益。 所以学会云码输入法python编程研究技术，可以让更多的人获得就业机会。 特别感谢Guido van Rossum 先生为python编程技术所作的贡献！ 有机会，我希望用我的云码python编程语言，教一教：Guido van Ro吉多·范罗苏姆先生学习汉字。例如：
print('''input输入：h，display显示：一yī/one，also called：a horizontal，input method: h. 一yī/one，也称:一横héng，输入方法:h。 ''')
print('''input输入：hh，display显示：二èr/two，it is horizontal stroke of two.它是二个水平笔划。''')
print('''input输入：dhg，display显示：高gāo/high。''')
print('''input输入：gv，display显示：敲 qiāo/knock；beat；strike.。''')
print('''input输入：gm，\ndisplay显示：Good morning！早上好\n吴敬祖wujingzu\n2021-1-24''')
我是：2020年9月在手机上学会python编程的，但我1983年就已经会basic编程。我的输入法python编程方法可以提供大家学习和进一步创新。 print('python两位数任意加法')print(' 吴敬祖')print('云南农业大学人文学院人文学院\n')#python两位数加法计算器;print('请在a后面面输入：任意整数，然后按回车键')a=int(input("a="))print('请在b后面面输入：任意整数，然后按回车键')b=int(input("b="))c=a+bprint("a+b=",int(c)),int(c)实践结果表明：python编程可以再简单、更加便捷，并且使用输入法与python编程结合，在苹果、安卓手机、iPad、笔记本电脑win10上，分别安装python编程软件；只需要输入：jf，就能够轻而易举地完成python编程的全部过程。我以为：目前，全世界都在盲目追求cpu芯片设计，不断提升速度；不断投入巨资；不断提高手机的价格。其实，通过科学研究表明，我利用李铮友滇型杂交粳稻的原理，可以应用到计算机编程技术领域；完善其基础理论；发展硬件的潜力、降低编程门槛。利用1+1这个世界上所有人都知道的知识，去作为编程入门的钥匙。现在云码输入法python编程，可以实现教留学生学习汉字。例如： print('''input输入：h，display显示：一yī/one，also called：a horizontal，input method: h. 一yī/one，也称:一横héng，输入方法:h。 ''') print('''input输入：hh，display显示：二èr/two，it is horizontal stroke of two.它是二个水平笔划。''') print('''input输入：hhh，display显示：三sān/three。三sān/three/it consists of three horizontal. 它由三横组成。''') print('''input输入：dhg，display显示：高gāo/high。''') print('''input输入：gv，display显示：敲 qiāo/knock；beat；strike.。''') 我希望全世界的有识之士，朋友、大学生、中学生、小学生。大家一起通过众筹，每个人出资1到10元，请有远见的代工厂商，制造一个物美价廉、类似一个计算器一样的产品。实现输入法与编程语言结合的产品。让每一个人都轻而易举地学会编程技术。让更多的外国朋友学会汉字。 我曾经去美国旅游了两次，深刻体会到了美国的许许多多的公司、宾馆、饭店…都需要会汉语的工作人员。 世界各地也需要会汉语的人，这样可以让他们的公司获得更多的收益。 所以学会云码输入法python编程研究技术，可以让更多的人获得就业机会。 特别感谢Guido van Rossum 先生为python编程技术所作的贡献！ 有机会，我希望用我的云码python编程语言，教一教：Guido van Ro吉多·范罗苏姆先生学习汉字。例如：
print('''input输入：h，display显示：一yī/one，also called：a horizontal，input method: h. 一yī/one，也称:一横héng，输入方法:h。 ''')
print('''input输入：hh，display显示：二èr/two，it is horizontal stroke of two.它是二个水平笔划。''')
print('''input输入：dhg，display显示：高gāo/high。''')
print('''input输入：gv，display显示：敲 qiāo/knock；beat；strike.。''')
print('''input输入：gm，\ndisplay显示：Good morning！早上好\n吴敬祖wujingzu\n2021-1-24''')
10 rem 农业试验统计模型Basic程序【程序27】聚类分析basic程序输入第二个数据的结果
12 REM BASIC PROGRAM OF CLUSTER 网页链接 P.517 网页链接 14 PRINT "PLEASE INPUT 1 N=5, 2 N=5"
20 N=5
22 PRINT "PLEASE INPUT 1 R=-.5, 2 R=0"
24 rem R=-.5
26 R=0
50 DIM D(N, N), N(N), M(N)
60 FOR I = 1 TO N: D(I, I) = 0: N(I) = 1: M(I) = I: NEXT I
70 FOR I = 2 TO N
80 FOR J = 1 TO I - 1
90 READ D(I, J): D(J, I) = D(I, J)
100 NEXT J: NEXT I
102 PRINT
110 PRINT TAB(3); "CLUSTER ANALYSIS TABLE"
112 PRINT
120 A$ = "---------------------------"
130 PRINT A$
140 FOR L = 0 TO N - 2
150 S = D(2, 1): Q = 2: P = 1
160 FOR I = 2 TO N - L
170 FOR J = 1 TO I - 1
180 IF S <= D(I, J) THEN 200
190 S = D(I, J): P = J: Q = I
200 NEXT J: NEXT I
210 PRINT L + 1; " ("; M(P); ","; M(Q); ") ";
220 PRINT " "; S
221 rem PRINT USING "####.##"; S
222 rem PRINT USING "######.####"; S
230 IF R = -.5 THEN 250
240 P1 = N(P) / (N(P) + N(Q)): Q1 = N(Q) / (N(P) + N(Q)): GOTO 260
250 P1 = .5: Q1 = .5
260 FOR K = 1 TO N - L
270 IF K = Q THEN 300
280 D(K, P) = P1 * D(K, P) + Q1 * D(K, Q) + R * ABS(D(K, P) - D(K, Q))
290 D(P, K) = D(K, P)
300 NEXT K
310 N(P) = N(P) + N(Q)
320 IF Q = N - L THEN 430
330 FOR K = Q TO N - 1 - L
340 FOR J = 1 TO Q - 1
350 D(K, J) = D(K + 1, J): D(J, K) = D(K, J)
360 NEXT J
370 M(K) = M(K + 1): N(K) = N(K + 1)
380 NEXT K
390 FOR I = Q TO N - 1 - L
400 FOR J = Q TO N - 1 - L
410 D(I, J) = D(I + 1, J + 1)
420 NEXT J: NEXT I
430 NEXT L
440 PRINT A$
450 PRINT : PRINT
460 DATA .089, 1.2866, .8132, 3.0722, 3.176, 4.3668, 1.3738, 1.1904, 2.6596, 1.576
470 END
12 REM BASIC PROGRAM OF CLUSTER 网页链接 P.517 网页链接 14 PRINT "PLEASE INPUT 1 N=5, 2 N=5"
20 N=5
22 PRINT "PLEASE INPUT 1 R=-.5, 2 R=0"
24 rem R=-.5
26 R=0
50 DIM D(N, N), N(N), M(N)
60 FOR I = 1 TO N: D(I, I) = 0: N(I) = 1: M(I) = I: NEXT I
70 FOR I = 2 TO N
80 FOR J = 1 TO I - 1
90 READ D(I, J): D(J, I) = D(I, J)
100 NEXT J: NEXT I
102 PRINT
110 PRINT TAB(3); "CLUSTER ANALYSIS TABLE"
112 PRINT
120 A$ = "---------------------------"
130 PRINT A$
140 FOR L = 0 TO N - 2
150 S = D(2, 1): Q = 2: P = 1
160 FOR I = 2 TO N - L
170 FOR J = 1 TO I - 1
180 IF S <= D(I, J) THEN 200
190 S = D(I, J): P = J: Q = I
200 NEXT J: NEXT I
210 PRINT L + 1; " ("; M(P); ","; M(Q); ") ";
220 PRINT " "; S
221 rem PRINT USING "####.##"; S
222 rem PRINT USING "######.####"; S
230 IF R = -.5 THEN 250
240 P1 = N(P) / (N(P) + N(Q)): Q1 = N(Q) / (N(P) + N(Q)): GOTO 260
250 P1 = .5: Q1 = .5
260 FOR K = 1 TO N - L
270 IF K = Q THEN 300
280 D(K, P) = P1 * D(K, P) + Q1 * D(K, Q) + R * ABS(D(K, P) - D(K, Q))
290 D(P, K) = D(K, P)
300 NEXT K
310 N(P) = N(P) + N(Q)
320 IF Q = N - L THEN 430
330 FOR K = Q TO N - 1 - L
340 FOR J = 1 TO Q - 1
350 D(K, J) = D(K + 1, J): D(J, K) = D(K, J)
360 NEXT J
370 M(K) = M(K + 1): N(K) = N(K + 1)
380 NEXT K
390 FOR I = Q TO N - 1 - L
400 FOR J = Q TO N - 1 - L
410 D(I, J) = D(I + 1, J + 1)
420 NEXT J: NEXT I
430 NEXT L
440 PRINT A$
450 PRINT : PRINT
460 DATA .089, 1.2866, .8132, 3.0722, 3.176, 4.3668, 1.3738, 1.1904, 2.6596, 1.576
470 END
加油
与苹果公司有关部门的技术人员，进行的聊天！
print "input输入：gm，显示：Good morning！早上好！"
print('\n输入：h，显示：一yī/one。\n')
print('\n输入：hh，显示：二 èr/two。\n')
print('输入：hhh，显示：三sān/three。')
print('input输入：dh，display显示：高gāo/high。')
print('input输入：gv，display显示：敲 qiāo/knock；beat；strike.。')
input输入：y，display显示：a=1;b=1;print('a=1,b=1\na+b=',a+b)
print "input输入：gm，显示：Good morning！早上好！"
print('\n输入：h，显示：一yī/one。\n')
print('\n输入：hh，显示：二 èr/two。\n')
print('输入：hhh，显示：三sān/three。')
print('input输入：dh，display显示：高gāo/high。')
print('input输入：gv，display显示：敲 qiāo/knock；beat；strike.。')
input输入：y，display显示：a=1;b=1;print('a=1,b=1\na+b=',a+b)
