add AI DB RA projects

Author: whzecomjm

AI-Projects/AI1-专业选择系统/choose.pl

@@ -0,0 +1,360 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%% 专业的职业倾向 %%%%%%%%%%%%%%%%%%%%%%%%
+occ(i,philosophy).
+occ(i,economics).
+occ(i,history).
+occ(i,mathematics).
+occ(i,applied_math).
+occ(i,physics).
+occ(i,chemistry).
+occ(i,biology).
+occ(i,statistics).
+occ(a,philosophy).
+occ(a,economics).
+occ(a,education).
+occ(a,language_and_literature).
+occ(a,mathematics).
+occ(a,physics).
+occ(a,mechanics).
+occ(a,electronic).
+occ(a,energy).
+occ(s,sociology).
+occ(s,education).
+occ(s,journalism).
+occ(s,medicine).
+occ(e,political_science).
+occ(e,law).
+occ(r,medicine).
+occ(r,geology).
+occ(r,geographic_science).
+occ(r,mechanics).
+occ(r,electronic).
+occ(r,materials).
+occ(r,bio-engineering).
+occ(c,management).
+occ(c,applied_math).
+occ(c,biology).
+occ(c,astronomy).
+occ(c,geology).
+occ(c,geographic_science).
+occ(c,atmospheriic_science).
+occ(c,marine_science).
+occ(c,materials).
+occ(c,environment).
+occ(c,statistics).
+occ(c,energy).
+occ(c,bio-engineering).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%% 专业的思维方式 %%%%%%%%%%%%%%%%%%%%%%%
+think(abstract,philosophy).
+think(abstract,economics).
+think(abstract,sociology).
+think(abstract,history).
+think(abstract,mathematics).
+think(abstract,applied_math).
+think(abstract,physics).
+think(abstract,chemistry).
+think(abstract,biology).
+think(abstract,astronomy).
+think(abstract,geology).
+think(abstract,geograpgic_science).
+think(abstract,atmospheriic_science).
+think(abstract,marine_science).
+think(abstract,electronic).
+think(abstract,mechanics).
+think(abstract,materials).
+think(abstract,environment).
+think(abstract,psychology).
+think(abstract,statistics).
+think(abstract,energy).
+think(image,political_science).
+think(image,law).
+think(image,education).
+think(image,journalism).
+think(image,language_and_literature).
+think(action,management).
+think(action,medicine).
+think(action,chemistry).
+think(action,biology).
+think(action,geology).
+think(action,mechanics).
+think(action,materials).
+think(action,statistics).
+think(action,energy).
+think(action,bio-engineering).
+
+%%%%%%%%%%%%%%%%%%%%%%%%% 专业的就业预期 %%%%%%%%%%%%%%%%%%%%%%
+expect(1,medicine).
+expect(1,political_science).
+expect(1,management).
+expect(1,applied_math).
+expect(2,political_science).
+expect(2,astronomy).
+expect(2,psychology).
+expect(3,management).
+expect(3,philosophy).
+expect(3,journalism).
+expect(3,political_science).
+expect(4,language_and_literature).
+expect(4,history).
+expect(4,medicine).
+expect(4,management).
+expect(4,mathematics).
+expect(4,applied_math).
+expect(5,education).
+expect(6,philosophy).
+expect(6,economics).
+expect(6,sociology).
+expect(6,political_science).
+expect(6,law).
+expect(6,education).
+expect(6,history).
+expect(6,mathematics).
+expect(6,physics).
+expect(6,chemistry).
+expect(6,biology).
+expect(6,geographic_science).
+expect(6,atmospheriic_science).
+expect(6,marine_science).
+expect(7,philosophy).
+expect(7,sociology).
+expect(7,language_and_literature).
+expect(7,mathematics).
+expect(7,geology).
+expect(7,environment).
+expect(7,bio-engineering).
+expect(8,law).
+expect(8,language_and_literature).
+expect(8,history).
+expect(8,medicine).
+expect(8,mathematics).
+expect(8,applied_math).
+expect(8,physics).
+expect(8,chemistry).
+expect(8,biology).
+expect(8,astronomy).
+expect(8,geographic_science).
+expect(8,atmospheriic_science).
+expect(8,mechanics).
+expect(8,electronic).
+expect(8,materials).
+expect(8,statistics).
+expect(8,psychology).
+expect(8,energy).
+expect(8,bio-engineering).
+expect(9,economics).
+expect(9,education).
+expect(9,journalism).
+expect(9,medicine).
+expect(9,geology).
+expect(9,atmospheriic_science).
+expect(9,marine_science).
+expect(9,materials).
+expect(9,environment).
+expect(9,energy).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%% Test1 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%test1 questions
+t2q(1):-write('Q1.Using wood to make somethings.\n').
+t2q(2):-write('Q2.Repair the maichine.\n').
+t2q(3):-write('Q3.Drive a car or motorcycle.\n').
+t2q(4):-write('Q4.Participate in the drama.\n').
+t2q(5):-write('Q5.Reading a novel or screenplay.\n').
+t2q(6):-write('Q6.Practice a musical instrument or participate in the band\n').
+t2q(7):-write('Q7.Read the scientific and technical books and magazines\n').
+t2q(8):-write('Q8.Study the special problems of your own choosing.\n').
+t2q(9):-write('Q9.Solve formulas or mathematical games.\n').
+t2q(10):-write('Q10.To participate in a particular social group or club events.\n').
+t2q(11):-write('Q11.Attended the party.\n').
+t2q(12):-write('Q12.Participate in the forum or debate.\n').
+t2q(13):-write('Q13.Talk about politics.\n').
+t2q(14):-write('Q14.Positions in social groups.\n').
+t2q(15):-write('Q15.Tell others your own ideas.\n').
+t2q(16):-write('Q16.Sort out the desktop and room.\n').
+t2q(17):-write('Q17.Verification of personal income and expenditure.\n').
+t2q(18):-write('Q18.Copying files and letters.\n').
+
+%挑出score>=2
+score1(M1,M2,M3,Z):- 
+    Z is M1+M2+M3.
+score1b2(Z1,Z2,Z3,Z4,Z5,Z6):-
+    Z1>=2,write('R:'),nl,occ(r,X),write(X),nl,fail.
+score1b2(Z1,Z2,Z3,Z4,Z5,Z6):-
+    Z2>=2,write('A:'),nl,occ(a,X),write(X),nl,fail.
+score1b2(Z1,Z2,Z3,Z4,Z5,Z6):-
+    Z3>=2,write('I:'),nl,occ(i,X),write(X),nl,fail.    
+score1b2(Z1,Z2,Z3,Z4,Z5,Z6):-
+    Z4>=2,write('S:'),nl,occ(s,X),write(X),nl,fail.
+score1b2(Z1,Z2,Z3,Z4,Z5,Z6):-
+    Z5>=2,write('E:'),nl,occ(e,X),write(X),nl,fail.
+score1b2(Z1,Z2,Z3,Z4,Z5,Z6):-
+    Z6>=2,write('C:'),nl,occ(c,X),write(X),nl,fail.
+score1b2(Z1,Z2,Z3,Z4,Z5,Z6):-
+    write('\n').
+
+%test1得分
+t2(N,Score):- 
+    t2q(N),
+    write('Please write you answer:'),
+    read(Ans),
+    Ans = y,
+    Score is 1;
+    Ans = n,
+    Score is 0.
+%%%%%%%%%%%%%%%%%%%%%%%test1 main %%%%%%%%%%%%%%%%%%%%%%%%%%
+test1:-
+    write('\n Here are some activities, choose your interests by yes or no.\n'),
+    t2(1,X1),t2(2,X2),t2(3,X3),t2(4,X4),t2(5,X5),t2(6,X6),t2(7,X7),t2(8,X8),t2(9,X9),t2(10,X10),t2(11,X11),t2(12,X12),t2(13,X13),t2(14,X14),t2(15,X15),t2(16,X16),t2(17,X17),t2(18,X18),nl,
+    score1(X1,X2,X3,Z1),
+    score1(X4,X5,X6,Z2),
+    score1(X7,X8,X9,Z3),
+    score1(X10,X11,X12,Z4),
+    score1(X13,X14,X15,Z5),
+    score1(X16,X17,X18,Z6),
+    nl,
+    write('Your interest activities test Type scores are:\n'),
+    write('Type R(Reality) Score = '),write(Z1),nl,
+    write('Type A(Art) Score = '),write(Z2),nl,
+    write('Type I(Investigate) Score = '),write(Z3),nl,
+    write('Type S(Society) Score ='),write(Z4),nl,
+    write('Type E(Enterprise) Score = '),write(Z5),nl,
+    write('Type C(Common) Score ='),write(Z6),nl,
+    write('We have some information for Types:\n Higher Type R score implies your like machinery, tools, plant or animal, prefer outdoor activities.\n Higher Type A score implies you like art,intuition,have the ability to create, like sports, imagination and creativity, like to work in an environment of freedom.\n Higher Type I score implies you like to study, research, analyze, evaluate and solve problems.\n Higher Type S score implies you are a good people get along, like to teach, help, inspiration or training others.\n Higher Type E score implies you like interact with the crowd, confident, persuasive, leadership, the pursuit of political or economic achievements.\n Higher Type C score implies you like to engage in work, writing or mathematical analysis of the ability to be able to listen to instructions to complete the trifling work.\n'),nl,
+    write('By Test 1, you have following choises:\n'),
+    score1b2(Z1,Z2,Z3,Z4,Z5,Z6).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%% Test2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%职业智商测试问题
+cqQ(1):- write('Q1.I can often find the trouble of broken bike.\n').
+cqQ(2):- write('Q2.Before I go somewhere in the city, I can come up with a variety of possible road.\n').
+cqQ(3):- write('Q3.My article is usually well written.\n').
+cqQ(4):- write('Q4.Small electrical appliances at home is broken, I can repair them by myself.\n').
+cqQ(5):- write('Q5.I can use painting,dance to express my thoughts and emotions.\n'). 
+cqQ(6):- write('Q6.I can always use different words to express the same thing.\n').
+cqQ(7):- write('Q7.I can quickly learn how to transform complex body movements.\n').
+cqQ(8):- write('Q8.I was able to draw some complex mechanical graphics.\n').
+cqQ(9):- write('Q9.I can summarize a variety of phenomena I see, and find the commonalities.\n').
+cqQ(10):- write('Q10.I learnt to drive quickly.\n').
+cqQ(11):- write('Q11.I always thinking about the problem with the image of the brain.\n').
+cqQ(12):- write('Q12.I can understand the theory accurately which others think boring.\n').
+cqQ(13):- write('Q13.Others had praise my clever hands\n').
+cqQ(14):- write('Q14.I usually like to think with concepts and symbols.\n').
+cqQ(15):- write('Q15.I am sensitive to music.\n').
+
+%CQ问题得分
+cq(N,Score):- 
+    cqQ(N),
+    write('Please write you answer:'),
+    read(Ans),
+    Ans = y,
+    Score is 1;
+    Ans = n,
+    Score is 0.
+
+
+%挑出score2>=3
+score2(M1,M2,M3,M4,M5,Z):- 
+    Z is M1+M2+M3+M4+M5.
+score2b3(P1,P2,P3):-
+    P1>=3,write('Type1:'),nl,think(action,X),write(X),nl,fail.
+score2b3(P1,P2,P3):-
+    P2>=3,write('Type2:'),nl,think(image,X),write(X),nl,fail.
+score2b3(P1,P2,P3):-
+    P3>=3,write('Type3:'),nl,think(abstract,X),write(X),nl,fail.
+score2b3(P1,P2,P3):-
+    write('\n').
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%test2 main %%%%%%%%%%%%%%
+test2:-
+    write('\n Welcome to CQ analysis test, here are some interesting questions, please answer them by yes(y) or no(n).\n\n'),
+    cq(1,X1),cq(2,X2),cq(3,X3),cq(4,X4),cq(5,X5),cq(6,X6),cq(7,X7),cq(8,X8),cq(9,X9),cq(10,X10),cq(11,X11),cq(12,X12),cq(13,X13),cq(14,X14),cq(15,X15),nl,
+    score2(X1,X4,X7,X10,X13,P1),
+    score2(X2,X5,X8,X11,X15,P2),
+    score2(X3,X6,X9,X12,X14,P3),
+    write('Your CQ test Type scores are:\n'),
+    write('Type 1 Score = '),write(P1),nl,
+    write('Type 2 Score = '),write(P2),nl,
+    write('Type 3 Score = '),write(P3),nl,
+    write('We have some information for Types:\n Higher Type 1 score implies your action thinking is better.\n Higher Type 2 score implies your image thinking is better.\n Higher Type 3 score implies your abstract thinking is better.\n'),nl,
+    write('By Test 2, you have following choises:\n'),
+    score2b3(P1,P2,P3).
+
+%%%%%%%%%%%%%%%%%%%%%%%%%% Test3 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%职业价值
+t4f(1):-write('F1.high wages and good benefits.\n').
+t4f(2):-write('F2.the working environment (substance) is comfortable.\n').
+t4f(3):-write('F3.good personal relations.\n').
+t4f(4):-write('F4.stable and secure.\n').
+t4f(5):-write('F5.can provide better educational opportunities.\n').
+t4f(6):-write('F6.there is a higher social status.\n').
+t4f(7):-write('F7.less tense, less external pressure.\n').
+t4f(8):-write('F8.can give full play to the strengths of their abilities.\n').
+t4f(9):-write('F9.the needs of the community and social contribution.\n').
+
+expect3(T41,Y):-
+   expect(T41,Y),write(Y),nl,fail.
+expect3(T41,Y):-
+   write('\n').
+
+
+%%%%%%%%%%%%%%%%%%% test3 main %%%%%%%%%%%%%%%%%%%%
+test3:-
+    write('\n Welcome to Value for Occupation test, here are some factors, please choose two of them which you think most important and useless by number 1-9.\n\n'),
+    t4f(1),t4f(2),t4f(3),t4f(4),t4f(5),t4f(6),t4f(7),t4f(8),t4f(9),nl,
+    write('most important one:'),
+    read(T41),
+    write('By Test 3, you have following choises:\n'),nl,
+    expect3(T41,E1),
+    nl.
+
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%% Main %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%% main_main %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+choose:-
+   write('Welcome to Specialized Subject Choosing System!\n'),
+   write('We will give you a proper choise through some tests.\n'),nl,
+   write('There are 3 important tests, you would better to anwser then all in order to get a better advice.\n'),nl,
+   write('Here are 3 tests:\n'), 
+   write('1.Interesting Activity\n'), 
+   write('2.Indivisual Ability: Thinking Way\n'),
+   write('3.Value for Occupation\n'),  
+   nl,
+%%Test 1
+write('test 1.Interesting Activity\n'),
+         test1,
+%%Test 2
+write('test 2.Indivisual Ability: Thinking Way\n'),
+         test2,
+%%Test 3
+write('test 3.Value for Occupation\n'),
+         test3,
+         nl,
+   write('\n You have done all the tests you choose, Here is the final advices for you to choose a proper specialized subject.\n').
+
+   
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

