Investing Criteria

Rational assessment of businesses.
company is a cash-generating, industry-dominating, wealth-creating powerhouse — what we call a Rule Maker.
Directions:
We’ve identified 11 general attributes of Rule-Making companies. Part 1 covers five qualitative aspects of a business. For each of these, the scoring is simple — 1 point if the attribute is met, 0 points if it’s not. Part 2 covers six financial criteria. Since these are more objective, each is worth 2 points if met, 0 points if not. Altogether, that’s 17 possible points. Got it? If so, pick a company to analyze and let’s get started!
*Note* Rule Maker analysis is primarily for companies with at least $1 Billion in annual sales.
Part 1: Evaluating the Biz Answer honestly! It’s either 100% yes, or else no.
1) Dominant Brand — Is the company the standout category king within its industry?
2) Repeat Purchases — Do customers return for purchase at least once a month?
3) Convenience — Within its industry, is the company’s product/service accessibility and convenience the best?
4) Expanding Possibilities — Can you answer “yes” to the following two questions?
a) Do your friends know about and use the product/service?
b) Is worldwide expansion believable for their stuff?
5) Your Familiarity & Interest — Are you a user of the company’s products or at least very familiar with them?
Part 2: Company Financials Fill in the cells outlined in blue. The spreadsheet will crunch the numbers.
*Important Note* — When evaluating quarterly (10-Q) results, use the year-to-date income statement data.
For example, if a company is 3/4 of the way through its fiscal year, use the full 9 months of info.
10Q Report
quote.fool.com

4 Strategies For Bitcoin And Cryptocurrency Investors

Investing in highly volatile bitcoins and other cryptocurrencies is risky business. These currencies are all electronic or virtual in nature, and thus have no physical presence. They don’t even have intrinsic value. However, no one can deny that right now these cryptocurrencies are extremely valuable and those who invested in the early days, and held on to their investments, are living the high life now as multi-millionaires, and even billionaires! 

If you want to be like these wise investors sometime in the future, then follow these 4 investing strategies to increase your chances for success. 

1 – Prepare For Volatility

It’s basically a given for cryptocurrencies that they are going to be extremely volatile. One minute the price is sitting at 5 digits, and the next it’s at 4 or even 3 digits! It’s absolutely unpredictable, and if you don’t take its volatility seriously, you could get in a lot of trouble. You could panic and sell off your crypto so you can minimize your loss. 

However, if you’ve braced yourself for scenarios like this, then you’d probably just shut down your computer, or turn off your TV, and lie down and sleep off your doubts. Tomorrow is a different day, the price could go back up, and all will be fine with the world. Being prepared for volatility is tough, but it’s definitely doable. 

2 – Proceed With Caution

Do your research before you start investing in bitcoins and other cryptocurrencies. When you’re dealing with hard-earned money, you don’t want to lose everything in one day.  You’re investing to make a profit sometime in the future. Don’t go all in without studying what you’re putting your money into.

3 – Diversify Your Portfolio

Don’t put all your eggs in one basket, so to speak. Don’t just invest in bitcoins. If possible, invest in other cryptocurrencies as well as traditional assets like stocks, bonds, and mutual funds. At least if bitcoin prices drop, then you’re not going to be totally in the red. Your other investments will help keep you afloat.

4 – Store Your Virtual Coins In Cold Wallets

Investing is a long-term game, and it is not advisable to keep your cryptocurrencies in online wallets such as your exchange’s wallet, or even your mobile app wallet. Keep your private keys in cold wallets such as paper or hardware wallets since these aren’t connected to the Internet. You can keep small amounts in your online wallets, but the bulk of your investments should be offline.  

No Trades Wednesdays But Testing a New Swing Strategy

After looking at the market for a while I couldn’t find any trend that I like. Today, before market close I decided to place 2 swing trades; $XELA and $AAOI.

Let’s see what happens tomorrow morning or during the day.

This new strategy takes advantage of the low risk and bull trending stocks and the end of the day. There still going to be after hour traders reading the trends and potentially keep moving the stock higher.

7 Quality Dimensions

In order to improve data quality and maximise its insight potential, the Forrester report identifies seven quality dimensions that marketers should align their data across for best results:

  • Timeliness: Timely data comes from sources that are up to date. Access to faster data enables relevant insights that meet business objectives
     
  • Completeness: Complete data records are ones where all expected attributes are provided. A complete customer and marketing data set ensures that all behaviors, intentions, permissions, and sentiments are captured for robust analysis, such as understanding channel halo effects or how customers feel about your brand
     
  • Consistency: Consistent data references a common taxonomy across platforms, channels, and campaigns. Having consistent data for things like campaign codes and customer identifiers can help marketers speed up the data collection process and analyse trends over time, without worrying about data being labeled correctly
     
  • Relevance: Relevant data directly relates to the analysis being performed. Adding a slew of data into the system won’t help solve the business problem if it’s not relevant. Relevant data helps answer marketing business problems, address customer behavior questions, and make day-to-day decisions
     
  • Transparency: Transparent data refers to data whose sources are easy to trace and identify. Marketers who understand the data nuances from first-party and media sources, such as ad servers, will be able to determine if specific streams of data are necessary for their marketing performance analysis
     
  • Accuracy: The adage “garbage in, garbage out” has never been more relevant in today’s data-rich world. Only accurate data can reflect true actions
     
  • Representativeness: An important part of targeting, representativeness ensures data collected and leveraged for insights accurately reflects the marketplace or an advertiser’s target audience
https://www.marketingtechnews.net/news/2019/dec/12/how-high-quality-data-can-either-be-holy-grail-or-achilles-heel-marketers/

$UGAZ is Ready to Sling Shoot

Hey HackerHipster, are you ready to sling shoot into that moving green SMA?

After hitting 52 week lowest point $UGAZ is readyt to boom back for winter. Winter is here.

The RSI is way oversold and the MACD is about to turn around to bullish. We are doing a red to green move here. I’m expecting to see at least $13 on $UGAZ in the next 2 weeks.

Basic Candle Pattern

Candlestick charts are a technical tool that pack data for multiple time frames into single price bars. This makes them more useful than traditional open-high, low-close bars (OHLC) or simple lines that connect the dots of closing prices. Candlesticks build patterns that predict price direction once completed. Proper color coding adds depth to this colorful technical tool, which dates back to 18th century Japanese rice traders.

Study these pattern to learn when to start looking at the potential resistance or support levels indicated by a retracement Fibonacci scale.

Relaxation Protocol

When in need to relax, the understanding on how your automous nervious system is works, is essential.

Many of us walk through this life following the rules of society, social distractions and capitalist expectations.

We are all inmerse in an ocean of noise. Those who learn how to slowly ballon up over the surface are the ones, that can see over the smogy noise.

The Turtle and the Hare

Deep into your body there is a system, an electrical system

Utilities Analyst I or II

Description

The Utilities Analyst will conduct data and impact analysis; participate in administrative research to guide decisions impacting policies, procedures, and customer enhancements; and support the financial planning and utility rate administration functions. Responsibilities will include conducting benchmark and financial impact analysis, assisting with the coordination of public hearings, maintaining financial forecasting models, and participating in various strategic planning projects.

  • Prepare administrative studies and research projects as required; prepare statistical data, graphs, and presentations; assist in the coordination and implementation of approved studies and projects.
  • Gather, compile, and interpret a variety of statistical data; and prepare administrative reports.
  • Research, analyze and recommend changes in procedures and/or operations as part of process management; assist in their development and implementation; identify and/or recommend goals, objectives, policies and procedures for assigned programs; and establish implementation schedules and methods.
  • Research and analyze industry, legislative, and/or regulatory developments for impact on department finances; prepare written analysis, including recommended course of action.
  • Assist managers and supervisors in communicating division level goals and performance measures throughout the organization.
  • Monitor and review master agreements to ensure contracted amounts are not exceeded, and that insurance is current; renew agreements as appropriate to ensure continuity of consultant/contractor services.
  • Provide assistance on special projects; conduct studies/analysis and coordinate findings with requester; prepare final report and present orally and in writing to management and other stakeholders.
  • Assist in developing forecasts of APU cash flow, planning models, revenue projections, cost allocation studies, expenses, and fund balances.
  • Prepare financial analyses used in the issuance of debt; assist in preparing financial documentation required by Bond Rating Agencies.
  • Prepare and analyze data related to electric and water rates and fees; produce revenue and cost studies; conduct surveys to determine rate competitiveness and equity.
  • Assist in developing APU’s business plan, including the strategic financial plan.
  • Work with various divisions including finance, water/power supply, and engineering staff in maintaining APU’s financial pro forma models.
  • Perform other duties as assigned.

Qualifications

Candidates must possess two years of experience (three years for Utilities Analyst II) in the in the areas of financial and economic analysis, financial forecasting, water and/or electric rate development, cost-benefit analysis, performance indicator development and tracking, or leading cross-divisional project teams. Experience need not be with a public utility or agency,

Candidates must have a Bachelor’s degree from an accredited college or university with major course work in finance, accounting, business administration, public administration, economics, quantitative science, or a related field. An equivalent combination of experience and education sufficient to perform the essential job functions and provide the required knowledge and abilities is qualifying.

Candidates must have knowledge of principles of financial planning analysis and statistical reporting; methods of calculating investment returns and risk assessment; research methods and report writing; principles of cost benefit analysis; benchmarking and performance measurement; management information systems; work flow analysis, software to manage and analyze data; complex spreadsheets and database applications; and pertinent federal, state, and local laws, rules, codes, and ordinances.

Candidates must demonstrate the ability to compile, organize, and analyze data; prepare complete and concise reports; employ creativity, logical thinking, and judgment in analyzing complex issues and developing sound recommendations; forecast and develop models that simulate complex financial activities; assist in and/or conduct electric and water studies related to cost of service, rate schedules, and cost-benefit analysis; effectively communicate and promote ideas to various stakeholders; effectively plan and direct special projects; operate with tact and diplomacy; make effective oral presentations; communicate clearly and concisely, both orally and in writing; make sound recommendations related to assigned projects; assist and/or develop performance indicators; maintain business process maps; operate effectively and independently with employees across APU divisions; assist with planning and/or coordinating multiple projects simultaneously; maintain confidentiality; assist and/or develop content for internal and external communication; and establish and maintain effective working relationships with those contacted in the course of work.

https://www.indeed.com/viewjob?jk=bab4e78fce5e8fd6&q=utilities&tk=1dp6clb6727q0801&from=ja&alid=5dc08fdeb9e4cf297951c695&utm_campaign=job_alerts&utm_medium=email&utm_source=jobseeker_emails&rgtk=1dp6clb6727q0801

Analytics Basics

Advanced Excel

  • Pivot Tables
  • VBA Scripting

Fundamental Statistics

  • Introduction to Modeling
  • Forecasting

Python Programming

  • Python 3
  • NumPy
  • Matplotlib
  • Pandas
  • Social Media Mining
  • API Interactions

Databases

  • MySQL
  • MongoDB

Front-End Web Visualization • HTML • CSS • Bootstrap • Dashboarding • JavaScript Charting • D3.js • Geomapping with Leaflet.js

Business Intelligence Software • Tableau

Advanced Topics • Big Data Analytics with Hadoop • Machine Learning

It wasn’t my first time, I have done this before. This time was different. My heart fell almost to the floor. Crypto is falling.

Back in 2017 I was one of those newbies who invested in bitcoin during the 20k bullrun. It felt magical. The math behind percentages and group psychology completily got my curious mind.

Yes, earlier in 2018 I realized it was too late to learn about market cycles and stop loss. Almost a year later I learned about shorting and then I realized … we all behave like waves.

Are we really mini waves that materialized at this micro levels of existance compare to the universe? We are the children of a big bang after all.

  • Crypto
  • OTC
  • ETF

Tasks

  • Passioned about data and statistics?
  • Do you spend time imagining how best to visualize data? Are you dedicated to transforming data into information, information into knowledge, and knowledge into informed action?
  • Data analyst to help transform raw performance data into intelligible information that can be used to improve your business processes
  • The data analyst gathers information from various sources, and interpret patterns and trends.
  • Responsible for reporting information in ways that it can be assimilated quickly and effectively
  • Dedicated to helping customers win and maintain contracts
  • Focus is on implementing, monitoring and reporting customers’ green, sustainable business-management practices
  • Acquiring and “scrubbing” data from primary and secondary data sources
  • Interpreting data and analyzing results using statistical techniques
  • Developed analysis and reporting capabilities; providing on-going reports and developing new reports as needed
  • Identify, analyze, and interprete trends and patterns in complex data sets
  • Researching performance analytics from related businesses and industries
  • Worked with management to prioritize business and information needs
  • Identify and implement process improvement opportunities
  • Strong analytical skills with the ability to collect, organize, analyze and disseminate significant amounts of information with attention to detail and accuracy
  • Technical expertise regarding data models, data mining and data segmentation techniques
  • Strong knowledge of Microsoft SQL and experience with one or more reporting packages
  • Highly skilled in the use of the Microsoft Office suite of applications
  • Self-motivated and detail oriented; excellent organizational and time-management skills with a proven ability to complete projects on a deadline
  • Demonstrated aptitude for proactive problem-solving
  • Excellent oral and written communication skills
  • Collaborative working style with a “can do” attitude

Data Scientist Tasks

PROFITS FROM TRADING $MBRX

$MBRX got some volume this morning after News were released. Noticing the chart was about to move, based on Volume, I decided to take a trade and made 42.84%.This Robinhood account will be my practice account which I plan to grow to a $1 million dollars.

WordPress website maintenance from $20 (Chicago)

(google map) You built a WordPress website or someone built you a WordPress website.

1/3 of all (77,000,000) WordPress sites are outdated.

Are your plugins updated?

Is your WordPress site secure?

Does it comply with current HTTPS standards?

We provide FREE SSL security certificates.

Is your WordPress site connected to (FREE) Google analytics and Search console?

Do you know what your traffic is?

Complete monthly Word Press maintenance from $20 – no contracts – yes we do Woo Too!

mitch@superezsystems.com 773-848-0687

https://chicago.craigslist.org/chc/cps/d/chicago-wordpress-website-maintenance/6790377582.html

Data Scientist Tasks

Do you have a lot of data, but can’t afford to hire someone to work with it? I am a recently trained data scientist looking to boost my resume. I will work with your data for free!

Some possible services I could provide:
– look through your data, clean it up, and put it into a useable format
– help you think through the types of questions you could address with your data
– analyze the data in order to answer those questions
– help you think about new data you might like to collect
– basically anything else relating to data!

Interested? Have questions? Let’s chat!

https://boulder.craigslist.org/res/6788487081.html

Twelve Tools For Business in 2019

I hope you had a wonderful Christmas, it’s a great time of year for many of us. Family, friends and of course the giving and receiving of presents.

As a business owner who isn’t in retail, there is a traditional shutdown between Christmas and New Year and after a few days off you may be looking ahead to next year and thinking how you can grow the business and sales. In more austere times, people are asked to do more with the same resources (or less!).

So this week I have listed some great tools to help make marketing your business or service much easier for 2019.

Saving Time

These tools will help you get more productive so you can spend more time doing the things you love and less on the things you don’t

#1 Hootsuite

Hootsuite allows you to schedule most of your tweets in 1 go, meaning you create more time to engage and are less likely to skip tweeting the “evergreen “messages within your business.

#2 Buffer App

