somaniya
somaniya
关注数: 7
粉丝数: 14
发帖数: 131
关注贴吧数: 13
求高手：换时间标度的时候总是出错 plot<-qplot(datap$times,datap$REER) plot+scale_x_date(breaks=date_breaks("1 year")) 错误: Invalid input: date_trans works with objects of class Date only
有哪一个载国外的童鞋能帮忙在dropbox下载一下Noizio 一直想用，可是被store给封了
【求助】有那位牛人知道5th上拉小提琴的misato maruyama？ RT
【求助】kokia的ありがとう伴奏有没有人弹过，是不是很难。 如题，谈一谈感受。
违反规定 http://zhidao.baidu.com/question/80893508.html
Fibonacci in scheme (define (fib x) (if (< x 2) x (+ (fib (-1+ x)) (fib (- x 2)))))(define (fib2 x) (define (fib-call i fibonacci-of-i-before fibonacci-of-i x-to-reach) (cond ((>= i x-to-reach) fibonacci-of-i) ((< i x-to-reach) (fib-call (1+ i) fibonacci-of-i (+ fibonacci-of-i-before fibonacci-of-i) x-to-reach)))) (cond ((< x 2) x) (#t (fib-call 1 0 1 x))))
画板的代码 ?- retractall(last_poit(_, _)), retractall(picture(_)), window( _, _, win_func(_), "Draw", 200, 100, 500, 400).win_func(init) :- menu( pop_up, _, _, menu_file(_), "&File"), menu( pop_up, _, _, menu_color(_), "&Color"), menu( pop_up, _, _, menu_pen(_), "&Pen"), menu( normal, _, _, menu_cut(_), "C&ut the line").win_func(mouse_click(X, Y)) :- last_poit(A, B), picture(Pic), add_point(Pic, [X, Y]), set(last_poit(X, Y)), set(picture(Pic)), line(A, B, X, Y).win_func(mouse_click(X, Y)) :- make_picture(Pic), set(last_poit(X, Y)), add_point(Pic, [X, Y]), set(picture(Pic)).win_func(paint) :- picture(Pic), paint2(Pic).make_picture(Pic) :- picture(Pic).make_picture([[-1, 1], [T, C]|_]) :- pen(T, C).paint2([[A, B]|Pic]) :- var(Pic), !, fail.paint2([[-1, 4]|Pic]) :- % end !, paint2(Pic).paint2([[-1, 0]|Pic]) :- % cut !, paint2(Pic).paint2([[-1, 1], [T, C]|Pic]) :- % pen !, pen(T, C), paint2(Pic).paint2([[A, B], [-1, D]|Pic]) :- !, paint2([[-1, D]|Pic]).paint2([[A, B], [C, D]|Pic]) :- !, line(A, B, C, D), paint2([[C, D]|Pic]). add_point(Pic, P) :- var(Pic), !, Pic=[P|_].add_point([Head|Pic], P) :- add_point(Pic, P).menu_file(init) :- menu( normal, _, _, menu_file_open(_), "&Open"), menu( normal, _, _, menu_file_save(_), "Save &As").menu_file_open(press) :- F is select_file(o, _, "Draw Files (*.dr)\0*.dr\0All Files (*.*)\0*.*\0"), H is open(F, "rb"), read_pic(H, Pic), close(H), set(picture(Pic)), update_window(_).read_pic(H, [[X, Y]|Pic]) :- X is get(H, l), Y is get(H, l), [X, Y]\=[-1, 4], % end of file !, read_pic(H, Pic).read_pic(H, Pic).menu_file_save(press) :- F is select_file(s, _, "Draw Files (*.dr)\0*.dr\0All Files (*.*)\0*.*\0"), H is open(F, "wb"), picture(Pic), save_pic(H, Pic), close(H).save_pic(H, []) :- put(-1, H, l), put(4, H, l).save_pic(H, [[X, Y]|Pic]) :- put(X, H, l), put(Y, H, l), save_pic(H, Pic).menu_color(init) :- menu( normal, _, _, menu_color_red(_), "&Red"), menu( normal, _, _, menu_color_black(_), "&Black"), menu( normal, _, _, menu_color_custom(_), "&Custom").menu_color_red(press) :- C is rgb(255, 0, 0), make_pen(_, C).menu_color_black(press) :- C is rgb(0, 0, 0), make_pen(_, C).menu_color_custom(press) :- C is select_color(_, 0xff), % 0xff is Red or rgb(0xff, 0, 0). 0xff=255 make_pen(_, C). % 0xff00 is Green or rgb(0, 0xff, 0), etc.menu_pen(init) :- menu( normal, _, _, menu_pen_theen(_), "&Thin"), menu( normal, _, _, menu_pen_thick(_), "Thic&k").menu_pen_theen(press) :- make_pen(1, _).menu_pen_thick(press) :- make_pen(6, _).make_pen(T, C) :- pen(T, C), picture(Pic), add_point(Pic, [-1, 1]), % pen flag add_point(Pic, [T, C]), set(picture(Pic)), !, retract(last_poit(_, _)).menu_cut(press) :- picture(Pic), add_point(Pic, [-1, 0]), % cut flag set(picture(Pic)), retract(last_poit(_, _)).
计算器的代码 window_brush(_, rgb(0,0,255)),edit( G_S1, 1, fail(_), "", 10, 10,200, 25),edit( G_S2, 1, fail(_), "", 10, 45,200, 25),button(_,_,b7_func(_),"7",10,80,35,35),button(_,_,b8_func(_),"8",50,80,35,35),button(_,_,b9_func(_),"9",90,80,35,35),button(_,_,b4_func(_),"4",10,120,35,35),button(_,_,b5_func(_),"5",50,120,35,35),button(_,_,b6_func(_),"6",90,120,35,35),button(_,_,b1_func(_),"1",10,160,35,35),button(_,_,b2_func(_),"2",50,160,35,35),button(_,_,b3_func(_),"3",90,160,35,35),button(_,_,b0_func(_),"0",10,200,35,35),button(_,_,point_func(_),".",50,200,35,35),button(_,_,back_func(_),"<-",90,200,35,35),button(_,_,plus_func(_),"+",140,160,35,75),button(_,_,ravno_func(_),"=",180,200,35,35),button(_,_,mult_func(_),"*",180,160,35,35),button(_,_,minus_func(_),"-",140,120,35,35),button(_,_,div_func(_),"/",180,120,35,35),button(_,_,onc_func(_),"on/c",140,80,75,35),button(_,_,lskoba_func(_),"(",220,200,35,35),button(_,_,dskoba_func(_),")",260,200,35,35),button(_,_,sin_func(_),"sin",220,80,35,35),button(_,_,cos_func(_),"cos",220,120,35,35),button(_,_,tg_func(_),"tg",220,160,35,35),button(_,_,arcsin_func(_),"arcs",260,80,35,35),button(_,_,arccos_func(_),"arcc",260,120,35,35),button(_,_,arctg_func(_),"arct",260,160,35,35),button(_,_,sqr_func(_),"sqr",300,80,35,35),button(_,_,exp_func(_),"exp",300,120,35,35),button(_,_,nlog_func(_),"nlog",300,160,35,35),button(_,_,dlog_func(_),"dlog",300,200,35,35),button(_,_,b_func(_),"b",260,45,35,30),button(_,_,x_func(_),"x",300,10,35,30),button(_,_,pow_func(_),"pow",300,45,35,30),button(_,_,a_func(_),"a",220,45,35,30),button(_,_,dx_func(_),"dx",220,10,75,30).% this clause is corrected by LEE, Chung-Woo% from Korean Republicmenu_extend(press) :- size(_,X, _), X > 360, !.menu_extend(press) :- repeat, size(_,X, Y), X1 is X + 1, size(_,X1, Y), X1>360.menu_normal(press) :- size(_,232,300). b0_func(press) :- add_text(G_S1, "0").b1_func(press) :- add_text(G_S1, "1").b2_func(press) :- add_text(G_S1, "2").b3_func(press) :- add_text(G_S1, "3").b4_func(press) :- add_text(G_S1, "4").b5_func(press) :- add_text(G_S1, "5").b6_func(press) :- add_text(G_S1, "6").b7_func(press) :- add_text(G_S1, "7").b8_func(press) :- add_text(G_S1, "8").b9_func(press) :- add_text(G_S1, "9").plus_func(press) :-add_text(G_S1, "+").minus_func(press) :-add_text(G_S1, "- ").mult_func(press) :-add_text(G_S1, "*").div_func(press) :-add_text(G_S1, "/").point_func(press) :-add_text(G_S1, ".").lskoba_func(press) :-add_text(G_S1, " (").dskoba_func(press) :-add_text(G_S1, ")").sin_func(press) :-add_text(G_S1, "sin(").arcsin_func(press) :-add_text(G_S1, "arcsin(").cos_func(press) :-add_text(G_S1, "cos(").arccos_func(press) :-add_text(G_S1, "arccos(").tg_func(press) :-add_text(G_S1, "tg(").arctg_func(press) :-add_text(G_S1, "arctg(").sqr_func(press) :-add_text(G_S1, "sqrt(").exp_func(press) :-add_text(G_S1, "exp(").nlog_func(press) :-add_text(G_S1, "log(").dlog_func(press) :-add_text(G_S1, "log10(").a_func(press) :-add_text(G_S1, "a").b_func(press) :-add_text(G_S1, "b").x_func(press) :-add_text(G_S1, "x").pow_func(press) :-add_text(G_S1, "**"). ravno_func(press):- T is scan(get_text(G_S1)), Result is T, set_text(print(Result),G_S2).onc_func(press) :- set_text("",G_S1), set_text("",G_S2).back_func(press) :- S is get_text(G_S1), L is str_length(S), sub_string(S2, S, 0, L- 1), set_text(S2,G_S1).dx_func(press) :- T is scan(get_text(G_S1)), d( T, x, Result), simplify(Result,Result2), set_text(printq(Result2),G_S2).% For dxatomic(X) :- not(X=..P).d(X,X,1) :- !.d(C,_,0) :- atomic(C).%d(~U,X,~A) :- d(U,X,A).d(U+V,X,A+B) :- d(U,X,A),d(V,X,B).d(U-V,X,A-B) :- d(U,X,A),d(V,X,B).d(C*U,X,C*A) :- atomic(C), C\=X,d(U,X,A),!.d(U*V,X,B*U+A*V) :- d(U,X,A), d(V,X,B).%d(U/V,X,A) :- d( V^V(~1), X, P).simplify(E,F) :-E = Op(L, R),simplify(L,X),simplify(R,Y),s(Op,X,Y,F).simplify(E,E).s('+',X,Y,Z) :- number(X),number(Y), Z is X+Y.s('+',X,0,X).s('+',0,X,X).s('+',X,X,R):-simplify(2*X,R).s('+',X*Z,Y*Z,R*Z) :-number(X),number(Y), R is X+Y.s('+',X,Y,Y+X) :- number(X).s('+',X+Y,Z,X+W) :-number(Y),number(Z),W is Y+Z.s('+',X+Y,Z,X+Z+Y) :- number(Y). s('+',X,Y,X+Y).s('*',X,Y,Z) :- number(X),number(Y), Z is X*Y.s('*',_,0,0).s('*',0,_,0).s('*',1,X,X).s('*',X,1,X).s('*',X,Y,Y*X) :- number(Y).s('*',X*Y,W,Z*Y) :-number(X),number(W),Z is X*W.s('*',X,Y*Z,R*Z) :- number(X),number(Y), R is X*Y. s('*',X,Y*Z,Y*X*Z) :- number(Y). s('*',X,Y,X*Y).
违反规定 http://zhidao.baidu.com/question/70032276.html?fr=cpush
该问题违反规定 该问题违反规定http://zhidao.baidu.com/question/68392823.html
大家看看这是什么花?
1
下一页