AI-Projects/AI1-专业选择系统/设计.pdf

@@ -0,0 +1,12 @@
+1	10.27	3300
+2	10.2	1700
+3	10.29	3300
+4	10.28	600
+5	10.44	1200
+6	10.44	500
+7	10.44	600
+8	10.45	2500
+9	10.44	3000
+10	10.44	800
+11	10.33	2000
+12	10.32	300

AI-Projects/AI1-专业选择系统/验证.pdf

@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<classpath>
+	<classpathentry kind="src" path="src"/>
+	<classpathentry kind="con" path="org.eclipse.jdt.launching.JRE_CONTAINER/org.eclipse.jdt.internal.debug.ui.launcher.StandardVMType/JavaSE-1.6"/>
+	<classpathentry kind="lib" path="D:/Program Files/JAVA tools/eclipse_cn/plugins/gov.sandia.jess_7.1.0/jess.jar"/>
+	<classpathentry kind="lib" path="D:/Program Files/JAVA tools/eclipse_cn/plugins/gov.sandia.jess_7.1.0/jsr94.jar"/>
+	<classpathentry kind="lib" path="D:/Program Files/JAVA tools/eclipse_cn/plugins/gov.sandia.jess_7.1.0/jessplugin.jar"/>
+	<classpathentry kind="lib" path="D:/Program Files/JAVA tools/eclipse_cn/plugins/gov.sandia.jess.debug_7.1.0/jessdebug.jar"/>
+	<classpathentry kind="lib" path="D:/Program Files/JAVA tools/eclipse_cn/plugins/gov.sandia.jess.editor_7.1.0/jesside.jar"/>
+	<classpathentry kind="lib" path="D:/Program Files/JAVA tools/eclipse_cn/plugins/gov.sandia.jess.reteview_7.1.0/reteview.jar"/>
+	<classpathentry kind="output" path="bin"/>
+</classpath>