Much like Hootsuite, the team at Buffer allow you to create a schedule of what times you’d like to send tweets and Facebook posts (Although I don’t recommend it for Facebook – see #3 to find out why). It operates on a “send if anything is in the bucket” model. So if you load it with 20 stories, it will drip-feed them out until they run out.

#3 Facebook Scheduler

Most businesses are a little sporadic in their social media activity often having busts of ten minutes here and there to post things. The challenge is though that your audience isn’t always ready to receive when you want to post. Thankfully Facebook allows you to schedule your business page posts rather than send 3 out within 3 minutes. Facebook appears to actively penalise posts scheduled from elsewhere, so that’s why I recommend using the Facebook functionality.

Email Tools

#4 Zerobounce

Here are the locations of mobile speed cameras in Calderdale this New Year

Here are the locations of mobile speed cameras in Calderdale this New Year

Got an old list of customer email addresses but aren’t sure which ones are still usable. Mailing a high % of “bad” emails will hurt your deliverability. In steps Zerobounce, a great tool to clean up the data in under 1 hour. Just be sure you comply with all the other GDPR regs!

#5 Mailchimp & Aweber

Two for one here. Creating a central hub for your marketing and updates to your customers couldn’t be easier. With both free and paid plans, these companies make it very easy to create professional templates to wow your customers

Google Tools

#6 Google Correlate

Think of correlate as a thesaurus. Type in a search term that you think your customers are looking for and it will suggest additional terms too that you may not have thought of.

#7 Google Image Search

Found an image but want to make sure you have the rights to use it? Copy the image in to Google Image search and it will usually show you the original source so you can make sure you comply with any and all legal requirements!

#8 Google trends

A great way to keep on top of the latest trends and also review whether there is historic seasonality on products or search terms. This helps with workload and inventory planning! It is also great for finding new things to talk about with your customers.

Online Marketing

#9 Canva

Canva allows you to create wonderful looking graphics for promoting your business and offers all year round. Most people can cope with the free version, although there is a small charge for certain premium functions.

#10 Survey monkey

Why not let your existing customers help you shape the new product range or product offering. You can use the free or premium versions to survey their thoughts. It’s always worth considering offering a small incentive for people who enter and participate. Whether it’s a gift card, discount or some other VIP service, it will increase participation rates.

#11 Marketing School Podcast

Struggling for time and possibly inspiration? In steps Neil Patel and Eric Siu with their 5 minute daily podcast on all things marketing. Everyone can make 5 minutes right? Whether it is in the car, on the bus or even walking to work. They are light hearted and full of great information from a team that is doing extremely well online!

#12 Ahrefs

The costliest of all the recommendations, but this allows businesses to find data on how to generate more customers online and get more visitors. Rather than recreating the wheel, you can review competitors or search terms and find out how easy (or not) it is to have your website perform far better that it does today!

Have you tried any of these? Got different recommendations? If so, comment below I’d love to read them

Finally, I’d like to wish you a very Happy New year! See you in 2019

https://www.halifaxcourier.co.uk/news/business/not-just-for-christmas-twelve-tools-for-business-in-2019-1-9508136

Business Development/Marketing

  • Self-motivated person with an entrepreneurial spirit that can help you grow your businesses.
  • Enjoys learning new skills, has a good grasp on digital marketing
  • Responsibilities include but not limited to:
  • Calling on current and perspective clients
  • Developing new business strategies
  • Seeking out and pursuing new business opportunities
  • Networking
  • Website and social media marketing
  • Editing and occasional copy-writing
  • Some administrative tasks to include order tracking and project management

About You

  • A successful candidate will bring fresh ideas to the table, enjoys working in a collaborative environment, and values producing excellent work. This person is also a great communicator in person, on the phone, and via email.
  • erbal and written
  • -Should be very organized and able to productively multi-task
  • -Self-Starter
  • -Tenacity
  • Hours: 15-20 a week with opportunity to grow
  • Compensation: Hourly plus Commission

Qualifications

  • 2 plus years of marketing and/or business experience
  • Has a good grasp of the Internet, Websites and Social Media
  • Good technical skills
  • Catches on to new technologies quickly
  • Professional demeanor both through email and on the phone
  • Good communication skills – verbal and written
  • Should be very organized and able to productively multi-task
  • Self-Starter
  • Tenacity

https://denver.craigslist.org/mar/6772789481.html

MS Access Developer

Help with design, development or repair of your Microsoft Access database.

Some things about me:

– 15 years of experience as an independent consultant for Access development projects
– Many references.
– Masters degree in Biostatistics.
– Have taught business development at the Boulder Small Business Development Center.

I can wrap my mind around just about any project you might throw at me.

Let me know what I can do to help your business!

Currently accepting projects of any size. Will work via virtual office or on-site (in the Denver/Boulder area). Discounted rate schedule for non-profit organizations and green businesses.

Expertise in:
– understanding what you really want and providing it!
– developing new databases from beginning to end
– fixing your current MS Access database to run faster, more reliably, and fully featured
– building easy-to-use user interfaces
– creating dashboards to display your current key data points, at a glance
– incorporating intelligence into the flow and logic of your database
– utilization of extreme mathematical calculations
– training you to develop/use your own MS Access databases
– integrating MS Access databases with other databases, such as Quickbooks

Skilled at:

– all versions of MS Access, and conversion between versions
– VBA programming
– mathematics, statistics, business intelligence, data mining
– small business finance
– database design
– staying on target, on budget, on deadline

https://boulder.craigslist.org/cps/6779573807.html

Senior Data Analyst

Company Description

Optimizely is the world’s leader in customer experience optimization, allowing businesses to dramatically drive up the value of their digital products, commerce and campaigns through its best in class experimentation software platform. By replacing digital guesswork with evidence-based results, Optimizely enables product and marketing professionals to accelerate innovation, lower the risk of new features, and drive up the return on investment from digital by up to 10X. Over 26 of the Fortune 100 companies choose Optimizely to power their global digital experiences. Optimizely’s impressive customer list includes eBay, FOX, IBM, The New York Times and many more global enterprises.

Job Description

Optimizely is the industry leader in web and mobile optimization and experimentation platform. We enable businesses to show the right thing to the right person at the right time by turning data into action. Optimizely is looking for mid to senior level Data Analyst who can provide analytical support and a strategic perspective to our internal partners throughout the organization by delivering valuable business insights to drive actions.  As a data expert, you will define the key metrics by working with department stakeholders and model them in the unified business model layer of our analytical system to provide recommendations, and eventually help them drive business decisions to enhance the service to our customers. You have a strong technical and quantitative analysis background, and an exceptional ability to distill and communicate complex data.

What you and your team will be doing:

  • Own KPIs and business dashboards, using SQL, to enable business performance management
  • Conduct quantitative research, and perform statistical analysis and feature engineering using Python/R to analyze data, and develop actionable insights
  • Analyze and interpret statistical data to understand the relation between different variations of experiments and other product features of Optimizely
  • Collaborate with members and executives of other departments to execute on strategic initiatives through project-based research and ad-hoc analysis.
  • Implement predictive statistical models using data science and machine learning algorithms like supervised and unsupervised learning on customer and product data sets to identify key drivers of Optimizely’s business
  • Drive efficiencies in business with automation of data and information, and identify areas of opportunity where existing data could provide enhanced business benefit
  • Translate technical findings to non-technical audiences, and communicate it through the use of well-designed visualizations using tools such as Looker, Tableau etc

Digital Marketing Specialist

https://qualaroo.com/beginners-guide-to-cro

As the Digital Marketing Specialist at Lawgical you are highly organized, goal-oriented, deadline-driven and are meticulous with your attention to detail. The Lawgical marketing team is lean and agile, and in this role you recognize the need to roll up your sleeves to identify opportunities to maximize customer revenue/conversions and increase our brand awareness and loyalty. It’s important for you to be an in-house subject matter expert — understanding your customer’s and the industry trends — to effectively communicate to our potential customers.

While self-motivated and autonomous, you work (and communicate) closely with your marketing and sales colleagues to set goals and a roadmap to achieve them. Ultimately, this translates into delivering campaigns that are aligned with the company’s mission and priorities. You are revenue and results oriented and create content, emails, and marketing materials around expanding client base.

You have strong communication, design, and analytical skills that support your primary goal of creating digital campaigns that drive revenue growth (new customer acquisition, retention, cross-selling and upselling).

Responsibilities

* Manage email campaign calendar for up to 4 brands
* Create targeted email campaigns
* Develop graphic and content assets for email campaigns
* Create campaign landing pages
* Measure campaign results and effectiveness
* Distribution Optimization (determining optimal time, frequency, messaging, etc)
* Develop campaign ideas based off company analytics and results
* Identify audience and tailor content/campaigns around target customers
* Identify channels’ partners and content distribution opportunities
* Curate and manage email marketing lists and segments
* Coordinate campaigns with sales and marketing teams
* Create, update, and manage lead nurturing and drip campaigns
* Code responsive email templates in HTML and CSS
* Automate marketing tasks and processes
* Create, buy and track effectiveness of social media campaigns
* Maintain PPC ad campaigns

Experience and Skills
* 2+ years experience setting goals and developing a plan to achieve them
* 2+ years of experience with email marketing, lead nurturing, marketing automation, and marketing analytics
* 2+ years of experience with PPC advertising
* Experience with social media advertising
* Experience with email marketing tools (e.g., MailChimp, Campaign Monitor, etc)
* Experience with list management, targeting and segmentation
* Experience with A/B testing
* Strong written skills and experience with blogging
* Strong analytical skills
* Video editing a plus, but not required
* Experience with Zapier (or other automation tools) a plus
* Proficient with spreadsheet and graphics software

How to Apply
Please send an HTML email campaign to dms@lawgical.com promoting yourself as Lawgical’s next Digital Marketing Specialist.

Please include…
* a link to your resume
* salary requirements
* an original graphic you created
* your favorite gif of all time
* all other elements that make an email campaign effective

Learn more about us at…
https://www.lawgical.com
https://www.lawgical.com/careers

Checklist

To Starting a

Social Media Marketing Agency

  1.       Business Plan
    1.       Business Name
    1.       Service Offering
    1.       Pricing Plan
    1.       Outsourcing Approach
    1.       Partners
    1.       Niche/Industry
  2.       Business License
    1.       Inc File
    1.       Local Business License
    1.       Tax ID
  3. Understanding SWEPS and Other Topics
    1.       Social Media Marketing
    1.       Web Development & Marketing
    1.       Email Marketing & Automation
    1.       Pay Per Click
    1.       Search Engine Optimization
  •       Content Marketing
    •       Video
    •       Blog
    •       Sales Funnel Strategy
      • Awareness > Consideration > Conversion
        • Integrating SWEPS
    •       Copywriting
    •       Branding
  •       Laptop
  •       Business Email Account
  •       Business Cards
  •       Bank Account
  •       Basic QuickBooks Setup
  •       Website
    •       Home Page
    •       Services Page
    •       Contact Page
  •       Social Media Business Accounts Setup
    •       Facebook
    •       Instagram
    •       Twitter
    •       Google+
    •       YouTube (If you plan to create regular content to drive leads)
  •       Lead Generation Approach
    •       Create Lead Gen Excel Tracking Sheet
    • Email Marketing
      •       Create Email Templates
    • Facebook Messages
      •       Create Facebook Message Templates
    • Cold Calling
      •       Create Cold Calling Script
    • Networking
      •       Leave Behind Documents
    • Walk-Ins
      •       Audits or Leave Behind Documents
  •       Onboarding Document
  •       Proposal Templates
  •       Product Offering pdf
  •       Operational Workflows (How you’ll handle new customers when you sign them up)
    •       Campaign Planning & Integration
    •       Content Planning
    •       Scheduling and Posting
    •       Content Creation & Review
    •       Ad Creation & Review
    •       Campaign Data Management & Review
  •       Content Calendar Plan
  •       Customer Testimonials
  •       Client Campaign Reporting Plan
  •       Prospecting List
  •       Weekly Networking Meeting Schedule
https://denver.craigslist.org/mar/6770781341.html

Advertising Assistant

Our agency provides advertising and marketing services to agencies and brands. The owner handles most of the workload herself along with help from contractors. Speaking of contractors, the owner is currently in need of an assistant. She is looking for an experienced, intelligent, enthusiastic, dependable, and hard-working part-time contractor. This person will be responsible for assisting with digital advertising operations and behind-the-scenes account management for 2-3 clients.

Specifically, the Advertising Assistant’s tasks will include:

• Executing Facebook, Instagram, and LinkedIn campaigns
• Setting up marketing pixels in Google Tag Manager
• Setting up goal and event tracking in Google Analytics
• Setting up e-commerce tracking in Google Analytics
• Trafficking digital advertising campaigns
• Reporting on live digital campaigns
• Optimizing live digital campaigns
• Assisting with post-campaign performance presentations
• Assisting with task and project management
• Executing programmatic advertising campaigns

The owner will provide assistance on all of the above tasks.

Qualifications:

• Minimum two years Account Coordinator experience
• Minimum two years Facebook Business Manager experience
• Experience with other types of social media advertising a plus (Twitter, LinkedIn, etc.)
• Minimum one-year experience with Double Click Campaign Manager
• Six-months experience with DoubleClick Bid Manager
• One-year experience with Google Tag Manager
• Project management experience
• Strong proficiency in Excel and Power Point
• Working knowledge of important advertising metrics such as impressions, clicks, click-through rate, conversions and cost per conversion

Skills/Traits desired for this position are
• Assistant not afraid to pick up the phone and get things done
• Strong communication & listening skills
• Strategic/analytical thinking
• Problem solving
• Team player
• Self-driven & motivated
• Ability to jump in with little direction
• Organized
• Thirst for learning new things

A degree or concentration in advertising, marketing, communications or business administration preferred.

This position would start as a part-time contractor at 15 hours per week. Work from our home office in North Boulder for ½ a day 2 days per week is likely. Other work can be done from home.

Snobbish Mustache

Second Annual Snobbish Mustache Meets …

Second-Annual-Snobbish-Mustache

Even Barack Obama is Doing it, Why Don’t You?

What: Meet Snobbish People from Boulder, CO and network and have fun

Where : Eben G. Fine Park \ Boulder, CO

When : Thursday, August 20, 2009 @ 5:00 pm

How : With a snobbish attitude of course. Bring your own snobbish mustache or get one with us. Name tags will be provided but not for your name but for your snobbish category.

BRING: Something to share with others as this is a potluck get together as well.

Earth No Flush Hour

Earth No Flush Hour

Earth No Flush Hour is starting in 2009 in Boulder, CO with thousands of homes and businesses no flushing or using water for one whole hour. This event is rapidly becoming a global sustainability movement with thousands of people across 35 countries participating. Global landmarks such as the Golden Gate Bridge in San Francisco, Rome?s Colosseum will stand in dryness, as symbols of hope for a cause that grows more urgent by the hour.

In 2009, at 8.30pm on May 2, we are asking people across the world to no use water and join together in creating the vital conversation about the future of our precious planet. Earth No Flush Hour is a message of hope and a message of action.

Everyone can make a difference. It?s as simple as no flushing or using water for an hour on May 2 @ 8:30 pm.

Join us for Earth No Flush Hour 2009.

Yes, we are in FaceBook. http://www.facebook.com/pages/Earth-No-Flush-Hour/66319266683?ref=ts Sponsored by Imodiuom

Adwords PPC Expert

  • Digital Strategists responsible for overseeing the ongoing marketing and evolution of your client’s brand and online presence.
  • Most importantly, I continuously think on behalf of your clients to foster growth and innovation.
  • Experienced in the strategic planning and management of Pay-Per-Click online advertising campaigns.

Experience

  • 3+ years of experience in a digital design or digital marketing focused team
  • Proven work experience in setting up, managing, and optimizing spend of complex PPC and AdWords campaigns
  • Excellent communication and organization skills with the ability to manage multiple projects/campaigns for numerous clients
  • Experience building effective campaigns and completing successful projects for clients
  • A background in digital marketing
  • Creative thinking
  • Strong leadership skills
  • Experience with web technologies such as Content Management Systems, eCommerce, analytics, etc.
  • Strong understanding of online marketing best practices – SEO, CRO, etc.
  • Social Media management, content marketing, and local listing management
  • A great sense of humor

Responsibilities

  • Coordinating and collaborating with clients to continuously optimize and evolve their online presence
  • Coordinating and leading internal design, development and marketing teams on behalf of the client
  • Thinking strategically to develop client marketing plans proactively
  • Create strategic plans (scope documents, budget plans, timelines, etc.) for client projects
  • Planning, management, and analysis of all client PPC campaigns

Marketing Manager

  • Marketing Manager to help us make Punch Bowl Social one of the most engaging, exciting and innovative brands. 
  • Extensive knowledge of digital marketing with a strong background in working with rapidly expanding startup organizations.
  • Positive attitude, a tireless work ethic and an insatiable appetite for growth.
  • As a Marketing specialist you should be a competent professional able to grasp consumer behavior trends and generate creative ideas.
  • You should also be well versed in specialized marketing concepts, principles and tactics. The goal is to deliver effective marketing programs that will help our reputation and growth.

About Us:

  • Punch Bowl Social innovates and leads a modern authentic approach to the “eat-ertainment” category by effectively combining a diner-inspired scratch-kitchen, craft beverage program, and entertainment in a highly curated design-forward environment. 
  • In addition to our passion for providing exceptional food & drink, we are committed to personalized customer service and creating an environment of inclusion and support across our entire organization.
  • We seek individuals with an authentic respect for people and a passion for our trade.

QUALIFICATIONS

  • 5+ years experience in commercial marketing or agency marketing.
  • Strong background in digital marketing with a passion for staying up to date on trends.
  • Proven self-starter with a proactive mindset.
  • Experience and interest in working with a fast-moving, startup organization.
  • Consistent and strong collaborator who elevates the work of cross-functional teams.
  • Proven ability to build and maintain working relationships.
  • Experience with Keynote, Excel, InDesign, etc.
  • Above average communication and presentation skills- both oral and written.
  • Strong attention for detail with the ability to multitask in a deadline driven environment.
  • 3+ years’ experience in a marketing specialist or similar role
  • 2+ years in a graphic design roll
  • Strong organization, detail oriented with prioritization skills
  • Exceptional communication and writing skills
  • Commercial awareness partnered with a creative mind
  • Proficiency with Google Analytics and web analysis tools
  • Ability to work well in a fast-paced, collaborative environment
  • Strong understanding of Microsoft Office programs
  • Excellent analytical, communication and presentation skills

Responsibilities

  • Help develop strategies and tactics to get the word out about Punch Bowl Social and drive traffic to individual stores.
  • Deploy successful marketing campaigns and own the implementation from ideation to execution.
  • Work with individual stores to understand their short and longer-term marketing needs, and communicate those needs to internal teams.
  • Partner with external PR team to develop and coordinate local market activities and opportunities.
  • Planning and overseeing production of print, digital and direct response advertising.
  • Planning and overseeing production of print, electronic and direct mail advertising for the company.
  • Copywriting for internal communications and sales materials as needed.
  • Assist in the management and implementation of amendments to Company Website.
  • Measure and report performance of marketing campaigns, gain insight and assess against goals.
  • Participate in the development of strategic marketing plans for 2019 and beyond.
  • Support NRO activities, as needed.
  • Social media support, as needed.


• Develop marketing strategies for projects, including company websites and social media along with plan and execute initiatives to reach the target audience through appropriate channels (social media, e-mail, TV etc.)
• Conduct market research to find answers about consumer requirements, habits and trends
• Brainstorm and develop ideas for creative marketing campaign results and project recommendations to senior management team
• Create and execute lead generation programs
• Knowledge of HTML, CSS and web development tools desired
• Analyze data to determine campaign efficiency
• Assist in outbound or inbound marketing activities by demonstrating expertise in various areas (content development and optimization, advertising, events planning etc.)
• Ensure creative marketing materials undergo regular review and adhere to brand guidelines


If you are interested in becoming part of a nationally expanding concept, with significant growth opportunities, we look forward to reviewing your resume. Please click the link to apply. Outside placement agencies and recruiters will not be considered. Please do not contact the above mentioned location.

https://denver.craigslist.org/fbh/6764540744.html

Data Analyst

Associate Data Analyst

Job Description

Job Title: Associate Data Analyst

Location: Reston, VA

Start Date: January 2019

About This Role:

Comscore is seeking an Associate Data Analyst in Reston VA for the Custom Analytics team that will support the Financial Services vertical and organizational goals by providing industry knowledge and analytical thinking.Working as part of the Custom Analytics department within the company, this individual will work hands-on with the vast array of Comscore data assets to maintain data quality,analyze data trends, champion data driven insights on online consumer behavior, and expand current product offerings. Additionally, this individual will work within a creative environment to manipulate data, statistically analyze data and convey findings to stakeholders.

What you’ll do:

  • Drive custom analytical analysis across a wide range of data assets including PC, Mobile and TV data.
  • Work effectively with client services to deliver data on an ongoing and custom basis and ensure data meets clients needs.
  • Preserve quality data by implementing team-wide standard and independent QA processes, maintaining proprietary data collection programs, and resolving any data anomalies.
  • Understand core products by researching industry trends, knowing the base data used in all delivered reports.

What you;ll need:

  • Bachelors degree in a quantitative subject such as Statistics, Engineering, Economics, Computer Science, etc.
  • Experience in data analysis and problem solving with big data.
  • Experience with SQL or knowledge of relational databases and methods for efficiently retrieving data.
  • Ability to think creatively and solve complex problems.
  • Excellent verbal, written and computer communication skills with strong analytical and troubleshooting skills.
  • The nature of the teams dynamics will require an individual that is able to work closely in a collaborative role with other team members, as well as complete tasks individually as assigned.
  • Strong analytical/critical thinking and innovation skills.
  • Self-motivated, fast learner, creative, team player willing to help others.  Flexible and able to work fast under tight deadlines with demanding quality requirements.  Project management skills, including the ability to handle multiple projects in a fast-paced environment

About Comscore

At Comscore, we’re pioneering the future of cross-platform media measurement, arming organizations with the insights they need to make decisions with confidence. Central to this aim are our people who work together to simplify the complex on behalf of our clients & partners. Though our roles and skills are varied, we’re united by our commitment to five underlying values: Integrity, Velocity, Accountability, Teamwork, and Servant Leadership. If you’re motivated by big challenges and interested in helping some of the largest and most important media properties and brands navigate the future of media, we’d love to hear from you.

Comscore (NASDAQ: SCOR) is a trusted partner for planning, transacting and evaluating media across platforms. With a data footprint that combines digital, linear TV, over-the-top and theatrical viewership intelligence with advanced audience insights, Comscore allows media buyers and sellers to quantify their multiscreen behavior and make business decisions with confidence. A proven leader in measuring digital and set-top box audiences and advertising at scale, Comscore is the industry’s emerging, third-party source for reliable and comprehensive cross-platform measurement. To learn more about Comscore, please visit Comscore.com.

EEO Statement: We are an equal employment opportunity employer. All qualified applicants will receive consideration for employment without regard to race, color, religion, national origin, sex, disability status, sexual orientation, gender identity, age, protected veteran status or any other characteristic protected by law.

To comply with federal law, Comscore participates in E-Verify. Successful candidates must pass the E-Verify process after hire.

At this time, Comscore will not sponsor a new applicant for employment authorization for this position

Master Data Analyst

Business Data Analyst II

Apply NowDate posted 12/12/2018 Requisition Number: 231952BR Location: United States – Connecticut – Stamford Zip Code: 06901 Area of Interest: Operations/General, Telecommunications Position Type: Full Time JOB SUMMARY
Responsible for the development and documentation of billing solutions to address business needs. Understands business process and the systems utilized to implement business process to achieve Company goals. Assists in the completion of billing application projects at the corporate level. Facilitates the gathering of data from various systems and sources to perform analysis, design and business impact assessments for billing related projects.

MAJOR DUTIES AND RESPONSIBILITIES
Actively and consistently support all efforts to simplify and enhance the customer experience and the needs of internal clients and projects.

Gathers, analyzes, refines, validates, documents and maintains complex systems requirements for requests related to billing systems and reporting needs.

Analyzes system interdependencies, system requirements, risks, and risk mitigations that could impact or be impacted by the delivery of new products, services, processes and/or support technologies including assessing and communicating impacts of systems changes and/or outages/risks to the business.

Defines, documents, implements, communicates and tracks related systems rules, policies and configurations.

Makes recommendations based on data for process improvement and strategic business decision making.

Assists in the implementation of billing software standards and processes.

Delivers on project commitments and assists team members to ensure timely project completion.

Understands policies, procedures, and practices for analysis of business performance and impact.

Develops communication documentation to support deployment of reporting and application solutions to end users.

Performs other duties as requested by supervisor

REQUIRED QUALIFICATIONS
Skills / Abilities and Knowledge

Ability to read, write, speak and understand English
Ability to communicate orally and in writing in a clear and straightforward manner
Ability to communicate with all levels of management and company personnel
Ability to handle multiple projects and tasks
Ability to make decisions and solve problems while working under pressure
Ability to prioritize and organize effectively
Ability to show judgment and initiative and to accomplish job duties
Ability to use personal computer and software applications (i.e. word processing, spreadsheet, etc.)
Ability to work independently
Ability to work with others to resolve problems, handle requests or situations
Ability to perform detailed business analysis and design
Ability to effectively consult with department managers and leaders

Education
Bachelor’s degree in Information Technology or business related field, or equivalent experience

Related Work Experience
3 Years Overall general Systems and Applications Experience
2 Years Data collection and database design
2 Years Reporting Systems Experience
3 Years Project Management
2 Years Documentation and Design

PREFERRED QUALIFICATIONS
Skills/Abilities and Knowledge

Knowledge of business process re-engineering
Knowledge of cable television products and services
Knowledge of operating systems including NT, desktop productivity software and client/server system architecture
Knowledge of database/reporting systems (SQL, Oracle, .NET, Crystal, etc)
Knowledge of basic ETL concepts and systems (SSIS, Informatica)
Knowledge of Structured Query Language (TSQL, PLSQL)
Knowledge of SQL Server Reporting Services

WORKING CONDITIONS
Office environment

The Spectrum brands (including Spectrum Networks, Spectrum Enterprise and Spectrum Reach) are powered and innovated by Charter Communications. Charter Communications reaffirms its commitment to providing equal opportunities for employment and advancement to qualified employees and applicants. Individuals will be considered for positions for which they meet the minimum qualifications and are able to perform without regard to race, color, gender, age, religion, disability, national origin, veteran status, sexual orientation, gender identity, or any other basis protected by federal, state or local laws.

Date: Dec 12, 2018

Location: White Plains, NY; Louisville, , NY, US

Company: DANONE

USO – Danone Foods, Inc, a subsidiary of Danone, is looking forMaster Data Analyst in United States (US) for White Plains, NY; Louisville, CO 

Danone is a global food company holding top positions in healthy food through its four businesses: Fresh Dairy Products, Early Life Nutrition, Waters, and Medical Nutrition. Its mission, bringing health through food to as many people as possible, embodies commitment to human progress and business success. It gives meaning to the work of our 100,000 Danoners worldwide on an everyday basis.
For passionate people looking for autonomy and exciting career opportunities, Danone truly has something special inside.

The Master Data Analyst will be responsible for creation and maintenance of the Material, Vendor and customer Master Data for all of the business units within Danone North America.  The Master Data Analyst will be responsible for monitoring Raw Materials, packaging materials, finish goods, vendor and customer master data with the purpose of improving data quality and timing. It will act as a liaison between the different business functions and our 3rd party data management team.

ESSENTIAL JOB FUNCTION
Standardization
• Standardize data convention across multiple business units; including creation and maintenance of processes,  finding and implemening the use of common tools
Master Data Maintenance and Business Analysis
• Analyze and Propose master data creation process improvement and identify, troubleshoot, and correct issues
• Provide guidance for master data maintenance to cross functional teams responsible for entry of key data
• Support the Master Data Manager with the day to day material, vendor, customer creation and pricing maintenance and ongoing maintenance for all areas
• Support the finance team during budget period with data reporting and data uploads
• Utilize analytical skills to improve master data oversight
Product Lifecycle
• Continuous improvement to our product lifecycle process for finish product, raw and packaging materials Vendors as well as customer Master
• Drive the Material inactivation process by running report and keep up to date all material master data inactivation within SAP
• Work closely with material planning team and supply planning team to clean up and update material master data for discontinue materials in coordination with the BOM team as well


EDUCATION AND EXPERIENCE REQUIREMENTS
Any equivalent combination of education and experience, which provides the applicant with the knowledge, skills, and abilities required to perform the job, will be considered.
Education:
• Bachelors degree required, with degree in Information Systems or Supply Chain preferred
Experience:
• Minimum of 2 year of experience working with SAP master data required
• Demonstrated analytical competency
• Experience using mass maintenance tools (like Winshuttle) preferred
• Experience Using Orsoft Workflow tool a nice to have

COMPETENCIES
• Customer Focus – solicits and uses feedback for continuous improvement. Strives for quality and excellence.
• Accountability – takes a no excuses approach to making things happen. Takes responsibility for own actions and results.
• Teamwork – Actively assists to move the team toward the completion of goals
• Communication Skills – Effectively expresses ideas and thoughts verbally and in written form.
• Collaboration – Establishes collaborative relationships to achieve objective

vsnap lisp

(DEFUN C:VSNAP (/)

; Sept. 25,97. By V.Mendez
; This function centers an object between two parallel lines.

(SETVAR “CMDECHO” 0)
(SETQ SelObj (ENTSEL “\nSelect Object : “))
(SETQ BPoint (GETPOINT “\nBase Point : “))
(COMMAND “OSNAP” “NONE”)
(COMMAND “OSNAP” “NEA”)
(SETQ Point1 (GETPOINT “\nFirst Point [nearest] : “))
(COMMAND “OSNAP” “PER”)
(SETQ Point2 (GETPOINT Point1 “\nSecond Point [Perpendicular] : “))
(COMMAND “OSNAP” “NONE”)
(SETQ X1 (CAR Point1)
Y1 (CADR Point1)
Z1 (CADDR Point1)
)
(SETQ X2 (CAR Point2)
Y2 (CADR Point2)
Z2 (CADDR Point2)
)
(SETQ XMid (/ (+ X2 X1) 2)
YMid (/ (+ Y2 Y1) 2)
ZMid (/ (+ Z2 Z1) 2)
)
(SETQ XObj (CAR BPoint)
YObj (CADR BPoint)
ZObj (CADDR BPoint)
)
(COND
((AND (= X1 X2) (= Y1 Y2)) (SETQ MidPoint (LIST XObj YObj ZMid)))
((AND (= X1 X2) (= Z1 Z2)) (SETQ MidPoint (LIST XObj YMid ZObj)))
((AND (= Y1 Y2) (= Z1 Z2)) (SETQ MidPoint (LIST XMid YObj ZObj)))
)
(COMMAND “MOVE” SelObj “” BPoint MidPoint)
(SETVAR “CMDECHO” 1)
)

Plocky Lisp

(Defun FC (Func N Xo dx)
(
(Setq LP ‘())
(Setq Int (/ dx N)
(Setq x (-Xo Int))
(Repeat (+ N 1)
(Setq x (+x Int))
(Setq y (FuncA x))
(Setq LPP (List x y))
(Setq LP (Cons LPP LP))
)
)
)
(Defun FuncA (V)
(* V V)
)
(Defun DrawF (ListP)
(Setq LPG ListP)
(While ((Lenght LPG) >= 2)
(Setq P1 (Car LPG))
(Setq P2 (Cadr LPG))
(Command “Line” P1 P2)
(Setq LPG (Cdr LPG))
)
)

mcrouti3 lisp

; If an error (such as CTRL-C) occurs
; while this command is active…
(defun at_err (st)
(if (and (/= st “Function cancelled”) (/= st “quit / exit abort”))
(princ (strcat “\nError: ” st))
);end if

;Restore modified modes
(setvar “regenmode” 1)
(setvar “cmdecho” 1)

(if (= (type rtfile) ‘FILE)
(close rtfile)
);end if

(setq rtfile nil)

; Restore old *error* handler
(setq *error* olderr)
(princ)
);end defun

;This function disconnect all variables inside itself.
(defun DiscVar ()
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
);end defun

(defun C:BB ()
(setq bb(entget(car(entsel))))
(setq name (cdr(assoc 2 bb)))
(setq name (strcat “Block Name : ” name))
(alert name)
(princ)
);end defun

(defun c:CC()
(setq bb(entget(car(entsel))))
(setq name (cdr(assoc 8 bb)))
(setq name (strcat “Entity Layer : ” name))
(alert name)
(princ)
)

(defun C:BM (/ a a1 a2 nam ins bk1)

(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))

(command “explode” a )
(setq bk1 (ssget “p”))

;ERASE ENTITIES
(command “move” a2 “” a2 pause)

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )
(setvar “regenmode” 1)
(princ)
);end defun

