The Origin Forum
File Exchange
Try Origin for Free
The Origin Forum
Home | Profile | Register | Active Topics | Members | Search | FAQ | Send File to Tech support
 All Forums
 Origin Forum
 Origin Forum
 stack bars without good results

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize:
UserName:
Password:
Anti-Spam Code:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkUpload FileInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
science2002 Posted - 07/11/2006 : 07:22:13 AM
Origin Version (Select Help-->About Origin): 7.5
Operating System: WinXP

I am evaluation graph-stat products for University. One of the test under which I put also Origin is the following.
Classes:_______Lecturer1(hours):________Lecturer 2(hours):
macro_______________20______________________30
micro_______________40______________________50
literat._____________0______________________20

I need to show with stack bars that lecturer 1 (first stack bar) has 20+40 hours and the label of any piece of the bar should have the name of the classes. So the piece of the bar with height 20 should contain the text "macro".
I am not able to get the result. But I know that Origin is very powerful. Hope someone helps. Thanks
AQ
5   L A T E S T    R E P L I E S    (Newest First)
Mike Buess Posted - 07/12/2006 : 09:27:51 AM
Hi AQ,

Add the brown line to Hideo's script to suppress labels whose corresponding cell values are zero.

nr=wks.MaxRows;
nc=wks.nCols;
%K=%H;
For(jj=1;jj<=nc;jj++) wks.colsel(jj,1);
Worksheet -p 213;
For(ii=1;ii<=nr;ii++) {
hgt1=0; hgt2=0;
for(jj=2;jj<=nc;jj++) {
if( %(%K,jj,ii)==0 ) continue;
hgt1=(hgt2+%(%K,jj,ii)/2)*1.1;
hgt2=hgt2+%(%K,jj,ii);
Label -s -sa -j 1 -a ii hgt1 "\p130(\c18(%(%K, @C, jj)))";
}
}
Legend;
Layer.X.label.pt=30;
Label -s -sa -xb "\p130(%(%K, @C, 1))";
%A=%K!wks.col1.label$;
Label -s -sa -yl "\p130(%A)";
doc -uw; clr;

Mike Buess
Origin WebRing Member
science2002 Posted - 07/12/2006 : 06:12:09 AM
I could run also the Script. It works beautifully, with one little drawback: the label "liter" that is not present in the first column is there, though almost invisible because it is in white color. Is it possible to have the labels that are only needed for each column? [BTW the same drawback is also in Excel, and that was the reason I did not use Excel graphs.]
larry_lan Posted - 07/11/2006 : 10:12:28 PM
Hi AQ:

There are help files on Origin programming folder \Help subfolder. And you can alse see the prgramming, tutorial helps from the 'Help' menu.

If you want to plot several graph with the same font and format setting, you can save the graph setting as theme (right click graph --> save format as theme), and then apply the theme to other plot (Format --> Theme gallery). Or save it as template. More information please see the "The Graph:Templates and Themes" section of Origin Help file.

If want to make the graph by programming, you can learn the Origin LabTalk script first from LabTalk.chm file (in the help folder) and then reference to Hideo's scripts.

Larry
OriginLab GZ Office
science2002 Posted - 07/11/2006 : 12:21:43 PM
That's it, Fujii!
Thank you so much. I knew it was possibile but from what you showed me I need a bit (a lot) of learning.

The problem could not be solved (efficiently) with a manual text tool, because probably the data are not only the one I gave in the example, but are much more.
Where can one learn (or have a taste of) the programming language of Origin? Guide? Tutorials?
Thank you so much again. You have done a wonderful job. High points to Origin, though up to know it does not appear to be for novices.
AQ
Hideo Fujii Posted - 07/11/2006 : 11:54:49 AM
Hi AQ,

If you make the graph manually, you can make a stack
column plot (Plot:Special Bar/Column:Stack Column menu),
then you put text labels by the text tool.

If what you want is to make the graph automatically,
you will need a LabTalk script or OriginC program.
For example, the following script makes the sample graph
below:

///////////////////////////////////////////////
nr=wks.MaxRows;
nc=wks.nCols;
%K=%H;
For(jj=1;jj<=nc;jj++) wks.colsel(jj,1);
Worksheet -p 213;
For(ii=1;ii<=nr;ii++) {
hgt1=0; hgt2=0;
for(jj=2;jj<=nc;jj++) {
hgt1=(hgt2+%(%K,jj,ii)/2)*1.1;
hgt2=hgt2+%(%K,jj,ii);
Label -s -sa -j 1 -a ii hgt1 "\p130(\c18(%(%K,@C,jj)))";
}
}
Legend;
Layer.X.label.pt=30;
Label -s -sa -xb "\p130(%(%K,@C,1))";
%A=%K!wks.col1.label$;
Label -s -sa -yl "\p130(%A)";
doc -uw; clr;
///////////////////////////////////////////////




The Origin Forum © 2020 Originlab Corporation Go To Top Of Page
Snitz Forums 2000