minhhieuh2003

135 Reputation

5 Badges

9 years, 39 days

MaplePrimes Activity


These are replies submitted by minhhieuh2003

@Carl Love

display(line([.8, 0], [1, .2], color = red), line([.6, 0], [1, .4], color = red), line([.4, 0], [1, .6], color = red), line([.2, 0], [1, .8], color = red), line([0, 0], [1, 1], color = red), line([0, .2], [.8, 1], color = red), line([0, .4], [.6, 1], color = red), line([0, .6], [.4, 1], color = red), line([0, .8], [.2, 1], color = red), rectangle([0, 1], [1, 0], color = red, transparency = .5, thickness = 1), axes = none)

@tomleslie  Thank you very much

i'm very glad because you anwser. 

@acer Can you help me, please?

 

@tomleslie that's good idea.

@Kitonum I use maple 2017 but result return 2 roots 1 and 8.95..

 

@acer Thank you very much.

@acer Thank you very much. Have a good time!

@acer Thank you very much

@tomleslie Thank you very much

@acer 

I run code dsds1d_s(3);printdata(3,widthmode=percentage, width=100)  create a table (1)

and dsds1d_s(5);printdata(5,widthmode=percentage, width=100)  create a table (2)

I want to combine table (1) and table (2) into a table

What should I do? 

please help me


 

restart;

multiple := module() option package;
  export dsds1d_s,printdata;
  local TSprintf;

  TSprintf := proc()
    uses Typesetting;
      mrow(seq(`if`(e::string, mn(e), Typeset(EV(e))), e = [args]));
    #sprintf("%a",[args]);
  end proc:

  dsds1d_s := proc( rtc,
                    {width::positive:=500},
                    {widthmode::identical(pixels,percentage):=':-pixels'} )
    global R;
    local r, topic, tudo, num, dsd, dsss1, dsss2, dsss3, xml;
    uses Typesetting, DocumentTools, DocumentTools:-Layout;
    tudo := [1, -233243, sqrt(23+x), ('int')(2*x^2+35*x+4, x)];
    num := rand(1 .. nops(tudo())); dsd := tudo[num()];
    dsss1 := tudo[num()]; dsss2 := tudo[num()]; dsss3 := tudo[num()];
    for r to rtc do
      topic[r] := TSprintf(ex, " ", r, ". SomeLongSentence ", r);
      R[r] := Row(Cell(Textfield(Equation(topic[r]),
                                 ':-alignment'=':-left'),
                       ':-columnspan'=4)),
              Row(Cell(Textfield(Equation(mrow(mtext("A","mathcolor"="#ff0000"),
                                               mtext(". "),TSprintf(dsd))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("B"), mtext(". "), TSprintf(dsss1))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("C"), mtext(". "), TSprintf(dsss2))),
                                 ':-alignment'=':-left')),
                  Cell(Textfield(Equation(mrow(mtext("D"), mtext(". "), TSprintf(dsss3))),
                                 ':-alignment'=':-left'))
                  );
    end do;return NULL;
  end proc:
printdata:=proc(rtc,
                    {width::positive:=500},
                    {widthmode::identical(pixels,percentage):=':-pixels'}) local xml;global R;
uses Typesetting, DocumentTools, DocumentTools:-Layout;
xml := Worksheet(Table(':-exterior'=':-none', ':-interior'=':-none',
                           ':-hiddenborderdisplay'=':-never', ':-alignment'=':-center',
                           ':-width'=width, ':-widthmode'=widthmode,
                           Column()$4,
                           seq(op([R[r]]),
                               r=1..rtc)
                          ));
    InsertContent(xml);
    return NULL;
end proc:
end module:

 

with(multiple):

dsds1d_s(3);

printdata(3,widthmode=percentage, width=100)

dsds1d_s(5); 1; printdata(5, widthmode = percentage, width = 100)

"I want to combine dsds1d_s(3);printdata(3,widthmode=percentage, width=100)   and dsds1d_s(5);printdata(5,widthmode=percentage, width=100) into a table, what should i do"?""

please*help*factorial(me)

``

``


 

Download goi_maple_new.mw

@acer

I cann't increase width with mtr(mtd(topic[rtc], ':-columnspan' = 50,':-columnweight' = 50), ':-columnalign' = ':-left')

Can you help me?

@acer 

Thank you very much. Good luck to you.

I try to code procedure but it doesn't.

Please help me into image below?

Please thank you very much.

Help goi_maple.mw 

@acer Can I ask you something?

T:-mtext(dsd)-----> string

if dsd is sqrt(2) --->"2^(1/2)" : unlike.

@acer 

thank you very much very much.

1 2 3 4 Page 2 of 4