(DEFUN C:BE ( ) ;/ a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))

;AQUI VA EL MODULO DE EXPLODE
(command “explode” a)
(setq bk1 (ssget “p”))

;ERASE ENTITIES
(command “erase” a2 “”)

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)

(setvar “regenmode” 1)
(princ)
);end defun

(defun C:bda (/ a a1 a2 bm bk1 inf nam ins )
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))

;AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))

;PUNTOFINALDATA
;ERASE ENTITIES
(command “ddatte” a2 )

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )
(setvar “regenmode” 1)
(princ)
);end defun

(DEFUN C:ba (/ blo a a1 a2 nam ins bk1)

;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;Seleccion de entidades
(SETQ A(ssget))
(setq blo (entsel))
(setq inf(entget(car blo)))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))

(command “explode” blo)
(setq bk1 (ssget “p”))

(command “block” nam “y” ins bk1 a “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun

(DEFUN C:bs (/ a a1 a2 bk1 inf nam ins )
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;Seleccion de entidades
(setq p1 (getpoint))
(setq p2 (getcorner p1))
(SETQ A(ssget “c” p1 p2))
(setq b (entget(ssname a 0)))

(setq nam(cdr(assoc 2 b)))
(setq ins(cdr(assoc 10 b)))
(setq capa (cdr(assoc 8 b)))

(command “explode” a)
(setq bk1 (ssget “p”))

;stretch ENTITIES
(command “stretch” “c” p1 p2 “” p2 pause)
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun

(DEFUN C:bop (/ a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)

(setvar “cmdecho” 0)

;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))

;AQUI VA EL MODULO DE EXPLODE
(command “explode” a)
(setq bk1 (ssget “p”))

;ERASE ENTITIES
(command “copy” a2 “” a2 pause)

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun

(DEFUN C:bco (/ a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))

;AQUI VA EL MODULO DE EXPLODE
(command “explode” a)
(setq bk1 (ssget “p”))

;ERASE ENTITIES
(command “change” a2 “” “p” “lt” “continuous” “”)

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun

(DEFUN C:bhi (/ a a1 a2 nam ins bk1)

(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))

;AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))

;ERASE ENTITIES
(command “change” a2 “” “p” “lt” “hidden” “”)

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:bcl (/ a a1 a2 nam ins bk1)

;; VARS SETTINGSq
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;; Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;; FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;; AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;; ERASE ENTITIES
(command “change” a2 “” “p” “c” 8 “”)
;; MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )

(setvar “regenmode” 1)
(princ)
);End_Defun

(DEFUN C:b8 (/ a a1 a2 nam ins bk1)

;; VARS SETTINGSq
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;; Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;; FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;; AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;; ERASE ENTITIES
(command “change” a2 “” “p” “c” 8 “”)
;; MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )

(setvar “regenmode” 1)
(princ)
);End_Defun

(DEFUN C:TKI (/ ) ;a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;ENTITIES SELECTION
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))

;EXPLODE MODULE
(command “explode” a )
(setq bk1 (ssget “p”))

;ERASE ENTITIES
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))) )

(IF (= “ITEMTAG” BLO)
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(IF (= “RECTRAG” BLO)
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)

(setq nooo(+ nooo 1))
);repeat

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
);End_Defun

(DEFUN C:TEI (/ ) ;a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))

;AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))

;ERASE ENTITIES
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))) )

(IF (OR (= “PTAGM” BLO)(= “ETAGM” BLO)(= “EPTAGM” BLO)(= “ERITAG” BLO)(= “PRITAG” BLO)(= “ELLIPPLM” BLO)(= “ELLIPTAG” BLO))
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat

;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
);End_Defun

(DEFUN C:BO (/ bb name)
(setq bb(entget(car(entsel))))
(setq name (cdr(assoc 2 bb)))
(setq name (strcat “d:\\MCD_PR\\SOFTDESK\\” name “.DWG”))
(command “save” “”)
(command “open” name)
(princ)
)

(DEFUN C:TCI (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))

(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))

;; AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))

;; ERASE ENTITIES
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))))

(IF (OR (= “3NOTE” BLO)(= “2NOTE” BLO)
(= “1NOTE” BLO)(= “4NOTE” BLO))

(COMMAND “SCALE” CAPA “” LOC “1.6”)
)

(setq nooo(+ nooo 1))
);repeat

;; MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )

(setvar “regenmode” 1)
(princ)
);End_Defun

(DEFUN C:TCD (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)

(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ A2 (car(cdr a)))

(setq Inf (entget A1))
(setq Nam(cdr(Assoc 2 Inf)))
(setq Ins(cdr(Assoc 10 Inf)))
(setq Capa2(cdr(Assoc 8 Inf)))

(command “explode” a)
(setq Bk1 (ssget “p”))

(setq Nooo 0)
(repeat (sslength Bk1)
(setq Capa (ssname Bk1 Nooo)
Asso (cdr(assoc 8(entget Capa)))
Blo (cdr(assoc 2(entget Capa)))
Loc (cdr(assoc 10(entget Capa)))
Ref (cdr(assoc 0(entget Capa)))
);setq end

(if (OR (= “3NOTE” BLO)(= “2NOTE” BLO)(= “1NOTE” BLO)(= “4NOTE” BLO))
(COMMAND “SCALE” CAPA “” LOC (/ 1 1.6))
);end if
(setq nooo(+ nooo 1))
);repeat

(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )

(setvar “regenmode” 1)
(princ)
);End_Defun

(DEFUN C:bbn (/ n p1 n1 n2 a co al1 cp cp2 t)
; Copia un bloque con nombre diferente
(setq n (entsel))
(setq p1 (car(cdr n)))

(command “copy” n “” p1 pause)
(setq n1(cdr(assoc 2(entget(car n)))))
(setq n2 (strcat (substr n1 1 7) “*”))
(setq a(ssget “x”(list(cons 0 “INSERT”) (cons 2 N2))))
(setq co (sslength a))
(setq al1 (strcat “TIENES ” (ITOA CO) ” BLOQUES.”))
(setq cp (ssget “l”))
(setq cp2 (entget(ssname cp 0)))
(command “explode” cp “”)
(setq t (ssget “p”))
(command “block” (strcat(substr n1 1 8)”_”(itoa co))
(cdr(assoc 10 cp2)) t “” )
(command “insert” (strcat(substr n1 1 8)”_”(itoa co))
(cdr(assoc 10 cp2)) “” “” “”)
(ALERT AL1)
(princ)
)

Social Media Marketing Resume

We are looking for a social media marketing superstar to help grow our business and become part of our team. You must have a friendly demeanour, detail-oriented, and enjoy bringing your creative ideas to life.

Job Duties Include:
*Create/manage/maintain social media content
* Promote our Brand, Missions and Services across social media channels
* Develop and execute a social media calendar
* Coordinate posts and messaging on key campaigns
* Shoot, snap, edit and post A LOT of pictures
* Directly interact with consumers by providing engaging content and information about our services and replying to customers who ask questions or post concerns on Facebook.

Qualifications Include:
* Must be highly self-motivated
* Must have a minimum of 2 years in social media marketing
* Experience with social media marketing tools like Hootsuite
* Experience with digital performance analytical tools (Google Analytics, etc.)
* Understanding of SEO, SEM, and PPC a HUGE plus!
* Proficiency with analytics tools and software (Facebook Ads, Insights)

Tblin AutoLisp Modes

(defun c:tblin (/)

;Initialize counters.
(setq Row 0)
(setq Col 0)
;Change these variables to adjust row and columns.
(setq OffCol 2)
(setq OffRow 0.2)

(setq ColMax 9)
(setq eof 0)

(setq Filename (FileToRead))
(setq FileHandler (open Filename “r”))

(while (= eof 0)
(progn
(while (< Col (* OffCol ColMax)) (progn (setq TextIn (read-line FileHandler)) (if (= TextIn “~”) (setq eof 1) ;Else (progn (setq Col (+ Col OffCol)) (command “TEXT” (list Col Row 0.0) “0.08” “0” TextIn) );End progn );End if );End progn );wend (setq Row (- Row OffRow)) (setq Col 0) );End progn );Wend (close FileHandler) (princ) ) (defun FileToRead (/) ; Prompt for file to be inserted (if (= 1 (getvar “FILEDIA”)) (setq FileToRead (getfiled “File to Read” “” “TXT” 12)) ;Else (progn (\n princ “Set variable FILEDIA to 1 then try again.”) (setq FileToRead nil) );End progn );End if ) ;;; Save modes ;;; (defun MODES (a) (setq MLST ‘()) (repeat (length a) (setq MLST (append MLST (list (list (car a) (getvar (car a)))))) (setq a (cdr a)) ) ;;; Restore modes ;;; (defun MODER () (repeat (length MLST) (setvar (caar MLST) (cadar MLST)) (setq MLST (cdr MLST)) ) ) ;;; Ascii Text error handler ;;; (defun at_err (st) ; If an error (such as CTRL-C) occurs ; while this command is active… (if (and (/= st “Function cancelled”) (/= st “quit / exit abort”) ) (princ (strcat “\nError: ” st)) ) (moder) ; Restore modified modes (if (= (type rtfile) ‘FILE) (close rtfile) ) (setq rtfile nil) (setq *error* olderr) ; Restore old *error* handler (princ) ) (defun asctxt (/) (setq olderr *error* *error* at_err) (modes ‘(“BLIPMODE” “CMDECHO” “HIGHLIGHT”)) ; Prompt for file to be inserted (while (null rtfile) (if (null at_fnm) (if (= 1 (getvar “FILEDIA”)) (setq rf (getfiled “File to Read” “” “” 12)) (progn (initget 1) (princ “\nFile to read (including extension): “) (setq rf (getstring)) ) ) (if (= 1 (getvar “FILEDIA”)) (setq rf (getfiled “File to Read” at_fnm “” 12)) (progn (princ “\nFile to read (including extension)/<“) (princ (strcat at_fnm “>: “))
(setq rf (getstring))
)
)
)
(if (= rf nil) (exit))
(if (= rf 1)
(if (null at_fnm)
(progn
(initget 1)
(princ “\nFile to read (including extension): “)
(setq rf (getstring))
)
(progn
(princ “\nFile to read (including extension)/<“) (princ (strcat at_fnm “>: “))
(setq rf (getstring))
)
)
)
(if (and (= rf “”) (/= nil at_fnm))
(setq rf at_fnm)
)
(setq rfa (findfile rf))
(if (= “~” rf)
(progn
(setq rfa nil)
(setq rtfile nil)
)
)
(if rfa
(progn
(setq at_fnm rfa)
(if (null (setq rtfile (open rfa “r”)))
(princ (strcat
“\n\tFile found, but couldn’t open ” at_fnm ” for reading. “))
)
)
(if (/= “~” rf)
(if (and (< 4 (strlen rf)) (/= (substr rf (- (strlen rf) 3) 1) “.”) ) (princ “\nFile not found. Extension may be missing.”) (princ “\nFile not found. “) ) ) ) ) (setq cont T) (if (= “Yes” (getkword “\nSet up columns? : “))
(progn
(setq opt (append opt ‘(16)))
(initget (+ 1 2))
(setq cd (getdist pt “\nDistance between columns: “))
(initget (+ 1 2 4))
(setq nl (getint “\nNumber of lines per column: “))
)
)
)
)
(setvar “BLIPMODE” 0)
(setvar “HIGHLIGHT” 0)
(setvar “CMDECHO” 0)
(setq eof nil)
(setq s (repeat l1
(read-line rtfile)
))
(setq lc (1+ lc))
(1ltxt)
(while (null eof)
(if (= d “Auto”)
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(progn
(if (= lc (1+ nl))
(1ltxt)
(progn
(if (member ‘1 opt)
(setq s (strcat “%%u” s “%%u”))
)
(if (member ‘2 opt)
(setq s (strcat “%%o” s “%%o”))
)
(if (member ‘4 opt)
(setq s (strcase s))
)
(if (member ‘8 opt)
(setq s (strcase s T))
)
(command “_.TEXT” “” s)
(setq c (1+ c))
(if (= c n)
(setq eof T)
)
)
)
)
(setq eof T)
)
)
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(1ltxt)
(setq eof T)
)
)
)
)
(close rtfile)
(setq rtfile nil)
(moder) ; Restore modified modes
(setq *error* olderr) ; Restore old *error* handler
(princ)
)

;(defun c:at () (asctxt))
(defun c:asctext () (asctxt))
(princ “\n ASCTEXT loaded.”)
(princ)

(defun C:TBLIN ()

;;Select file using a dialog box.
(setq RpFileName
(getfiled “Select file to incorporate” “/acad/support/” “txt” 8)
)
;;Open the file.
(setq FileNum (open RpFileName “r”))

;;Test for an empty file.
(setq LineFile (read-line FileNum))

;;Getting data to Autocad.
(while (/= LineFile nil)
(setq LineFile (read-line FileNum)
(princ LineFile)
)
)
)

Legend AutoLisp

(defun C:LEGEND ()

(prompt “\nBuilding legend list…\n”)
;Set variable to get the first element of table.
(setq Frst T)
(setq Counter 0)
(setq CountBlk 0)

;Get all block names.
(while (setq Tbdata (tblnext “BLOCK” Frst))
(setq Bname (dxf 2 Tbdata))

;print all block names.
(if (/= Bname nil)
;Discard dimension blocks.
(if (/= “*” (substr Bname 1 1))
;Call function.
(FindTag Bname)
);end if
);end if
(setq Frst nil)
);while end
);end defun

(defun FindTag (InBlkName)
;debug line
;(princ (strcat InBlkName “\n”))

;Check for blocks in drawing.
(if (= InBlkName “ITEMTAG”)
(setq CountBlk (+ CountBlk 1))
;else
(progn
;Call function to get nested blocks.
(setq Blklist (blist InBlkName))

;Call function Show Elements.
(ShowElem Blklist)
);end progn
);end if
);end defun

(defun ShowElem (ElemList)
(foreach ChkEnt Elemlist
(progn
(setq DebugName (dxf 2 ChkEnt))
(if (/= DebugName nil)
(if (= DebugName “ITEMTAG”)
(progn
;Extract Itemtag’s text.
(setq TxtList (GetTagName ChkEnt))
;Print in file.
(CreateFile TxtList)
);end progn
);end if
);end if
);end progn
);end foreach
);end defun

;This function get a text inside a block with attributes.
;Once the ItemTag block has been found look at its sub-entities
;searching for an attrib entity with the data text.

(defun GetTagName (HeadEnt)
;Show head entity.
(setq HeadData (entget (dxf -1 HeadEnt)))

;Get from Head Entity data the first Sub-entity.
(setq PrimCode (entnext (dxf -1 HeadData)))
(setq PrimData (entget PrimCode))
(setq BlkText (dxf 1 PrimData))
(princ (strcat BlkText “\n”))

;Add itemtag text to list.
(setq TagTextList
(append TagTextList
(list BlkText)
);end append
);end setq

;Return a list with text.
TagTextList
);end defun

; DXF returns property of entered code.
(defun dxf (code elist)
(cdr (assoc code elist))
)

; BLIST returns a list of the block head and subentity data
; lists for the specified block name.
(defun blist (blname / tblist tdata ename)
(setq tblist (list (setq tdata (tblsearch “block” blname)))
;set ename to first sub-entity.
ename (dxf -2 tdata)
);end setq
(while
(progn
(setq tblist
(append tblist
(list (entget ename))
);end append
);end setq
(setq ename (entnext ename))
);end progn
);wend
;send back the list.
tblist
);end defun

(defun CreateFile (ListToWrite)
(princ (getvar “Dwgname”))
);end defun

AutoCAD lisp Shortcuts

;;; SHORCUTS BY V. MENDEZ

 

;;; SHORCUTS BY V. MENDEZ

;SHOWS THE BLOCK NAME OF AN ENTITY
(DEFUN C:BB(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 2 bb)))
(SETQ name (strcat “Block Name… ” name))
(ALERT name)
(princ)
)

;SHOWS THE LAYER NAME OF AN ENTITY
(DEFUN C:CC(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 8 bb)))
(SETQ name (strcat “Entity Layer… ” name))
(ALERT name)
(princ)
)

;DDINSERT
(DEFUN C:DDI ()
(COMMAND “DDINSERT”))

;CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE”))

;COPY
(DEFUN C:CO ()
(COMMAND “COPY” “SI” “AUTO” PAUSE PAUSE))

; PEW [SET WIDTH OF A POLYLINE TO ZERO]
(DEFUN C:PEW ()
(COMMAND “PEDIT” PAUSE “W” “0” “”))

(DEFUN C:SCINS ()
(COMMAND “SCALE” “SI” “auto” PAUSE PAUSE “INS” PAUSE SF))

; EXTEND TO SELECTED OBJECTS BY AUTO ONLY TWO TIMES.
(DEFUN C:EXT ()
(COMMAND “EXTEND” “SI” “AUTO” PAUSE PAUSE PAUSE PAUSE “”))

; BREAK SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BR ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “INT”))

; BREAK at the selected poit SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BRA ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “@”))

; CHANGE LAYER, BUT MUST GIVE LAYER NAME.
(DEFUN C:CLA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA”))

; FILLET CROSSING
(DEFUN C:FC ()
(COMMAND “FILLET” “C” PAUSE PAUSE))

; MIRROR
(DEFUN C:MI ()
(COMMAND “MIRROR”))

; OFFSET
(DEFUN C:OF ()
(COMMAND “OFFSET”))

; STRETCH “CROSSING”
(DEFUN C:ST ()
(COMMAND “STRETCH” “C” PAUSE PAUSE))

; ZOOM WINDOW
(DEFUN C:ZW ()
(COMMAND “‘ZOOM” “W” PAUSE PAUSE))

; ZOOM PREVIOUS
(DEFUN C:ZP ()
(COMMAND “‘ZOOM” “P”))

; ZOOM EXTENTS
(DEFUN C:ZE ()
(COMMAND “ZOOM” “E”))

; ZOOM DYNAMIC
(DEFUN C:ZD ()
(COMMAND “‘ZOOM” “D”))

; CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE” “AUTO”))

; TRIM “SI” “AUTO”
(DEFUN C:TRA ()
(COMMAND “TRIM” “SI” “AUTO”))

; TRIM FENCE
(DEFUN C:TRF ()
(COMMAND “TRIM” “AUTO” PAUSE PAUSE “” “F” ))

; EXTEND
(DEFUN C:EXT ()
(COMMAND “EXTEND” ))

; EXPLODE
(DEFUN C:EX ()
(COMMAND “EXPLODE” ))

; MOVE
(DEFUN C:MO ()
(COMMAND “MOVE” “AUTO”))

; ROTATE
(DEFUN C:RO ()
(COMMAND “ROTATE” “AUTO”))

;;; LISP ROUTINES

(DEFUN C:VSNAP (/)

; Sept. 25,97. By V.Mendez (c) r.1.0
; This function centers an object between two parallel lines.

(SETVAR “CMDECHO” 0)
(COMMAND “OSNAP” “NONE”)
(COMMAND “OSNAP” “CEN,MID,END”)
(SETQ SelObj (ENTSEL “\nSelect Object [cen,mid,end] : “)
BPoint (GETPOINT “\nBase Point [cen,mid,end] : “)
)
(COMMAND “OSNAP” “NEA”)
(SETQ Point1 (GETPOINT “\nFirst Point [nearest] : “))
(COMMAND “OSNAP” “PER”)
(SETQ Point2 (GETPOINT Point1 “\nSecond Point [Perpendicular] : “))
(SETQ X1 (CAR Point1)
Y1 (CADR Point1)
Z1 (CADDR Point1)
)
(SETQ X2 (CAR Point2)
Y2 (CADR Point2)
Z2 (CADDR Point2)
)
(SETQ XMid (/ (+ X2 X1) 2)
YMid (/ (+ Y2 Y1) 2)
ZMid (/ (+ Z2 Z1) 2)
)
(SETQ XObj (CAR BPoint)
YObj (CADR BPoint)
ZObj (CADDR BPoint)
)
(IF (AND (= X1 X2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST X1 YMid 0)) )
(IF (AND (= Y1 Y2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST XMid Y1 0)) )
(COMMAND “OSNAP” “NONE”)
(SETVAR “CMDECHO” 1)
)

(DEFUN C:RECT (/ p1 p2)
(setvar “cmdecho” 0)
(if (and
(setq p1 (getpoint “\nFirst corner: “))
(setq p2 (getcorner p1 “\nOther corner: “))
)
(if A_LINE
(command “.line” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
(command “.pline” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
)
)
(princ)
)

(DEFUN C:TEI (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))

(command “explode” a )
(setq bk1 (ssget “p”))

(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))))
(IF (OR
(= “PTAGM” BLO)(= “ETAGM” BLO)
(= “EPTAGM” BLO)
(= “ERITAG” BLO)(= “PRITAG” BLO))
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )

(setvar “regenmode” 1)
(princ)
)

; CHANGE LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:CHGLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ ENAME2 (ENTSEL “\nSelect entity to change to new layer:”))
(SETQ ELIST2 (ENTGET (CAR ENAME2)))
(SETQ NEWLIST2
(SUBST LYRPAIR (ASSOC 8 ELIST2) ELIST2)
)
(ENTMOD NEWLIST2)
)

; SET TO LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:SETLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ CULYR (CDR LYRPAIR))
(COMMAND “LAYER” “SET” CULYR “” “”)
)

; CHANGE THE SIZE OF TEXT TO A PREVIOUS SETQ SZ
(DEFUN C:TXTSZ ()
(COMMAND “CHANGE” “SI” PAUSE “” “” “” SZ “” “”)
)

; TURN LAYER OFF ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:OFFLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in layer to be turned off:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ LYR (CDR LYRPAIR))
(COMMAND “LAYER” “OFF” LYR “” “”)
)

; CULA CHANGES OBJECTS TO THE CURRENT LAYER
(DEFUN C:CULA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA” CULYR “”)
)

;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINT ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INT” PAUSE “INT” PAUSE)
)

;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINS ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INS” PAUSE “INS” PAUSE)
)

;DDA FOR DDATTE ATTRIBUTE EDIT DIALOG
(DEFUN C:DA ()
(COMMAND “DDATTE”)
)

;DDE FOR DDEDIT TEXT EDITING DIALOG
(DEFUN C:DDE ()
(COMMAND “DDEDIT”)
)

;DDL FOR DDLMODES LAYER DIALOG
(DEFUN C:DDL ()
(COMMAND “DDLMODES”))

;SCA SCALE FACTOR FOR CENTER
(DEFUN C:SCEN ()
(COMMAND “SCALE” “SI” “AUTO” PAUSE PAUSE “CEN” PAUSE SF)
)

; DIMENSION HORIZONTAL
(DEFUN C:DMH()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “HOR” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)

; DIMENSION VERTICAL
(DEFUN C:DMV()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “VER” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)

;;; -*- Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;; not-so-tiny two pick door program

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: DOORX.LSP Copyright (C) Benjamin Olasov 1988 All Rights Reserved ;;;
;;; Research/ commercial inquiries: ;;;
;;; Benjamin Olasov 310 Riverside Drive New York, NY 10025 ;;;
;;; PH (212) 678-5473 ;;;
;;; MCI-MAIL: 344-4003 ;;;
;;; CompuServe: 71450,3313 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is provided ‘as is’ without warranty of any kind, either
;; expressed or implied, including, but not limited to the implied
;; warranties of merchantability and fitness for a particular purpose.
;; The entire risk as to the quality and performance of the program is
;; with the user. Should the program prove defective, the user assumes
;; the entire cost of all necessary servicing, repair or correction.
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.

(gc)
(vmon)
(princ “\nPlease wait- loading.\n”)

(DEFUN C:DOOR (/ HP1 HP2 DWIDTH SP1 SP2 C-LAY BOX LINE1 LINE2)
(SETVAR “CMDECHO” 0)
(SETVAR “COORDS” 2)
(SETVAR “OSMODE” 256)
(SETQ HP1 (GETPOINT “\nHinge pt: “)
HP1 (OSNAP HP1 “NEAR”)
SP1 (GETPOINT HP1 “\nSwing pt: “)
SP1 (OSNAP SP1 “NEAR”)
DWIDTH (DISTANCE HP1 SP1)
C-LAY (GETVAR “CLAYER”)
BOX (SSGET “C” (LIST (- (CAR HP1) 12.0) (- (CADR HP1) 12.0))
(LIST (+ (CAR HP1) 12.0) (+ (CADR HP1) 12.0))))
(IF (AND BOX (SETQ LINE1 (ENTGET (SSNAME (SSGET HP1) 0))))
(PROGN (SSDEL (CDR (ASSOC -1 LINE1)) BOX) ;; remove first line from box
(FOREACH ENT (SS2ELIST BOX)
(IF (OR (/= (CDR (ASSOC 8 ENT))
(CDR (ASSOC 8 LINE1)))
(/= (CDR (ASSOC 0 ENT)) “LINE”)
(NOT (PARALLEL ENT LINE1)))
(SSDEL (CDR (ASSOC -1 ENT)) BOX)))
(SETVAR “OSMODE” 0)
(IF (> (SSLENGTH BOX) 0) ;; look in the box
(PROGN (SETQ LINE2 (ENTGET (SSNAME BOX 0))
HP2 (INTERS (CDR (ASSOC 10 LINE2))
(CDR (ASSOC 11 LINE2))
HP1
(POLAR HP1 (IF (> PI (ANGLE HP1 SP1))
(- (ANGLE HP1 SP1) (/ PI 2.0))
(+ (ANGLE HP1 SP1) (/ PI 2.0)))
(DISTANCE HP1 SP1)) nil))
(COMMAND “LAYER” “S” (CDR (ASSOC 8 LINE1)) “”)
(SETQ SP2 (POLAR HP2 (ANGLE HP1 SP1) DWIDTH)
P5 (POLAR HP1 (ANGLE HP2 HP1) DWIDTH))
(COMMAND “BREAK” HP1 SP1)
(COMMAND “BREAK” HP2 SP2)
(COMMAND “LINE” HP1 HP2 “”)
(COMMAND “LINE” SP1 SP2 “”)
(COMMAND “LINE” HP1 P5 “”)
(COMMAND “ARC” SP1 “E” P5 “D” (ATOF (ANGTOS (ANGLE HP2 HP1) 0 4)))
(COMMAND “LAYER” “S” C-LAY “”)))))
(PRINC))

;; convert a selection set to a list of entity lists
(DEFUN SS2ELIST (SS / ENTLIST COUNTER)
(SETQ COUNTER 0)
(REPEAT (SSLENGTH SS)
(PROGN (SETQ ENTLIST (CONS (ENTGET (SSNAME SS COUNTER)) ENTLIST))
(SETQ COUNTER (1+ COUNTER)))) ENTLIST)

;; takes 2 e-lists as arguments
(DEFUN PARALLEL (L1 L2)
(OR (~= (ANGLE (CDR (ASSOC 10 L1)) (CDR (ASSOC 11 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0)) ;; 1 rad tolerance
(~= (ANGLE (CDR (ASSOC 11 L1)) (CDR (ASSOC 10 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0))))

(DEFUN ~= (ACT_VAL TEST_VAL TOL) ;;fuzzy equality
(AND (<= ACT_VAL (+ TEST_VAL TOL))
(>= ACT_VAL (- TEST_VAL TOL))))

;;; ssx.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED “AS IS” WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; Larry Knott Version 2.0 7/18/88
;;; Carl Bethea & Jan S. Yoder Version 3.0
;;; Enhancements to (ssx).
;;; 15 March 1990
;;;
;;;————————————————————————–;
;;; DESCRIPTION
;;; SSX.LSP
;;;
;;; “(SSX)” – Easy SSGET filter routine.
;;;
;;; Creates a selection set. Either type “SSX” at the “Command:” prompt
;;; to create a “previous” selection set or type “(SSX)” in response to
;;; any “Select objects:” prompt. You may use the functions “(A)” to add
;;; entities and “(R)” to remove entities from a selection set during
;;; object selection. More than one filter criteria can be used at a
;;; time.
;;;
;;; SSX returns a selection set either exactly like a selected
;;; entity or, by adjusting the filter list, similar to it.
;;;
;;; The initial prompt is this:
;;;
;;; Command: ssx
;;; Select object/<None>: (RETURN)
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; Pressing RETURN at the initial prompt gives you a null selection
;;; mechanism just as (ssx) did in Release 10, but you may select an
;;; entity if you desire. If you do so, then the list of valid types
;;; allowed by (ssget “x”) are presented on the command line.
;;;
;;; Select object/<None>: (a LINE selected)
;;; Filter: ((0 . “LINE”) (8 . “0”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; At this point any of these filters may be removed by selecting the
;;; option keyword, then pressing RETURN.
;;;
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
;;;
;;; Filter: ((0 . “LINE”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; If an item exists in the filter list and you elect to add a new item,
;;; the old value is overwritten by the new value, as you can have only
;;; one of each type in a single (ssget “x”) call.
;;;
;;;————————————————————————–;
;;;
;;; Find the dotted pairs that are valid filters for ssget
;;; in entity named “ent”.
;;;
;;; ssx_fe == SSX_Find_Entity
;;;
(defun ssx_fe (/ x data fltr ent)
(setq ent (car (entsel “\nSelect object/<None>: “)))
(if ent
(progn
(setq data (entget ent))
(foreach x ‘(0 2 6 7 8 39 62 66 210) ; do not include 38
(if (assoc x data)
(setq fltr
(cons (assoc x data) fltr)
)
)
)
(reverse fltr)
)
)
)
;;;
;;; Remove “element” from “alist”.
;;;
;;; ssx_re == SSX_Remove_Element
;;;
(defun ssx_re (element alist)
(append
(reverse (cdr (member element (reverse alist))))
(cdr (member element alist))
)
)
;;;
;;; INTERNAL ERROR HANDLER
;;;
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (/= s “Function cancelled”)
(princ (strcat “\nError: ” s))
)
(if olderr (setq *error* olderr)) ; Restore old *error* handler
(princ)
)
;;;
;;; Get the filtered sel-set.
;;;
;;;
(defun ssx (/ olderr)
(gc) ; close any sel-sets
(setq olderr *error*
*error* ssx_er
)
(setq fltr (ssx_fe))
(ssx_gf fltr)
)
;;;
;;; Build the filter list up by picking, selecting an item to add,
;;; or remove an item from the list by selecting it and pressing RETURN.
;;;
;;; ssx_gf == SSX_Get_Filters
;;;
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
(while
(progn
(cond (f1 (prompt “\nFilter: “) (prin1 f1)))
(initget
“Block Color Entity Flag LAyer LType Pick Style Thickness Vector”)
(setq t1 (getkword (strcat
“\n>>Block name/Color/Entity/Flag/”
“LAyer/LType/Pick/Style/Thickness/Vector: “)))
)
(setq t2
(cond
((eq t1 “Block”) 2) ((eq t1 “Color”) 62)
((eq t1 “Entity”) 0) ((eq t1 “LAyer”) 8)
((eq t1 “LType”) 6) ((eq t1 “Style”) 7)
((eq t1 “Thickness”) 39) ((eq t1 “Flag” ) 66)
((eq t1 “Vector”) 210)
(T t1)
)
)
(setq t3
(cond
((= t2 2) (getstring “\n>>Block name to add/<RETURN to remove>: “))
((= t2 62) (initget 4 “?”)
(cond
((or (eq (setq t3 (getint
“\n>>Color number to add/?/<RETURN to remove>: “)) “?”)
(> t3 256))
(ssx_pc) ; Print color values.
nil
)
(T
t3 ; Return t3.
)
)
)
((= t2 0) (getstring “\n>>Entity type to add/<RETURN to remove>: “))
((= t2 8) (getstring “\n>>Layer name to add/<RETURN to remove>: “))
((= t2 6) (getstring “\n>>Linetype name to add/<RETURN to remove>: “))
((= t2 7)
(getstring “\n>>Text style name to add/<RETURN to remove>: “)
)
((= t2 39) (getreal “\n>>Thickness to add/<RETURN to remove>: “))
((= t2 66) (if (assoc 66 f1) nil 1))
((= t2 210)
(getpoint “\n>>Extrusion Vector to add/<RETURN to remove>: “)
)
(T nil)
)
)
(cond
((= t2 “Pick”) (setq f1 (ssx_fe) t2 nil)) ; get entity
((and f1 (assoc t2 f1)) ; already in the list
(if (and t3 (/= t3 “”))
;; Replace with a new value…
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
;; Remove it from filter list…
(setq f1 (ssx_re (assoc t2 f1) f1))
)
)
((and t3 (/= t3 “”))
(setq f1 (cons (cons t2 t3) f1))
)
(T nil)
)
)
(if f1 (setq f2 (ssget “x” f1)))
(setq *error* olderr)
(if (and f1 f2)
(progn
(princ (strcat “\n” (itoa (sslength f2)) ” found. “))
f2
)
(progn (princ “\n0 found.”) (prin1))
)
)
;;;
;;; Print the standard color assignments.
;;;
;;;
(defun ssx_pc ()
(if textpage (textpage) (textscr))
(princ “\n “)
(princ “\n Color number | Standard meaning “)
(princ “\n ________________|____________________”)
(princ “\n | “)
(princ “\n 0 | <BYBLOCK> “)
(princ “\n 1 | Red “)
(princ “\n 2 | Yellow “)
(princ “\n 3 | Green “)
(princ “\n 4 | Cyan “)
(princ “\n 5 | Blue “)
(princ “\n 6 | Magenta “)
(princ “\n 7 | White “)
(princ “\n 8…255 | -Varies- “)
(princ “\n 256 | <BYLAYER> “)
(princ “\n \n\n\n”)
)
;;;
;;; C: function definition.
;;;
(defun c:ssx () (ssx)(princ))
(princ “\n\tType \”ssx\” at a Command: prompt or “)
(princ “\n\t(ssx) at any object selection prompt. “)
(princ)

 

Block AutoLISP Shortcuts

;;; SHORCUTS BY V. MENDEZ

;SHOWS THE BLOCK NAME OF AN ENTITY
(DEFUN C:BB(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 2 bb)))
(SETQ name (strcat “Block Name… ” name))
(ALERT name)
(princ)
)

;SHOWS THE LAYER NAME OF AN ENTITY
(DEFUN C:CC(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 8 bb)))
(SETQ name (strcat “Entity Layer… ” name))
(ALERT name)
(princ)
)

;DDINSERT
(DEFUN C:DDI ()
(COMMAND “DDINSERT”))

;CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE”))

;COPY
(DEFUN C:CO ()
(COMMAND “COPY” “SI” “AUTO” PAUSE PAUSE))

; PEW [SET WIDTH OF A POLYLINE TO ZERO]
(DEFUN C:PEW ()
(COMMAND “PEDIT” PAUSE “W” “0” “”))

(DEFUN C:SCINS ()
(COMMAND “SCALE” “SI” “auto” PAUSE PAUSE “INS” PAUSE SF))

; EXTEND TO SELECTED OBJECTS BY AUTO ONLY TWO TIMES.
(DEFUN C:EXT ()
(COMMAND “EXTEND” “SI” “AUTO” PAUSE PAUSE PAUSE PAUSE “”))

; BREAK SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BR ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “INT”))

; BREAK at the selected poit SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BRA ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “@”))

; CHANGE LAYER, BUT MUST GIVE LAYER NAME.
(DEFUN C:CLA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA”))

; FILLET CROSSING
(DEFUN C:FC ()
(COMMAND “FILLET” “C” PAUSE PAUSE))

; MIRROR
(DEFUN C:MI ()
(COMMAND “MIRROR”))

; OFFSET
(DEFUN C:OF ()
(COMMAND “OFFSET”))

; STRETCH “CROSSING”
(DEFUN C:ST ()
(COMMAND “STRETCH” “C” PAUSE PAUSE))

; ZOOM WINDOW
(DEFUN C:ZW ()
(COMMAND “‘ZOOM” “W” PAUSE PAUSE))

; ZOOM PREVIOUS
(DEFUN C:ZP ()
(COMMAND “‘ZOOM” “P”))

; ZOOM EXTENTS
(DEFUN C:ZE ()
(COMMAND “ZOOM” “E”))

; ZOOM DYNAMIC
(DEFUN C:ZD ()
(COMMAND “‘ZOOM” “D”))

; CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE” “AUTO”))

; TRIM “SI” “AUTO”
(DEFUN C:TRA ()
(COMMAND “TRIM” “SI” “AUTO”))

; TRIM FENCE
(DEFUN C:TRF ()
(COMMAND “TRIM” “AUTO” PAUSE PAUSE “” “F” ))

; EXTEND
(DEFUN C:EXT ()
(COMMAND “EXTEND” ))

; EXPLODE
(DEFUN C:EX ()
(COMMAND “EXPLODE” ))

; MOVE
(DEFUN C:MO ()
(COMMAND “MOVE” “AUTO”))

; ROTATE
(DEFUN C:RO ()
(COMMAND “ROTATE” “AUTO”))

;;; LISP ROUTINES

(DEFUN C:VSNAP (/)

; Sept. 25,97. By V.Mendez (c) r.1.0
; This function centers an object between two parallel lines.

(SETVAR “CMDECHO” 0)
(COMMAND “OSNAP” “NONE”)
(COMMAND “OSNAP” “CEN,MID,END”)
(SETQ SelObj (ENTSEL “\nSelect Object [cen,mid,end] : “)
BPoint (GETPOINT “\nBase Point [cen,mid,end] : “)
)
(COMMAND “OSNAP” “NEA”)
(SETQ Point1 (GETPOINT “\nFirst Point [nearest] : “))
(COMMAND “OSNAP” “PER”)
(SETQ Point2 (GETPOINT Point1 “\nSecond Point [Perpendicular] : “))
(SETQ X1 (CAR Point1)
Y1 (CADR Point1)
Z1 (CADDR Point1)
)
(SETQ X2 (CAR Point2)
Y2 (CADR Point2)
Z2 (CADDR Point2)
)
(SETQ XMid (/ (+ X2 X1) 2)
YMid (/ (+ Y2 Y1) 2)
ZMid (/ (+ Z2 Z1) 2)
)
(SETQ XObj (CAR BPoint)
YObj (CADR BPoint)
ZObj (CADDR BPoint)
)
(IF (AND (= X1 X2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST X1 YMid 0)) )
(IF (AND (= Y1 Y2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST XMid Y1 0)) )
(COMMAND “OSNAP” “NONE”)
(SETVAR “CMDECHO” 1)
)

(DEFUN C:RECT (/ p1 p2)
(setvar “cmdecho” 0)
(if (and
(setq p1 (getpoint “\nFirst corner: “))
(setq p2 (getcorner p1 “\nOther corner: “))
)
(if A_LINE
(command “.line” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
(command “.pline” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
)
)
(princ)
)

(DEFUN C:TEI (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))

(command “explode” a )
(setq bk1 (ssget “p”))

(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))))
(IF (OR
(= “PTAGM” BLO)(= “ETAGM” BLO)
(= “EPTAGM” BLO)
(= “ERITAG” BLO)(= “PRITAG” BLO))
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )

(setvar “regenmode” 1)
(princ)
)

; CHANGE LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:CHGLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ ENAME2 (ENTSEL “\nSelect entity to change to new layer:”))
(SETQ ELIST2 (ENTGET (CAR ENAME2)))
(SETQ NEWLIST2
(SUBST LYRPAIR (ASSOC 8 ELIST2) ELIST2)
)
(ENTMOD NEWLIST2)
)

; SET TO LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:SETLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ CULYR (CDR LYRPAIR))
(COMMAND “LAYER” “SET” CULYR “” “”)
)

; CHANGE THE SIZE OF TEXT TO A PREVIOUS SETQ SZ
(DEFUN C:TXTSZ ()
(COMMAND “CHANGE” “SI” PAUSE “” “” “” SZ “” “”)
)

; TURN LAYER OFF ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:OFFLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in layer to be turned off:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ LYR (CDR LYRPAIR))
(COMMAND “LAYER” “OFF” LYR “” “”)
)

; CULA CHANGES OBJECTS TO THE CURRENT LAYER
(DEFUN C:CULA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA” CULYR “”)
)

;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINT ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INT” PAUSE “INT” PAUSE)
)

;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINS ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INS” PAUSE “INS” PAUSE)
)

;DDA FOR DDATTE ATTRIBUTE EDIT DIALOG
(DEFUN C:DA ()
(COMMAND “DDATTE”)
)

;DDE FOR DDEDIT TEXT EDITING DIALOG
(DEFUN C:DDE ()
(COMMAND “DDEDIT”)
)

;DDL FOR DDLMODES LAYER DIALOG
(DEFUN C:DDL ()
(COMMAND “DDLMODES”))

;SCA SCALE FACTOR FOR CENTER
(DEFUN C:SCEN ()
(COMMAND “SCALE” “SI” “AUTO” PAUSE PAUSE “CEN” PAUSE SF)
)

; DIMENSION HORIZONTAL
(DEFUN C:DMH()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “HOR” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)

; DIMENSION VERTICAL
(DEFUN C:DMV()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “VER” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)

;;; -*- Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;; not-so-tiny two pick door program

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: DOORX.LSP Copyright (C) Benjamin Olasov 1988 All Rights Reserved ;;;
;;; Research/ commercial inquiries: ;;;
;;; Benjamin Olasov 310 Riverside Drive New York, NY 10025 ;;;
;;; PH (212) 678-5473 ;;;
;;; MCI-MAIL: 344-4003 ;;;
;;; CompuServe: 71450,3313 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is provided ‘as is’ without warranty of any kind, either
;; expressed or implied, including, but not limited to the implied
;; warranties of merchantability and fitness for a particular purpose.
;; The entire risk as to the quality and performance of the program is
;; with the user. Should the program prove defective, the user assumes
;; the entire cost of all necessary servicing, repair or correction.
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.

(gc)
(vmon)
(princ “\nPlease wait- loading.\n”)

(DEFUN C:DOOR (/ HP1 HP2 DWIDTH SP1 SP2 C-LAY BOX LINE1 LINE2)
(SETVAR “CMDECHO” 0)
(SETVAR “COORDS” 2)
(SETVAR “OSMODE” 256)
(SETQ HP1 (GETPOINT “\nHinge pt: “)
HP1 (OSNAP HP1 “NEAR”)
SP1 (GETPOINT HP1 “\nSwing pt: “)
SP1 (OSNAP SP1 “NEAR”)
DWIDTH (DISTANCE HP1 SP1)
C-LAY (GETVAR “CLAYER”)
BOX (SSGET “C” (LIST (- (CAR HP1) 12.0) (- (CADR HP1) 12.0))
(LIST (+ (CAR HP1) 12.0) (+ (CADR HP1) 12.0))))
(IF (AND BOX (SETQ LINE1 (ENTGET (SSNAME (SSGET HP1) 0))))
(PROGN (SSDEL (CDR (ASSOC -1 LINE1)) BOX) ;; remove first line from box
(FOREACH ENT (SS2ELIST BOX)
(IF (OR (/= (CDR (ASSOC 8 ENT))
(CDR (ASSOC 8 LINE1)))
(/= (CDR (ASSOC 0 ENT)) “LINE”)
(NOT (PARALLEL ENT LINE1)))
(SSDEL (CDR (ASSOC -1 ENT)) BOX)))
(SETVAR “OSMODE” 0)
(IF (> (SSLENGTH BOX) 0) ;; look in the box
(PROGN (SETQ LINE2 (ENTGET (SSNAME BOX 0))
HP2 (INTERS (CDR (ASSOC 10 LINE2))
(CDR (ASSOC 11 LINE2))
HP1
(POLAR HP1 (IF (> PI (ANGLE HP1 SP1))
(- (ANGLE HP1 SP1) (/ PI 2.0))
(+ (ANGLE HP1 SP1) (/ PI 2.0)))
(DISTANCE HP1 SP1)) nil))
(COMMAND “LAYER” “S” (CDR (ASSOC 8 LINE1)) “”)
(SETQ SP2 (POLAR HP2 (ANGLE HP1 SP1) DWIDTH)
P5 (POLAR HP1 (ANGLE HP2 HP1) DWIDTH))
(COMMAND “BREAK” HP1 SP1)
(COMMAND “BREAK” HP2 SP2)
(COMMAND “LINE” HP1 HP2 “”)
(COMMAND “LINE” SP1 SP2 “”)
(COMMAND “LINE” HP1 P5 “”)
(COMMAND “ARC” SP1 “E” P5 “D” (ATOF (ANGTOS (ANGLE HP2 HP1) 0 4)))
(COMMAND “LAYER” “S” C-LAY “”)))))
(PRINC))

;; convert a selection set to a list of entity lists
(DEFUN SS2ELIST (SS / ENTLIST COUNTER)
(SETQ COUNTER 0)
(REPEAT (SSLENGTH SS)
(PROGN (SETQ ENTLIST (CONS (ENTGET (SSNAME SS COUNTER)) ENTLIST))
(SETQ COUNTER (1+ COUNTER)))) ENTLIST)

;; takes 2 e-lists as arguments
(DEFUN PARALLEL (L1 L2)
(OR (~= (ANGLE (CDR (ASSOC 10 L1)) (CDR (ASSOC 11 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0)) ;; 1 rad tolerance
(~= (ANGLE (CDR (ASSOC 11 L1)) (CDR (ASSOC 10 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0))))

(DEFUN ~= (ACT_VAL TEST_VAL TOL) ;;fuzzy equality
(AND (<= ACT_VAL (+ TEST_VAL TOL))
(>= ACT_VAL (- TEST_VAL TOL))))

;;; ssx.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED “AS IS” WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; Larry Knott Version 2.0 7/18/88
;;; Carl Bethea & Jan S. Yoder Version 3.0
;;; Enhancements to (ssx).
;;; 15 March 1990
;;;
;;;————————————————————————–;
;;; DESCRIPTION
;;; SSX.LSP
;;;
;;; “(SSX)” – Easy SSGET filter routine.
;;;
;;; Creates a selection set. Either type “SSX” at the “Command:” prompt
;;; to create a “previous” selection set or type “(SSX)” in response to
;;; any “Select objects:” prompt. You may use the functions “(A)” to add
;;; entities and “(R)” to remove entities from a selection set during
;;; object selection. More than one filter criteria can be used at a
;;; time.
;;;
;;; SSX returns a selection set either exactly like a selected
;;; entity or, by adjusting the filter list, similar to it.
;;;
;;; The initial prompt is this:
;;;
;;; Command: ssx
;;; Select object/<None>: (RETURN)
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; Pressing RETURN at the initial prompt gives you a null selection
;;; mechanism just as (ssx) did in Release 10, but you may select an
;;; entity if you desire. If you do so, then the list of valid types
;;; allowed by (ssget “x”) are presented on the command line.
;;;
;;; Select object/<None>: (a LINE selected)
;;; Filter: ((0 . “LINE”) (8 . “0”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; At this point any of these filters may be removed by selecting the
;;; option keyword, then pressing RETURN.
;;;
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
;;;
;;; Filter: ((0 . “LINE”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; If an item exists in the filter list and you elect to add a new item,
;;; the old value is overwritten by the new value, as you can have only
;;; one of each type in a single (ssget “x”) call.
;;;
;;;————————————————————————–;
;;;
;;; Find the dotted pairs that are valid filters for ssget
;;; in entity named “ent”.
;;;
;;; ssx_fe == SSX_Find_Entity
;;;
(defun ssx_fe (/ x data fltr ent)
(setq ent (car (entsel “\nSelect object/<None>: “)))
(if ent
(progn
(setq data (entget ent))
(foreach x ‘(0 2 6 7 8 39 62 66 210) ; do not include 38
(if (assoc x data)
(setq fltr
(cons (assoc x data) fltr)
)
)
)
(reverse fltr)
)
)
)
;;;
;;; Remove “element” from “alist”.
;;;
;;; ssx_re == SSX_Remove_Element
;;;
(defun ssx_re (element alist)
(append
(reverse (cdr (member element (reverse alist))))
(cdr (member element alist))
)
)
;;;
;;; INTERNAL ERROR HANDLER
;;;
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (/= s “Function cancelled”)
(princ (strcat “\nError: ” s))
)
(if olderr (setq *error* olderr)) ; Restore old *error* handler
(princ)
)
;;;
;;; Get the filtered sel-set.
;;;
;;;
(defun ssx (/ olderr)
(gc) ; close any sel-sets
(setq olderr *error*
*error* ssx_er
)
(setq fltr (ssx_fe))
(ssx_gf fltr)
)
;;;
;;; Build the filter list up by picking, selecting an item to add,
;;; or remove an item from the list by selecting it and pressing RETURN.
;;;
;;; ssx_gf == SSX_Get_Filters
;;;
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
(while
(progn
(cond (f1 (prompt “\nFilter: “) (prin1 f1)))
(initget
“Block Color Entity Flag LAyer LType Pick Style Thickness Vector”)
(setq t1 (getkword (strcat
“\n>>Block name/Color/Entity/Flag/”
“LAyer/LType/Pick/Style/Thickness/Vector: “)))
)
(setq t2
(cond
((eq t1 “Block”) 2) ((eq t1 “Color”) 62)
((eq t1 “Entity”) 0) ((eq t1 “LAyer”) 8)
((eq t1 “LType”) 6) ((eq t1 “Style”) 7)
((eq t1 “Thickness”) 39) ((eq t1 “Flag” ) 66)
((eq t1 “Vector”) 210)
(T t1)
)
)
(setq t3
(cond
((= t2 2) (getstring “\n>>Block name to add/<RETURN to remove>: “))
((= t2 62) (initget 4 “?”)
(cond
((or (eq (setq t3 (getint
“\n>>Color number to add/?/<RETURN to remove>: “)) “?”)
(> t3 256))
(ssx_pc) ; Print color values.
nil
)
(T
t3 ; Return t3.
)
)
)
((= t2 0) (getstring “\n>>Entity type to add/<RETURN to remove>: “))
((= t2 8) (getstring “\n>>Layer name to add/<RETURN to remove>: “))
((= t2 6) (getstring “\n>>Linetype name to add/<RETURN to remove>: “))
((= t2 7)
(getstring “\n>>Text style name to add/<RETURN to remove>: “)
)
((= t2 39) (getreal “\n>>Thickness to add/<RETURN to remove>: “))
((= t2 66) (if (assoc 66 f1) nil 1))
((= t2 210)
(getpoint “\n>>Extrusion Vector to add/<RETURN to remove>: “)
)
(T nil)
)
)
(cond
((= t2 “Pick”) (setq f1 (ssx_fe) t2 nil)) ; get entity
((and f1 (assoc t2 f1)) ; already in the list
(if (and t3 (/= t3 “”))
;; Replace with a new value…
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
;; Remove it from filter list…
(setq f1 (ssx_re (assoc t2 f1) f1))
)
)
((and t3 (/= t3 “”))
(setq f1 (cons (cons t2 t3) f1))
)
(T nil)
)
)
(if f1 (setq f2 (ssget “x” f1)))
(setq *error* olderr)
(if (and f1 f2)
(progn
(princ (strcat “\n” (itoa (sslength f2)) ” found. “))
f2
)
(progn (princ “\n0 found.”) (prin1))
)
)
;;;
;;; Print the standard color assignments.
;;;
;;;
(defun ssx_pc ()
(if textpage (textpage) (textscr))
(princ “\n “)
(princ “\n Color number | Standard meaning “)
(princ “\n ________________|____________________”)
(princ “\n | “)
(princ “\n 0 | <BYBLOCK> “)
(princ “\n 1 | Red “)
(princ “\n 2 | Yellow “)
(princ “\n 3 | Green “)
(princ “\n 4 | Cyan “)
(princ “\n 5 | Blue “)
(princ “\n 6 | Magenta “)
(princ “\n 7 | White “)
(princ “\n 8…255 | -Varies- “)
(princ “\n 256 | <BYLAYER> “)
(princ “\n \n\n\n”)
)
;;;
;;; C: function definition.
;;;
(defun c:ssx () (ssx)(princ))
(princ “\n\tType \”ssx\” at a Command: prompt or “)
(princ “\n\t(ssx) at any object selection prompt. “)
(princ)

Advanced Technical Analysis In Cryptocurrency Trading

Technical analysis is a careful analysis of coin reports and charts. Although with a few close similarities with other forms of trading, cryptocurrency’s unique characteristics have helped made several tools invaluable in studying coin behaviour, predicting future movement to take proper trading steps.

In this article, you would learn about more advanced methods employed in the technical analysis of cryptocurrencies, e.g. Bitcoin. Each of these methods has striking characteristics, and readers are advised to study them carefully.

JAPANESE CANDLESTICKS METHOD FOR TRADING CRYPTO

The Japanese candlesticks are technical analysis tools used to provide adequate trading data to investors. Since cryptocurrency trading occurs on exchanges, there is a section that shows charts in the form of graphs, having different time frames from 1 hour, one day, one week, one month etc. When observed carefully, when zoomed in, two types of candlesticks are seen that make up the chart. They are red and green candlesticks. The red candlestick is used to illustrate a decline in price while the green candlestick is used to show an increase in price.

Even though cryptocurrencies are entirely different from other traditional assets, similarities exist between them in the way they are charted coupled with the open, high, low & close (OHLC) of trading. The OHLC is identified in the image below.

Research shows that five favourite candlestick patterns provide useful direction for traders. These candlesticks work within price ranges in predicting the next movement of the trade either increase or decrease in value. The most accurate patterns are divided into two namely reversals and continuations. Reversals are patterns that predict a downtrend in price while continuations is a pattern that predicts an uptrend in price from its present price.

A trend can either be bullish or bearish. A pattern is said to be bullish when it is in the direction of an upward trend while it is said to be bearish when it is in the direction of a downward trend. The five popular candlesticks are namely The Hammer, The Piercing Line, The Bullish Engulfing Pattern, The Morning Star and the Three Soldiers.

The Hammer shows a bullish pattern in a reverse order in which the asset nears a downtrend. Its opposite is Hanging Man.

THE ELLIOT WAVE PRINCIPLE METHOD FOR CRYPTOCURRENCY

This principle is a form of technical analysis that employs the study of market psychology, identifying the 24hr High and Low prices and use these factors in making market decisions. Every trader that use this form of technical analysis believes that the crypto market is influenced by market psychology using fundamental analysis. Success when using Elliot wave can

Investing Crypto

 

Craving Crypto EP 48 “How to easily swing trade crypto (working strategy)”

 

Outline

Welcome to the “Craving Crypto Podcast! Hit that like & subscribe”

Market overview

Topic = “How to easily swing trade crypto (working strategy)”

Some Q+A from the comment section

 

  1. First we will goto Coinmarketcap.com > view all > 7D trend.. Then you find coins with high trading volume and rounded bottoms / accumulation patterns. (this is our entry criteria)
  2. Understand your risk management! When first testing this strategy use very small amounts of your trading capital until you are comfortable.
  3. Then we goto tradingview.com or Coinsignals.trade and take our fib tool going from the low to the high & setting sell orders on the fib levels. TP 1 = 25% sold TP 2 = 25% sold TP 3 = 25% sold.. Then keep 25% in long term.

 

Example -> https://www.tradingview.com/x/n9CNIyui

 

CHARTS AND LINKS BELOW  🙂

 

 

 

BINANCE SIGNUP! -> https://www.binance.com/?ref=15193962

COINCAP CHART -> https://www.tradingview.com/x/40dOAruF

Coinigy signup! -> https://www.coinigy.com/?r=e1f60de5

Bitmex signup -> https://www.bitmex.com/register/e655oo

BTC : 1DmQZJzu4LYQuS6WBkhnfeZX5bhuv3sHJW

VIP COURSE & SIGNALS ->  https://highaltitudecrypto.io/shop/

Trade with tradingview charts! – https://www.coinsignals.trade/
DISCORD IS BACK FOLKS – https://discord.gg/rg2H36E

 

100k chart = https://www.tradingview.com/chart/BLX/c7gpVQSl-100-000-The-prophecy-is-true-highaltitudeinvesting/

 

BTC CHART 1 = https://www.tradingview.com/chart/BTCUSD/fgl8P6KT-Sick-of-the-correction-read-this/

BTC CHART 2 =

https://www.tradingview.com/x/W2NWlt1T/
BTC CHART 3 =
https://www.tradingview.com/x/RauXf08g

NASDAQ CHART 1 =

https://www.tradingview.com/x/zFOWuaaS/

Netflix and chill bubble

https://www.tradingview.com/chart/NDX/LCLHIZ6J-I-really-hope-this-fractal-doesn-t-play-out-on-netflix/

Social Media Marketing

https://www.victoromark.com/social-media-marketing/
https://www.youtube.com/watch?time_continue=2&v=vbMQcjG_ILo
https://www.youtube.com/watch?v=owT_ILSMSt8
https://www.youtube.com/watch?v=O1utFYvMiZI
https://www.youtube.com/watch?v=bdx6DRflpyA
https://www.youtube.com/watch?v=b-1aPptrBf0
https://www.youtube.com/watch?v=GqlHbySigTk
https://www.youtube.com/watch?v=Nsajb6JUYk8
https://www.youtube.com/watch?v=ZmYYcuaMkYU
https://www.youtube.com/watch?v=E1QqEttdaoU
https://www.youtube.com/watch?v=UebQLXbTFus
https://www.youtube.com/watch?v=rwVBmnBvWK8
https://www.youtube.com/watch?v=FtRli0fjwR0&amp
https://www.youtube.com/watch?v=xNJZHiZKvCI

https://fpdl.vimeocdn.com/vimeo-prod-skyfire-std-us/01/4634/11/298170998/1136970361.mp4?token=1544147275-0x492cba16cad1e068b6ef850b069c92e6aade79df

Affiliate Marketing Angles: A Step-by-Step Guide to Standing Out

https://boulder.craigslist.org/web/6765424210.html

Hey there,

We are a mission-driven company delivering online relationship and self-development education.

You are someone who can do anything technical within a business like this…

– build landing pages
– create funnels
– hook up automations
– track with Google Analytics
– check every link is pointing where it should be
– create and monitor FB ads

You can be based anywhere so long as your wifi is strong and you can be contacted in realtime during daytime MT.

You are:
– responsive
– action-oriented
– a safe pair of hands
– detail-oriented – able to sign off on everything working perfectly
– problem-solver – if you don’t know how to do something, you can figure it out
– team-player – you know when to ask for support
– self-managing – you can manage and prioritize your own workflow

Knowledge of our software is desirable:
– Active Campaign
– Thrivecart
– Everwebinar
– Deadline Funnels

Contract is negotiable – ideally we would retain you monthly with a clear list of your deliverables and responsibilities.

To apply, please send an email which lets us know why you are a good fit. No standard cover letters please.

All best,
Jack and Clayton

Email Marketing

https://www.youtube.com/watch?v=loN6gZ2LGiA
https://www.youtube.com/watch?v=P9x1HERu094
https://www.youtube.com/watch?v=8ljPVbosVa8
https://www.youtube.com/watch?v=bZOdi-KqXkY
https://www.youtube.com/watch?v=H75ddw02T6c
https://www.youtube.com/watch?v=wShli2d-R7M

Facebook Ads

Facebook Ads Strategy

/ = Narrow Down

ES = Engaged Shoppers

WW = Worldwide

  • Adset 1 – Interests 1/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 2 – Interests 2/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 3 – Interests 3/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 4 – Interests 4/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 5 – Interests 5/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 6 – Interests 6/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 7 – Interests 7/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 8 – Interests 8/ES – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 9 – Interest Stack – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View
  • Adset 10 – Interests 10/Interest 9/Interest 8 – WW – Facebook & IG Feeds – 7 Day Click or 1 Day View

Keep making new interest adset variations for as long as possible. Milk interests for as long as possible before starting lookalike audiences.

Start some retargeting audiences:

Adset 1 – Retargeting Audience VC- $3/day – Facebook & IG Feeds – 7 Day Click or 1 Day View

Adset 2 – Retargeting Audience AC – $3/day – Facebook & IG Feeds – 7 Day Click or 1 Day View

Adset 3 – Retargeting Audience VV – $3/day – Facebook & IG Feeds – 7 Day Click or 1 Day View

Adset 1 – Retargeting Audience VC- $3/day – Automatic Placement – 7 Day Click or 1 Day View

Lookalike audiences:

Break down your main campaign to see where the results are coming from. Pick the best country to start your lookalikes in. Milk that country for as long as possible before moving to a new one.

  • Lookalike 1-10% – Product page viewers (Based on people that went to your product page. Regardless if they bought or not. People that visited the link)
  • Lookalike 1-10% – Abandoned checkouts (Based on people that abandoned their cart in your store)
  • Lookalike 1-10% – Initiated checkouts (Based on a specific product)
  • Lookalike 1-10% – Purchases (Based on people that bought your product in your store)
  • Lookalike 1-10% – Fan page engagers (Based on people that engaged with your fanpage)
  • Lookalike 1-10% – Ad & Post Engagers (Based on people that engaged with any of your ads and posts)
  • Lookalike 1-10% – Fan page followers (Based on your fanpage followers)
  • Lookalike 1-10% – Video viewers (Based on people that viewed any of your videos)
  • Lookalike 1-10% – Instagram Engagers (Based on people that engaged with your Instagram profile)

Keep cycling through adsets. Make new ones EVERY DAY. That is the key ?

  • disgust
  • anger
  • fear
  • sadness
  • happiness
  • surprise
  • contempt

https://www.business2community.com/facebook/how-to-create-the-best-facebook-ad-campaign-structure-for-conversion-success-02290886

Facebook Ads Strategy for Newbies

ip for newbies (who have a few spare $$$ to try this ecom game)

After a couple months of trying the $5 test ads here and there. It’s not enough, try this instead:

  1. Do your interest research (pretty thoroughly) then release 3 adsets (same creative) 1 VC, 1 ATC, 1 Purchase, at a big fat wopping $25 per day budget (lol), but keep a very VERY close eye on them for about 3 to 4 hours, 1 will out perform on the CTR, kill the other 2 (you’ll have only spent about 10 bucks)
  2. Then duplicate that 1 about 5 times over 3-4 hours, AGAIN, 1 will outperform significantly, kill the other 4 (you’ll only have spent another $10).
  3. Since I’ve tested this way I’ve started to find regular winners, not quite 200-300k months (hopefully soon) but 40, 50, 60k months at, 30% profit on average.
  4. Facebook like you to spend money, but you can actually FAKE, spend money, if you just keep an eye on it.
  5. FINAL TIP – don’t go bed with a few of those adsets going, you’ll wake up crying 9 times out of 10.

I’m no pro by any means, and I certainly don’t have loads of money, I just test playing the odds.

Peace X

https://www.youtube.com/watch?v=zhoZbaRAIXU
https://www.youtube.com/watch?v=AGV611S26_w
https://www.youtube.com/watch?v=fIsL0TDpvCM&feature=youtu.be&utm_content=277303&utm_medium=Email&utm_name=Id&utm_source=Actionetics&utm_term=EmailCampaign

Amazon

Amazon Profitability Calculator https://sellercentral.amazon.com/fba/profitabilitycalculator/index?lang=en_US

Best Products to Private Label for Amazon FBA

6 Tips for Private Labeling on Amazon FBA & Choosing a Product (w/ Greg Mercer)

Jungle Scout Criteria

  • 50 reviews or less
  • 300 units sales per month or more
  • $20 – $50
  • 2 lbs or less

Manufacturing Criteria

  1. Not big brand product
  2. Not bulky
  3. Not difficult to manufacture
  4. Not likely to break easily
  5. Don’t require variations

Analyze Competition

  1. Top sellers are selling for $20 average or more
  2. Top ten sellers are collectively makes 3000 sales per month average
  3. Top ten sellers have 3000 sales per month average spread evenly or distributed evenly
  4. 1 seller in the top 5 with 50 reviews or less
  5. 3 sellers in the top 10 results with 50 reviews or less

How to Find Manufacturers

Step 1: Go to Alibaba and find the search bar. Type in the name of a product that you are interested in selling. In this video I used vitamin pills as an example.

Step 2: Because a lot of suppliers have duplicate listings on Alibaba for the same item (because it increases their presence in the Alibaba search engine) you will need to filter the results by clicking on “browse by suppliers.”

Step 3: To filter the results down further, search by “Gold Suppliers.” Most suppliers will do this because it has become basically a prerequisite for having new buyers contact them. It doesn’t cost them much money to do this, so the results will only be filtered by a small amount.

Step 4 (OPTIONAL): If the list of suppliers is still too long, then click to filter the results by “assessed supplier.” This is only necessary in very popular niches where you have a large number of suppliers that you need to filter down to a manageable amount.

Step 5: Contact 10-20 suppliers at least. If you have time, then contact more. The more you contact, the better.

Here is the email template referenced in our video tutorial on how to find a supplier on Alibaba:

My name is [INSERT NAME] from [INSERT BUSINESS NAME].

Our company director asked me to contact your company about working together on a lucrative, long-term venture. We are a company that sells products related to [INSERT NICHE HERE] and we do over 2 million dollars in sales each year. We’re looking to expand our product range and create a profitable partnership between your company and ours.

We are planning to purchase [INSERT ITEM] to our product line. It would need to meet these specifications:

  • Specification (e.g size)
  • Specification (e.g. quantity)
  • Specification (e.g. colour)

We have been researching different companies in China that manufacture [INSERT ITEM] and we think that your company could be a great supplier for it. We would like to get some more information and have a few questions that we would like you to please answer:

  • Can we please get a sample of the product as soon as possible. Can you please let us know how much you will charge for the sample, including Express shipping to [INSERT COUNTRY], zip code [INSERT ZIP CODE]? We would like to pay with PayPal.
  • How long will it take to receive the sample? * What types of packaging do you usually use for this product? * How long does it take to manufacture once an order has been placed?
  • What is the product-per-unit cost including shipping via Air Express to the United States, ZIP code 85043? * Do you accept PayPal for the full-order?”

We would be very grateful if you would contact us with answers to the above questions as well as any additional policies that we may need to know. We would also like to discuss with you further about doing a sample order for the product.

We are hopeful that we can start a mutually beneficial relationship.

Please add me on Skype and talk to me, as this is my ideal form of communication: [INSERT ID] Alternatively you can email me back at this address: [INSERT ADDRESS]

Kind regards, [NAME]”

Here are some final tips to keep in mind when you are looking to find a supplier on Alibaba to manufacture your Amazon FBA private label products:

Tip #1 on how to find a supplier on Alibaba: Don’t judge the supplier/manufacture by their Alibaba response rate. The Alibaba response rate only takes into account how fast they respond within Alibaba’s email system, and it doesn’t take into account how fast they reply to personal emails. This is not a good indicator of how responsive they will be to private communication, which is all you should care about.

Tip #2 on how to find a supplier on Alibaba: Avoid manufacturers that try to vet your business. If a manufacturer comes back and starts asking questions about your business, clearly skeptical of the size of your company, it is best to move on. Manufacturers that do this will usually decline to work with you as they are only to work with other large companies, so you don’t want to waste your time.

Tip #3 on how to find a supplier on Alibaba: It is OK to work directly with a sales rep – if they offer you a better deal.

When you are looking to find a supplier on Alibaba, you’ll discover that sales reps often have inflated prices (due to commission cuts). But occasionally, a sales rep will have a better relationship with a factory and so are able to negotiate lower prices. They will also often have good english, making communication easier. Vet sales reps and treat them as equals during the process of picking and choosing the right supplier.

Imp

https://www.youtube.com/watch?v=6MhEPyWKE-U

https://wholesaleted.clickfunnels.com/optin24378563

Free & Paid Search Engine Rank Checkers

These free and paid tools allow you to;

  • track where your websites rank in the search results for important keywords, and
  • track those trends versus competing sites and/or
  • against your own marketing efforts to better understand the effectiveness of your marketing

Rank Tracker Tools

Free Ranking Checkers

Google Rank Checker Tools

These tools do not use the Google API, especially because Google rendered their API virtually useless unless you have one of their old keys.

  • Free Monitor from Google – downloadable tool from CleverStats which monitors website rankings
  • ParaMeter – scrape Google PageRank values in bulk with this downloadable software. Useful for viewing the PageRank profile of a competing site.
  • Mapelli.info – calculates the % of your site stuck in the Google supplemental index.

Meta Search Engines

  • Myriad Search – shows the search results from all 4 major search engines
  • Zippy.co.uk – similar to above, but with more features

Install a Rank Checker on Your Own Site

  • This zip file can be unzipped and installed on any web server which is PHP enabled. It includes a basic rank checker, an advanced rank cheker, a multi-keyword rank checker, a multi-domain rank checker, and a few other goodies. As Google updates their search results it may break these files…but fixing them should only take a couple minutes for a freelance PHP programmer.

Paid Rank Checking Tools

Tracking where you already rank does not alert you to potential areas of opportunity that you have not yet focused on, but it is easier to rank for keywords related to words you already rank well for than it is to rank for a whole new basket of keywords.

From the Engines

  • Google Webmaster Central – allows you to sign up for Google Sitemaps, shows some crawling errors, and a more complete view of your backlinks. Also shows keywords you rank well for and keywords that send you the most traffic.

Related Categories

image

She’s a keeper if

– She’s a keeper if . . . she has at least one non?work-related hobby she’s passionate about. It means she knows how to have fun without a man and that she won’t need you constantly by her side.

How To Advertise On Facebook And Lower Your PPC

Facebook

Facebook Experiment #1

This experiment made me realize to never take the obvious path whenever it comes to internet marketing. Why? Read about it below.

Trying to promote my children story website I decided to go to facebook and create a few ads. I figure the demographics are easy. I’ll target male or females with children 9 – 12 years old from spanish speaking country.

I started paying about $0.80 per click.

A few days later, I found myself with a few clicks and even less conversions.

Then, I found this facebook page;

Discover Facebook Pages

What Does This Mean?

Instead of using the continue paying the cost of marketing using the obvious path, I decided to target those pages that have already done the work of gathering potential customers.

This was incredible. The conversions were higher (not something incredible, but higher) for a reason. They have already “liked” similar pages, why no join my page as well.

By targeting users that have join pages instead of demographics the PPC went down to $0.35 cents.

Next time you want to market your blog or page, don’t take the obvious path, it is usually overpriced.

How 4 Million Google Searches Did Not Make Me Rich

Frustrated

Introduction

Yeahh !! That’s right, 4 million searches/month for a keyword at $0.05 per click for a product.

Do the math;

If the product costs $15.00 and I get $3.00 per sale that will be 12 million dollars. Assuming 1% conversion we are looking at $40,000 / month

Now, if the domain name is availble I should not have any problem going to the top of the google rankings and just wait for the cash to flow in.

Guess what? I got the domain name !

Reality Knocks On My Door And Did Not look Happy

So I spend three days building a quick blog and a landing page with the orange button, product pictures and even video trailer of the movie product. Next step, I open my adwords account, build an ad or two and started pumping money into that campaign.

Day #1 – Zero Clicks and 45 impressions – What ??

Ok so I increased my bids to $0.50 per click. I figure google will at last try to increase my impressions so I can have a better chance and also pay them more.

Day #2 – 1 Click and 50 impressions – Are You Messing With Me?

Ok, so I decided to reaaaallllly go for it and go full blast CPC on Google’s Ass. So I went up to $3.00 per click

Day #3 – Zero clicks and 60 impressions

…  arrrggg  …. sleeping … looking at campaign …  arrrggg …

Day #4 – I’m still baffle and recovering from Day #3. I put the campaign in pause and hit the forums.

I received a very eye opening response to my question about why am I not getting impressions …

Keyword Research Properly Done

I was missing the fact that when doing keyword research, if it is a phrase, google will give you the results of the match that combines the words from your phrase. This is known as broad match.

To actually find the right amount of searches done by humans I need to use exact match.

The result;

2,900 Global Monthly Searches !!

What Did I Learn?

  1. Google keyword tool is for getting keywords. That was my first mistake. I should have use google traffic estimator. Makes sense but I’m new at trying.
  2. Use broad match instead of exact match to actually get the real monthly searches by humans
  3. I did not optimize my landing page to get a QS of 10

What’s Next

Now with the real number I can try again and see if I can get one sale. Stay tuned

How To Create Quality Backlinks To Beat Your Competition

I have been slapped by Google !!

Ouch !!

The Slap

Last week Google decided to change their algorithm and my niche website when from position 31 to position 63 in one week.

Read more about this google algoritm update here;

http://www.smartpassiveincome.com/google-algorithm-impact-niche-sites/

All the effort that I’ve put together since the beginning of December 2010 went back about two months behind.

Frustration Knocks On My Door

Frustration is not a pretty visitor but I always try to look at it naked. Everytime, I get frustration or nervius I imagine my audience naked. So, once again I traced back my steps and try to wear google’s shoes.

Where did I go wrong and why will google sent my site back?

The only tricky and kind of gray hat things I did was to buy backlinking services from fiverr.com . Duh !! That’s probably why google send me back.

To double check, I went to google results and notice the number 1 website was still number one. So, this google update did not affect that website.

What Is My Competitor Doing That I’m Not?

I know that my content and structure is pretty tight in terms of SEO.

  • Meta Tags- Check !!
  • Description – Check !!
  • Content – Check !!
  • Backlinks – Not Check

Backlinking

Backlinks. So far I have taken the lazy approach to this but that was about to change. I went and gather all the backlinks of my number one competitor using the following site;

http://www.iwebtool.com/backlink_checker

Then I contacted the first six website owners from the results table asking them to exchange links with me.

I started to notice a trend. These websites did not have a link to my number one google competitor. How and where is the link to number 1 site?

Comments !!

Most of these websites are blogger websites. This means you can create a comment with anchor text to your site easily. Most of these sites don’t have an approval process. So I prepare something like this;

<a href=” [my site name] “> [ anchor text] </a>

and added an honest comment to each one of these websites.

Now, We Wait

Ohh !! There is nothing to write about here. I’m actually sitting and waiting until the next google spider passes through my site. Hopefully it will help with the ranking.

Follow The Leader

For many years I tried to be a good engineer and come up with original groundbreaking ideas and approaches to do something. Guess what? Life is too short to reinvent the wheel. There is a reason why there are more than one person alive at a time. Don’t reinvent the wheel.

Facebook Advertising Trick

Facebook has its own self serve advertising platform. Trying to get customers to one of my website I decided to give it try.

First, I decided to use broad demographics and the ROI and CTR was terrible.

Then, while reading the twitter account of an expert online advertiser I found a link to facebook Pages Directory.

http://www.facebook.com/directory/pages/A

This was the trick. Instead of using a broad demographics I only targeted FB users that belong to an specific really targetted page. This increased my conversions and reduce the cost of customer adquisition.

Give it a try and let me know in the comments how did it turned out for you.

Does Backlinking Works Better Than Frequent Posting?

SEO Growth

In my search to get better rankings for my dad’s website www.loscuentosinfantiles.com, I’ve been experimenting with different strategies.

Frequent Posting

Back in December 2010 I decided to post almost everyday to see if posting will improve my rankings. At the beginning of Decemeber the website was at position 126 under “cuentos infantiles“. A month later, google placed it in position 65.

Even though that is an incredible jump in ranking is not within the first page of google. The first position receives about 500,000 searches per month. Frequent posting did improve my ranking significantly but … there is always a but … I will continue later on this post explaining the but.

 

Backlinking

Basic back linking done for this site was mostly social media linking. I will go to five or six website and bookmark every post during that month after posting frequently. Twitter, facebook, stumbleupon, google buzz, delicious, etc. I didn’t see any big improvemnt. The site went from position 65 to 55. Then, I discovered fiverr.com

For five dollars I placed orders to add my site to different site aggregators and review sites. Also, I place orders to get links from .gov and .edu websotes. Yes !! for five dollars. This was amazing !!

At the end of february the site was in position 31 in google. I was impressed and also started to figure out this SEO thing.

But then, I decided to drop the ball.

 

Experimenting With Dropping The Ball

Typical engineer, I made a silly decision that I can recover easily from; I decided not to do anything to the website for three weeks. Nothing, nada. Just leave the thing alone. Results ? (… drull roll) google set the site back to position 62 within three weeks.

AAhhhhh !!!

 

Lesson Learned

In summary I learned this about google SEO.

  • If your competitior are lazy, you are good. Sit back and enjoy the traffic coming in.
  • If your competitor is passioned about what they do. They will post more. The more passioned competitiors the faster you get burried under google results
  • Who wins google SEO ranking battles is the one that post quality and unique content, more frequent than competitors in the niche category and also backlinks constantly to the new content.

 

My SEO 3 Cents

Not really cents but three take-homes about SEO

  1. Post Frequently – preferibly more than your google #1 position competitor
  2. Create Niche Content – write about what people are actually looking for, not what you think they are looking for
  3. Backlink – Use different techniques. Guest postint, social media, or fiverr.com backlinking services

 

 

6 Super Granny Powers You Didn’t Know About

Everybody has seen the video of the super granny beating a few bad guys with her powerful purse.

This made me wonder what other super powers super granny might have.

  1. Slut Shout – Turns short slutty skirts into Nun robes by shouting to? woman “Slut !”.
  2. Telepathic Ear Pulling – When she pulls her ears misbehaving children have no match to her telepathic ear pulling powers
  3. Boomerang Dentures – Knows a thief from a distance by throwing her boomerang like dentures
  4. Instant Freeze – In the presence of burglars she can touch the thief and paralyze him at site until the police shows up by diving him a severe case of arthritis
  5. Gadget Purse – Her super purse not only contains candy, a bible and powdery makeup but only a turbine walker she can pulls car chases.
  6. Slobby Kiss of Death – This is the most terrifying super power. Villains fear the super slow motion full of slobby saliva kiss. She can kiss a villain to death with her granny’s pucker kisses

super granny 6 super powers

Spanish Children Stories Niche Website

A little less than a month ago I started my own SEO challenge. I decided then that I was going to sistematly rank my dad’s website to the first page of google. Since december 8, 2010 I have been looking a diferent how-to articles I can write about. This is, since it is a children’s story website most stories won’t have keywords the spiders can link to and categorize the site in under the right niche market.

Therefore, I started wirting and submiting articles to different blogs and article banks.

Between posting a new children story every other day and writing about how writing children’s stories will help your child improve in school I manage to get the website from page 12 to page 6.

This is an amazing progress since whenever it comes to websites SEO exposure is very important as it is search marketing and no interruption marketing.

The plan still to focus on ranking in the first page of google first. Then, I’m planning to do the following to establish my dad as an author and find a publishing house for his children book.

  1. Rank #1 google
  2. Promote computer video games to monetize the website
  3. Open an account with amazon.com and become an affiliate
  4. Contact other children website owners and grow his audience by guest posting
  5. Contact succesful children book authors and ask relevant questions
  6. Contact publishers

How To Better Metabolize Plant’s Carbohydrates

Zinc deficiency, therefore, has a direct impact on the carbohydrate metabolism of plants. For researchers developing biofuels energy sources, these systems and the role of zinc transporters in the conversion of energy into carbohydrates, are important objects of study. Developing a better understanding of zinc uptake can provide greater insight into these processes and will inform future discoveries.

There?s Never Only One Cause of Leaky Gut

There are several well-known factors that cause leaky gut such as the overuse of antibiotics, terrible food choices, persistent stress, overconsumption of alcohol, and many more. For many, it?s the overuse of alcohol and lousy diet plan that cause most of the problems for the digestive system.

Excessive usage of antibiotics can cause digestive dysbiosis and Candida. Pain drugs including pain killers, nuprin and similar drugs are the worst type of offenders. Another cause is from toxicity problems caused by environmental and food chemicals present in packaged foods. The point I want to make is that there is never just a single cause. There are numerous causes that should be considered.

Why Would She Call If She Thinks I’m Cute

Allan R – they say that women mature faster than men, but why is it that most men don’t play games like women do, example: you are sooooooooooooooooooooo cute, call me really soon, you call them, and they never call you back.

If I hear 1000 POSITIVE comments from women, then I’ll change my opinion for SURE!!!

Me – 95% of the time women are very mood oriented. Whenever you call, tell (don’t ask) them you are doing something fun and she is invited. Most women don’t know what they want, they only know what they don’t want once the figure they don’t w…ant it. NUTS !! It is the nature of the beast. Remember they don’t have to go looking for guys or relationships. Those have been offered to them since they were in their teens. They had to develop a mechanism to screen you out (80/20 rule). Make an irresistible offer twice. If it doesn’t work out or she calls back, move on.

The Best Compliment

?- The Best Compliment – Today I received the best compliment a stranger has given me. I went to the UMC (CU cafeteria) today to buy a banana. The cashier (around 50 yo) told me; “It is $42.00” – I said; “sure charge it”. She then asked me if my parents get the bill and that’s why I don’t care. She tought I was 24 years old. LOL and thank you lady

10 Things I Did While Facebook Was Down

1. Wonder about what’s on my mind

2. Share something with my co-worker

3. Tweeted; “Facebook is down”

4. Considered masturbation but then remembered I was at work

5. Discovered I have a window in my office and half a sandwich in a drawer. WFT ??

6. Check if Facebook was back on. Nope …. checked again …. nope !!

7. Pee

8. Went to hulu.com to watch the daily show. Steward, you are a funny mofo

9. Talked to a stranger and then discover we work in the same office. Just a few feet away from each other

10.? I actually did some work

Things Men Don’t Know about Real American Women

Heather with a Marilyn Monroe style pose
28 Things Men Don’t Know about Real American Women

I think this the most important one; – Don’t try to figure out what will make us happy. We have been trying to get to the bottom of that mystery since the beginning of time and we have no clue either.

1. We Can Be Beer Snobs

No. 660: Don’t ask me why my Stella is in a wine glass. It’s not. Get your beers straight.

? Leigh Metherell, 22, Brooklyn

2. We Notice Sex Appeal, Too

No. 867: We think at least two of your friends are hot.

? Lauren Cusimano, 24, Phoenix

3. Our Daily Intake

No. 477: Men don’t know how much we really eat. Really.

? Natalia Angel, 22, London

4. Things That Make Us Go “Aww”

No. 908: Despite what we say, you holding a baby with complete confidence is an absolute aphrodisiac. Put the baby down and come touch me.

? Jennifer Trinh, 24, Irvine, California

5. We Like How You Get When You Explain Things

No. 220: We may say we enjoy watching Top Gear or the Lakers, but really more than anything we enjoy seeing how teaching us about Top Gear and the Lakers boosts your confidence.

? Courtney Harper, 23, Sherman Oaks, California

6. Fashion Failures Are Not Sexy

No. 47: Never. Wear. Neon.

? Carolynn Johnson, 26, Brooklyn

7. Subtle Can Be Very Sexy

No. 732: We’ll take nice forearms over six-pack abs any day.

? Jennie Engelhardt, 26, New York

8. Don’t Compare Us to Our Mothers

No. 22: Turning into our mothers is an inevitable fear we live with on a daily basis. Calling this to our attention at any point is a terrible idea. Just don’t do it.

? Maura E. McGill, 29, New York

9. Avoidance Tactics

No. 18: Sometimes we just complain about “that time of the month” so you’ll leave us alone.

? Kt McBratney, 27, Omaha

10. We Try To Let You Down Easily

No. 388: If you ask for our number a second time and we don’t give it to you, there’s a good chance we can’t remember the first number we gave you.

? Megan McDonnell, 30, Los Angeles

11. We Can’t Figure Ourselves Out, Either

No. 314: Don’t try to figure out what will make us happy. We have been trying to get to the bottom of that mystery since the beginning of time and we have no clue either.

? Michele Pepio, 35, Staten Island, New York

12. Make That a Double

No. 497: We like whiskey. And beer.

? Maura E. McGill, 29, New York

13. Being Metrosexual Is Fine, To A Point

No. 730: We find it creepy when your fingernails are longer and/or shinier than ours. You may get a manicure, but don’t admit it, and don’t enjoy it.

? Eva Meszaros, 25, Brooklyn

14. You Don’t Know What We’re Thinking

No. 642: Men see what women do, but they never know what women think while they are doing it.

?Verena Michaeler, 18, Brixen, Italy

15. Keep Telling Us We Look Hot

No. 616: If you stop with the compliments, then so might our efforts to look as hot as we did when we started dating. Why should we spend time and money that we don’t have in excess when our target audience doesn’t even notice?

? Haiyen Chin, 33, Brooklyn

16. Take a Hint

No. 644: If we offer you gum, it means we want to kiss you later. It’s not an insult. Just take the gum.

? Rhiannon Falzone, 26, Chicago

17. Don’t Be Too Obvious

No. 524: That low-cut top ? we wouldn’t wear it if we didn’t want you to look. Just be discrete about it.

? Whitney Webb, 22, Blacksburg, Virginia

18. Don’t Talk Behind Your Friends’ Backs

No. 85: Women hate when men talk badly about their friends. No matter how bad a friend they are, be supportive. Listen to the drama without being too opinionated. That what we do.

? Danielle Scotti, 23, Pittsburgh

read the top 10 at the original article at;

http://lifestyle.msn.com/relationships/staticslideshowes.aspx?cp-documentid=24375675

BP’s Outrageous New Policy On Spills

BP's Outrageous New Policy On Spills

Possibly related posts: (automatically generated)

50 Questions to Open Your Mind & Stir Your Soul

From Marc & Angel Hack Life website

Sometimes asking the right questions is the answer.

  1. How old would you be if you didn?t know how old you are?
  2. Which is worse, failing or never trying?
  3. If life is so short, why do we do so many things we don?t like and like so many things we don?t do?
  4. When it?s all said and done, will you have said more than you?ve done?
  5. What is the one thing you?d most like to change about the world?
  6. If happiness was the national currency, what kind of work would make you rich?
  7. Are you doing what you believe in, or are you settling for what you are doing?
  8. If the average human life span was 40 years, how would you live your life differently?
  9. To what degree have you actually controlled the course your life has taken?
  10. Are you more worried about doing things right, or doing the right things?
  11. You?re having lunch with three people you respect and admire. They all start criticizing a close friend of yours, not knowing she is your friend. The criticism is distasteful and unjustified. What do you do?
  12. If you could offer a newborn child only one piece of advice, what would it be?
  13. Would you break the law to save a loved one?
  14. Have you ever seen insanity where you later saw creativity?
  15. What?s something you know you do differently than most people?
  16. How come the things that make you happy don?t make everyone happy?
  17. What one thing have you not done that you really want to do? What?s holding you back?
  18. Are you holding onto something you need to let go of?
  19. If you had to move to a state or country besides the one you currently live in, where would you move and why?
  20. Do you push the elevator button more than once? Do you really believe it makes the elevator faster?
  21. Would you rather be a worried genius or a joyful simpleton?
  22. Why are you, you?
  23. Have you been the kind of friend you want as a friend?
  24. Which is worse, when a good friend moves away, or losing touch with a good friend who lives right near you?
  25. What are you most grateful for?
  26. Would you rather lose all of your old memories, or never be able to make new ones?
  27. Is is possible to know the truth without challenging it first?
  28. Has your greatest fear ever come true?
  29. Do you remember that time 5 years ago when you were extremely upset? Does it really matter now?
  30. What is your happiest childhood memory? What makes it so special?
  31. At what time in your recent past have you felt most passionate and alive?
  32. If not now, then when?
  33. If you haven?t achieved it yet, what do you have to lose?
  34. Have you ever been with someone, said nothing, and walked away feeling like you just had the best conversation ever?
  35. Why do religions that support love cause so many wars?
  36. Is it possible to know, without a doubt, what is good and what is evil?
  37. If you just won a million dollars, would you quit your job?
  38. Would you rather have less work to do, or more work you actually enjoy doing?
  39. Do you feel like you?ve lived this day a hundred times before?
  40. When was the last time you marched into the dark with only the soft glow of an idea you strongly believed in?
  41. If you knew that everyone you know was going to die tomorrow, who would you visit today?
  42. Would you be willing to reduce your life expectancy by 10 years to become extremely attractive or famous?
  43. What is the difference between being alive and truly living?
  44. When is it time to stop calculating risk and rewards, and just go ahead and do what you know is right?
  45. If we learn from our mistakes, why are we always so afraid to make a mistake?
  46. What would you do differently if you knew nobody would judge you?
  47. When was the last time you noticed the sound of your own breathing?
  48. What do you love? Have any of your recent actions openly expressed this love?
  49. In 5 years from now, will you remember what you did yesterday? What about the day before that? Or the day before that?
  50. Decisions are being made right now. The question is: Are you making them for yourself, or are you letting others make them for you?

Getting Ready for Halloween

Me and Zohar decided to go to The Ritz in downtown Boulder looking for a Halloween costume. She found some weird coats and hat. It does not require much to get this girl dancing. She lovesss shopping and trying things on.

?

Of course she found an afro wig and had to give it a try.